diff options
Diffstat (limited to 'lib/render/emit_ics.ml')
| -rw-r--r-- | lib/render/emit_ics.ml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/render/emit_ics.ml b/lib/render/emit_ics.ml index b212930..c47031f 100644 --- a/lib/render/emit_ics.ml +++ b/lib/render/emit_ics.ml @@ -69,10 +69,16 @@ let event b ~rite ~dtstamp d = already has to choose the localised one deliberately. *) let name = s d "name" in let summary = Printf.sprintf "%s (%s, %s)" name (s d "rank_name") (s d "colour_name") in + (* W5: [second] is inserted BETWEEN [first] and [gospel], not appended + after -- reading order (OLM 1981 Praenotanda n. 69.1's own "prima + lectio... secunda lectio... Evangelium"), not declaration order. + Absent for every EF day, the same "" no-op [cite] in [Emit_xml.day] + relies on, so EF's DESCRIPTION line is unchanged BY CONSTRUCTION. *) let desc = String.concat "\n" (List.filter (fun x -> x <> "") [ (if s d "first" <> "" then "Epistle " ^ s d "first" else ""); + (if s d "second" <> "" then "Second " ^ s d "second" else ""); (if s d "gospel" <> "" then "Gospel " ^ s d "gospel" else "") ]) in line b "BEGIN:VEVENT"; |
