docs: mark P15/P16 as unsupported and P17 as done; store original iCal event in rem

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

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;