blob: 7607cc16478f3bf3baea85da74f25ea1bdb1b581 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(** EF (1962) season and rank vocabulary. *)
type season =
| Advent
| Christmastide
| Time_after_epiphany
| Septuagesima
| Lent
| Passiontide
| Paschaltide
| Time_after_pentecost
[@@deriving sexp]
type rank = Class1 | Class2 | Class3 | Class4 [@@deriving sexp]
val seasons : season list
val ranks : rank list
val season_to_string : season -> string
val season_of_string : string -> season option
(** The word used when building a slug. Deliberately differs from
{!season_to_string} for [Christmastide] ("christmas") and [Paschaltide]
("easter"), because slugs are lectionary keys adopted verbatim from lectio. *)
val season_slug_word : season -> string
val rank_to_string : rank -> string
val rank_of_string : string -> rank option
val vocab : (season, rank) Colitur_kernel.Vocab.t
|
