From a55229d34abeb85d9adaca615c9905c7b06a81e1 Mon Sep 17 00:00:00 2001
From: Alban Gruin
Date: Sat, 5 Feb 2022 15:16:18 +0100
Subject: Introduce a new feature to list events without location

This adds a new page listing events without location.

Signed-off-by: Alban Gruin <alban@pa1ch.fr>
---
 src/ics.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/ics.ml')

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
-- 
cgit v1.2.1