let is_today date =
  let now = Unix.localtime (Unix.time ()) in
  let d = Unix.localtime date in
  now.tm_year = d.tm_year && now.tm_mon = d.tm_mon && now.tm_mday = d.tm_mday

let format_time date =
  let t = Unix.localtime date in
  let hour = t.tm_hour mod 12 in
  let hour = if hour = 0 then 12 else hour in
  let ampm = if t.tm_hour >= 12 then "pm" else "am" in
  Printf.sprintf "%d:%02d %s" hour t.tm_min ampm

let format_date date =
  let t = Unix.localtime date in
  Printf.sprintf "%d/%d/%02d" (t.tm_mon + 1) t.tm_mday (t.tm_year mod 100)