From 2ac3e3e8fcc66e20bf1687ae15f033d20b02216d Mon Sep 17 00:00:00 2001 From: Lukasz Kasprzak Date: Fri, 21 Aug 2026 22:18:39 +0200 Subject: feat(kernel): a type for which Mass a day says The lectionary's four-step chain already decides whether a day says its own proper, its own slug's entry, the preceding Sunday's Mass or a Common, and then discards that decision once the citations are out. An ordo needs to print it. --- lib/kernel/mass_formulary.ml | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 lib/kernel/mass_formulary.ml (limited to 'lib/kernel/mass_formulary.ml') diff --git a/lib/kernel/mass_formulary.ml b/lib/kernel/mass_formulary.ml new file mode 100644 index 0000000..8151720 --- /dev/null +++ b/lib/kernel/mass_formulary.ml @@ -0,0 +1,8 @@ +type source = Proper | Own_slug | Preceding_sunday | Common [@@deriving sexp] +type t = { said : Slug.t; via : source } [@@deriving sexp] + +let source_to_string = function + | Proper -> "proper" + | Own_slug -> "own" + | Preceding_sunday -> "preceding-sunday" + | Common -> "common" -- cgit v1.3