feat: naming, localisation and the rebuilt printed output

colitur computed the calendar correctly and could not say what it had
computed. A printed ordo read ef-septuagesima-sunday-2 where a reader
expects Dominica in Sexagesima, and the wall calendar showed slugs in
every cell.

  lib/naming    a language table and a config file, both pure and total,
                parsing the INI reader Overlay_ini already had
  lang/         la.ini and en.ini -- 725 names, every one transcribed
                from the 1962 Missal and citing the line it came from
  templates     the ordo rebuilt as an A5 booklet: one week per page, a
                table of contents, framed days, a colour swatch; the wall
                calendar now fills its sheet instead of a quarter of it
  tools         check_citations.py verifies all 400 citations resolve,
                with 33 self-tests of its own

Names resolve through lang -> declared fallback -> the slug, so a partial
translation is usable from its first line and the fully degraded case is
the old output rather than a blank page.

colitur day and colitur readings are BYTE-IDENTICAL to before, verified
against main rather than asserted; --lang, --raw and the lang/config
subcommands are still to come, and man/colitur-templates.5 still
documents the pre-naming view, so writing a custom template needs the
source until that lands.

1 files changed, 4 insertions, 8 deletions

diff --git a/lib/render/emit_ics.ml b/lib/render/emit_ics.ml
index 41efb95..4e06eae 100644
--- a/lib/render/emit_ics.ml
+++ b/lib/render/emit_ics.ml
@@ -55,14 +55,10 @@ let line b l = Buffer.add_string b (Escape.fold_ics l)
 let event b ~rite ~dtstamp d =
   let iso = s d "iso" in
   if iso <> "" then begin
-    let name =
-      match get d "name" with
-      | Some (T.Obj kvs) -> (
-          match List.assoc_opt "en" kvs with
-          | Some (T.Str x) when x <> "" -> x
-          | _ -> ( match List.assoc_opt "la" kvs with Some (T.Str x) -> x | _ -> s d "slug"))
-      | _ -> s d "slug"
-    in
+    (* [name] is the view's own resolved display string (view.ml) -- no
+       further fallback needed here: under [Lang.raw] it already equals
+       [slug], which is what a miss used to require picking by hand. *)
+    let name = s d "name" in
     let summary = Printf.sprintf "%s (%s, %s)" name (s d "rank") (s d "colour") in
     let desc =
       String.concat "\n"