Paolo Donadeo
c78d94e004
- Simplify `.ocamlformat` to use `default` profile with fewer overrides - Extract shared types and utilities into a `remind_sync` library (`icalendar_augmented`, `ptime_augmented`, `timedesc_augmented`, `result_augmented`, `utf8`) - Replace `eventTransformer.ml` and the predicate system in `eventPredicates.ml` with a sequential collector pipeline (`collect_uuid`, `collect_summary`, `collect_start_end_duration`, etc.) - Simplify `Remind.rem` to a flat record with `Timedesc` date/time fields and replace `rem_to_string` with a leaner `string_of_rem` - Add `separate_master_and_recurrence` and `get_recurrence_id` helpers to `utils.ml` - Wire `main.ml` to call `EventPredicates.remind_of_event` per UID group and print results directly - Remove `eventTransformer` module from `bin/dune` and enable the `remind_sync` library dependency
35 lines
578 B
OCaml
35 lines
578 B
OCaml
include Timedesc
|
|
|
|
type t = Timedesc.t
|
|
|
|
module Time = struct
|
|
include Timedesc.Time
|
|
|
|
let pp = Timedesc.Time.pp_rfc3339 ()
|
|
end
|
|
|
|
module Span = struct
|
|
include Timedesc.Span
|
|
end
|
|
|
|
module Date = struct
|
|
include Timedesc.Date
|
|
|
|
type t = Timedesc.Date.t
|
|
|
|
let pp = Timedesc.Date.pp_rfc3339
|
|
|
|
module Ymd = struct
|
|
include Timedesc.Date.Ymd
|
|
|
|
type error = [ `Does_not_exist | `Invalid_year of int | `Invalid_month of int | `Invalid_day of int ]
|
|
[@@deriving show]
|
|
end
|
|
end
|
|
|
|
module Timestamp = struct
|
|
type t = Timedesc.Timestamp.t
|
|
|
|
let pp = Timedesc.Timestamp.pp
|
|
end
|