open Sexplib0.Sexp_conv

(* Scripture references only -- never scripture text (spec §1: that is lectio's
   job). *)
type part = First | Psalm | Second | Gospel | Tract | Alleluia | Sequence
[@@deriving sexp]

let all_parts = [ First; Psalm; Second; Gospel; Tract; Alleluia; Sequence ]

let part_to_string = function
  | First -> "first" | Psalm -> "psalm" | Second -> "second" | Gospel -> "gospel"
  | Tract -> "tract" | Alleluia -> "alleluia" | Sequence -> "sequence"

let part_of_string = function
  | "first" -> Some First | "psalm" -> Some Psalm | "second" -> Some Second
  | "gospel" -> Some Gospel | "tract" -> Some Tract | "alleluia" -> Some Alleluia
  | "sequence" -> Some Sequence | _ -> None

type t = { part : part; reference : string } [@@deriving sexp]