From 186583d0a909531b16cf3775acc7dd7e406be6e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Rapha=C3=ABl=20Proust?= <code@bnwr.net>
Date: Tue, 17 Jun 2025 14:49:12 +0200
Subject: [PATCH] Time.{start,end}_of_day

---
 time.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/time.ml b/time.ml
index 9f313c9..2bdb100 100644
--- a/time.ml
+++ b/time.ml
@@ -278,3 +278,12 @@ let ago_str = show_duration $ ago
 (* compat *)
 let int = to_seconds
 let to_sec = to_seconds
+
+let start_of_day t =
+  let t = Unix.gmtime t in
+  ExtUnix.Specific.timegm { t with tm_sec = 0; tm_min = 0; tm_hour = 0 }
+
+let end_of_day t =
+  let t = Unix.gmtime t in
+  ExtUnix.Specific.timegm { t with tm_sec = 59; tm_min = 59; tm_hour = 23 }
+