From 81db1bfd580791910646525e30bc45af34533987 Mon Sep 17 00:00:00 2001
From: Sébastien Dailly <sebastien@dailly.me>
Date: Sat, 1 Mar 2025 08:39:02 +0100
Subject: Rewrite the way to handle filters

---
 lib/helpers/helpers.ml | 43 -------------------------------------------
 1 file changed, 43 deletions(-)

(limited to 'lib/helpers/helpers.ml')

diff --git a/lib/helpers/helpers.ml b/lib/helpers/helpers.ml
index 9d6fcb8..7e0f2aa 100755
--- a/lib/helpers/helpers.ml
+++ b/lib/helpers/helpers.ml
@@ -1,45 +1,2 @@
 module Toml = Toml
 module Console = Console
-
-let date_from_csv : string -> CalendarLib.Date.t option =
- fun value ->
-  let open CalendarLib.Date in
-  try Some (Scanf.sscanf value "%d/%d/%d" (fun d m y -> make y m d)) with
-  | _ -> (
-      (* If the date is a number, try from julian day *)
-      match int_of_string_opt value with
-      | None -> None
-      | Some v -> Some (add (make 1899 12 30) (Period.day v)))
-
-let fold_opt : ('a -> 'b -> 'a option) -> 'a -> 'b -> 'a =
- fun f acc b ->
-  match f acc b with
-  | None -> acc
-  | Some v -> v
-
-let try_opt exp =
-  try Some (exp ()) with
-  | _ -> None
-
-let repr_date formatter date =
-  Format.fprintf formatter "%02d/%02d/%d"
-    (CalendarLib.Date.day_of_month date)
-    CalendarLib.Date.(int_of_month @@ month date)
-    (CalendarLib.Date.year date)
-
-let s_repr_date date =
-  Format.sprintf "%02d/%02d/%d"
-    (CalendarLib.Date.day_of_month date)
-    CalendarLib.Date.(int_of_month @@ month date)
-    (CalendarLib.Date.year date)
-
-let repr_opt f channel = function
-  | None -> ()
-  | Some v -> f channel v
-
-let str_format f =
-  let buffer = Buffer.create 16 in
-  let formatter = Format.formatter_of_buffer buffer in
-  f formatter;
-  Format.pp_print_flush formatter ();
-  Buffer.contents buffer
-- 
cgit v1.2.3