aboutsummaryrefslogtreecommitdiff
path: root/lib/render/emit_ics.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/render/emit_ics.ml')
-rw-r--r--lib/render/emit_ics.ml6
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";