diff options
| author | Lukasz Kasprzak <lukas@labunix.xyz> | 2026-08-21 22:18:39 +0200 |
|---|---|---|
| committer | Lukasz Kasprzak <lukas@labunix.xyz> | 2026-08-21 22:18:39 +0200 |
| commit | 2ac3e3e8fcc66e20bf1687ae15f033d20b02216d (patch) | |
| tree | eb767363902495f1b5af523b1a5312f6e9501d06 /lib/kernel/mass_formulary.ml | |
| parent | 4f87cbde4ee79ac96aa7ebfed105b3a5ec02be43 (diff) | |
| download | colitur-2ac3e3e8fcc66e20bf1687ae15f033d20b02216d.tar.gz colitur-2ac3e3e8fcc66e20bf1687ae15f033d20b02216d.zip | |
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.
Diffstat (limited to 'lib/kernel/mass_formulary.ml')
| -rw-r--r-- | lib/kernel/mass_formulary.ml | 8 |
1 files changed, 8 insertions, 0 deletions
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" |