blob: 0a9656ab8f039e581b11190b5a485a4e84c2ca28 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
(** The EF (1962) temporal cycle, per Rubricae Generales 71-77 and 91. *)
open Colitur_kernel
(** RG 71: Advent I Sunday of the Advent opening in civil year [y]. *)
val advent_start : int -> Date.t
(** First day of the liturgical year opening in civil year [y]. Same as
{!advent_start}. *)
val year_start : int -> Date.t
val season : Date.t -> Vocab_ef.season
(** Last Sunday of October, per the 1960 calendar. *)
val christ_the_king : int -> Date.t
(** The named temporal days: I-class feasts of the Lord, vigils, and days within
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
|
