1 files changed, 40 insertions, 0 deletions
diff --git a/lib/kernel/record.ml b/lib/kernel/record.ml
new file mode 100644
index 0000000..af55f07
--- /dev/null
+++ b/lib/kernel/record.ml
@@ -0,0 +1,40 @@
+(* The canonical flat output view (spec §2.4). Rite-parametric types stop here:
+   every field is a string, so CSV, JSON and the template engine never see a
+   type variable. *)
+type t = {
+  date : string;
+  rite : string;
+  season : string;
+  week : string;  (** "" when the day is outside a numbered week *)
+  weekday : string;
+  slug : string;
+  rank : string;
+  colour : string;
+  subject : string;
+  names : (string * string) list;
+  citations : (string * string) list;
+}
+
+let of_temporal ~rite vocab date (t : ('s, 'r) Temporal.t) =
+  let cel = t.Temporal.office in
+  {
+    date = Date.to_iso8601 date;
+    rite;
+    season = vocab.Vocab.season_to_string t.Temporal.season;
+    week = (match t.Temporal.week with Some n -> string_of_int n | None -> "");
+    weekday = Date.weekday_to_string t.Temporal.weekday;
+    slug = Slug.to_string cel.Celebration.slug;
+    rank = vocab.Vocab.rank_to_string cel.Celebration.rank;
+    colour = Colour.to_string cel.Celebration.colour;
+    subject = Subject.to_string cel.Celebration.subject;
+    names = List.map (fun (l, n) -> (Lang.to_string l, n)) (Names.to_list cel.Celebration.names);
+    citations =
+      List.map (fun c -> (Citation.part_to_string c.Citation.part, c.Citation.reference))
+        cel.Celebration.citations;
+  }
+
+let headers =
+  [ "date"; "rite"; "season"; "week"; "weekday"; "slug"; "rank"; "colour"; "subject" ]
+
+let to_row r =
+  [ r.date; r.rite; r.season; r.week; r.weekday; r.slug; r.rank; r.colour; r.subject ]