(** 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