blob: fb48590108b22318682a19a178c2f2883a7e92b9 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
(** Shapes a civil year of resolved days into the value a template renders
against (spec section 4).
This layer exists because a month grid needs leading blank cells, week
bucketing and an "is this cell in the current month" test, and a logic-less
template can compute none of it. Shaping the data here keeps the engine
logic-less AND makes the grid template trivial. The view model IS the design.
Both [weeks] and [days] are offered at every level: the booklet walks
[days], the grid walks [weeks]. One model, two artefacts, no second code
path that could drift.
Colours are exposed as six booleans rather than a hex string: hex would bake
a presentation policy into the engine, and LaTeX, groff and HTML each want a
different colour expression. Exactly one of the six is true on every day. *)
val of_days :
vocab:('s, 'r) Colitur_kernel.Vocab.t ->
rite:string ->
year:int ->
('s, 'r) Colitur_kernel.Liturgical_day.t list ->
Template.value
(** [of_days ~vocab ~rite ~year days] where [days] is one civil year, 1 January
to 31 December, in order. Pure and total. *)
|
