diff options
Diffstat (limited to 'src/ics.ml')
| -rw-r--r-- | src/ics.ml | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1,5 +1,5 @@ (* - * Copyright (C) 2020 Alban Gruin + * Copyright (C) 2020, 2021 Alban Gruin * * ucs is free software: you can redistribute it and/or modify * it under the terms of the GNU Affero General Public License as published @@ -39,10 +39,11 @@ module Event = struct stop: Calendar.t; summary: string; location: string; + groups: string list; } - let make start stop summary location = - {start; stop; summary; location} + let make start stop summary location groups = + {start; stop; summary; location; groups} let to_string date event id = ["BEGIN:VEVENT"; @@ -51,6 +52,7 @@ module Event = struct "DTEND:" ^ to_date event.stop; "DTSTAMP:" ^ date; "SUMMARY:" ^ event.summary; + "COMMENT:" ^ String.concat ", " event.groups; "LOCATION:" ^ event.location; "END:VEVENT\n"] |> List.map ics_split_line |