diff options
Diffstat (limited to 'lib/rites/rite_ef/temporal_ef.mli')
| -rw-r--r-- | lib/rites/rite_ef/temporal_ef.mli | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/rites/rite_ef/temporal_ef.mli b/lib/rites/rite_ef/temporal_ef.mli index 0a9656a..46187c9 100644 --- a/lib/rites/rite_ef/temporal_ef.mli +++ b/lib/rites/rite_ef/temporal_ef.mli @@ -18,3 +18,15 @@ val christ_the_king : int -> Date.t the Octave of the Nativity. Returns (season, slug, colour, rank, week). *) val named : Date.t -> (Vocab_ef.season * string * Colour.t * Vocab_ef.rank * int option) option + +(** The Sunday on which week 1 of a season begins, in civil year [y]. [None] for + [Christmastide], which has no numbered weeks. *) +val week_origin : Vocab_ef.season -> int -> Date.t option + +(** Week within the season. Sunday-aligned, so it is constant Sunday-to-Saturday. + The origin is season-specific: time after Pentecost counts from Pentecost, + time after Epiphany from the first Sunday after Epiphany. *) +val week : Date.t -> int option + +(** The lectionary key for a Sunday, or [None] if [d] is not a Sunday. *) +val sunday_slug : Date.t -> string option |