diff --git a/bin/eventPredicates.ml b/bin/eventPredicates.ml index e2fab5a..46b16c2 100644 --- a/bin/eventPredicates.ml +++ b/bin/eventPredicates.ml @@ -122,7 +122,7 @@ open Utils snippet: '# conversione in pre-processing' priorita: Subito - - id: P15 + - id: P15 ❌ WILL NOT SUPPORT pattern: Partecipanti/organizzatore ics: "ORGANIZER, ATTENDEE*, PARTSTAT…" remind_support: non previsto @@ -130,7 +130,7 @@ open Utils snippet: '# nessuna semantica in Remind' priorita: Quando serve - - id: P16 + - id: P16 ❌ WILL NOT SUPPORT pattern: Allegati/URL esterni ics: "ATTACH, URL" remind_support: non previsto @@ -138,7 +138,7 @@ open Utils snippet: '# link nel testo' priorita: Quando serve - - id: P17 + - id: P17 ✅ pattern: Meeting online (Google/Teams metadati) ics: "X-GOOGLE-CONFERENCE, X-MICROSOFT-*" remind_support: non previsto @@ -458,7 +458,7 @@ let remind_of_event (source : string) (ev : Icalendar.event list) : (Remind.rem, end in - let rem = { Remind.empty with Remind.source; Remind.recurring = recurrence } in + let rem = { Remind.empty with Remind.source; Remind.original_event = Some master; Remind.recurring = recurrence } in ListLabels.fold_left ~init:(Ok rem) all_collectors ~f:(fun rem_or_error pred -> match rem_or_error with diff --git a/bin/remind.ml b/bin/remind.ml index ad6a50a..5c8cf81 100644 --- a/bin/remind.ml +++ b/bin/remind.ml @@ -31,6 +31,7 @@ type simple_monthly = { type rem = { source : string; (** Source file or identifier for the reminder *) original_uuid : string; (** Original UID from the iCalendar event *) + original_event : Icalendar.event option; (** The original iCalendar event *) summary : string; (** Summary or title of the reminder *) location : string option; (** Optional location of the event *) description : string option; (** Optional description of the event *) @@ -56,6 +57,7 @@ let empty = { source = ""; original_uuid = ""; + original_event = None; summary = ""; location = None; description = None;