diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/render/view.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/render/view.ml b/lib/render/view.ml index 9f67705..733aa45 100644 --- a/lib/render/view.ml +++ b/lib/render/view.ml @@ -38,7 +38,7 @@ let padding_cell dow = [ ("iso", str ""); ("dom", str ""); ("dow", str (string_of_int dow)); ("in_month", bool false); ("season", str ""); ("week", str ""); ("slug", str ""); - ("name", T.Obj []); ("rank", str ""); ("rank_label", T.Obj []); + ("name", T.Obj []); ("rank", str ""); ("colour", str ""); ("is_white", bool false); ("is_red", bool false); ("is_green", bool false); ("is_violet", bool false); ("is_rose", bool false); ("is_black", bool false); @@ -61,8 +61,12 @@ let day_value ~vocab (d : ('s, 'r) K.Liturgical_day.t) = ("week", str (match tmp.K.Temporal.week with Some w -> string_of_int w | None -> "")); ("slug", str (K.Slug.to_string cel.K.Celebration.slug)); ("name", names_value cel.K.Celebration.names); + (* [rank] is the kernel's own class string ("class-1"); there is + deliberately no separate localized rank label here -- the kernel + has no per-language rank names to draw one from, and a field + whose contents cannot honestly differ from [name] should not + exist just to exist. Do not re-add one until the kernel can. *) ("rank", str (vocab.K.Vocab.rank_to_string cel.K.Celebration.rank)); - ("rank_label", names_value cel.K.Celebration.names); ("colour", str (K.Colour.to_string colour)); ("is_white", is K.Colour.White); ("is_red", is K.Colour.Red); ("is_green", is K.Colour.Green); ("is_violet", is K.Colour.Violet); |