(** Whether this celebration can be the observed day at all. The 1960 reform
    reduced many feasts to a bare commemoration; they retain a rank (RG 111
    orders admitted commemorations by dignity) but can never be observed. NOT
    a fifth rank: RG 8 fixes the classes at four. *)
type status = Feast | Commemoration_only [@@deriving sexp]

(** A celebration. Parameterised by the rite's rank type only. *)
type 'r t = {
  slug : Slug.t;
  names : Names.t;
  rank : 'r;
  status : status;
  colour : Colour.t;
  subject : Subject.t;
  citations : Citation.t list;
  layer : string;
}
[@@deriving sexp]

(** [status] defaults to [Feast], [subject] to [Subject.Temporal], [names] to
    empty, [citations] to []. *)
val make :
  slug:Slug.t -> ?names:Names.t -> rank:'r -> ?status:status -> colour:Colour.t ->
  ?subject:Subject.t -> ?citations:Citation.t list -> layer:string -> unit -> 'r t