pdonadeo/ical2rem
1
0
Fork 0
Code Issues Pull Requests Actions Projects Releases 1 Activity

feat: add location and description fields to reminders

Browse Source
This commit is contained in:
Paolo Donadeo
2026-05-18 14:36:54 +02:00
parent b64f3061f5
commit 37ecfd6130
3 changed files with 69 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
bin/eventPredicates.ml
View File

@@ -170,6 +170,18 @@ let collect_summary rem ev : (Remind.rem, error) result =
| Some s -> Ok { rem with Remind.summary = s }
| None -> Ok { rem with Remind.summary = "" }
let collect_location rem ev : (Remind.rem, error) result =
let location_opt = Utils.get_location ev in
match location_opt with
| Some loc -> Ok { rem with Remind.location = Some loc }
| None -> Ok rem
let collect_description rem ev : (Remind.rem, error) result =
let description_opt = Utils.get_description ev in
match description_opt with
| Some desc -> Ok { rem with Remind.description = Some desc }
| None -> Ok rem
let collect_start_end_duration rem ev : (Remind.rem, error) result =
let _, dtstart = ev.dtstart in
match dtstart with
@@ -417,6 +429,8 @@ let all_collectors : collector list =
[
collect_uuid;
collect_summary;
collect_location;
collect_description;
collect_start_end_duration;
collect_exdates;
collect_overrides;