From 57322e766a0ece579dafcddcfe2572676a98fca8 Mon Sep 17 00:00:00 2001
From: Lukasz Kasprzak <lukas@labunix.xyz>
Date: Tue, 11 Aug 2026 11:37:32 +0200
Subject: kernel: Names, Citation and Date_spec

Names is an open language-keyed assoc kept in canonical order so equal name
sets serialise identically. Citation carries references only, never text.
Date_spec ships the one form the EF sanctoral needs; 29 February is
constructible and resolves to None in common years.
---
 lib/kernel/citation.mli | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 lib/kernel/citation.mli

(limited to 'lib/kernel/citation.mli')

diff --git a/lib/kernel/citation.mli b/lib/kernel/citation.mli
new file mode 100644
index 0000000..74cd639
--- /dev/null
+++ b/lib/kernel/citation.mli
@@ -0,0 +1,12 @@
+(** A scripture *reference* (e.g. ["Jn 3:16"]), never scripture text. *)
+type part = First | Psalm | Second | Gospel | Tract | Alleluia | Sequence
+[@@deriving sexp]
+
+val all_parts : part list
+val part_to_string : part -> string
+val part_of_string : string -> part option
+
+type t = { part : part; reference : string } [@@deriving sexp]
+
+val sexp_of_t : t -> Sexplib0.Sexp.t
+val t_of_sexp : Sexplib0.Sexp.t -> t
-- 
cgit v1.3