Introduce a new feature to list events without location

This adds a new page listing events without location.

Signed-off-by: Alban Gruin <alban at pa1ch dot fr>

1 files changed, 3 insertions, 0 deletions

diff --git a/src/ics.ml b/src/ics.ml
index be7fb18..4840590 100644
--- a/src/ics.ml
+++ b/src/ics.ml
@@ -68,6 +68,9 @@ module Event = struct
     |> List.map ics_split_line
     |> String.concat "\r\n"
 
+  let format_fields fn event =
+    fn event.summary event.groups event.start event.stop
+
   let has_groups groups event =
     List.fold_left (fun found group ->
         found || List.exists ((=) group) groups) false event.groups