diff options
Diffstat (limited to 'lib/render/view.ml')
| -rw-r--r-- | lib/render/view.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/render/view.ml b/lib/render/view.ml index 7bd5416..bedf998 100644 --- a/lib/render/view.ml +++ b/lib/render/view.ml @@ -145,6 +145,15 @@ let weeks_of_month ~first_dow ~month_num ~month_name day_values = [ ("num", str (string_of_int (i + 1))); ("month_num", str month_num); ("month_name", str month_name); + (* True on the month's own first week -- Defect 2 (the continuous + ordo booklet): with the per-week page break gone, a template + needs SOME signal to print a stronger, standalone month banner + at the point a new month begins, rather than repeating the + (unremarkable) "Month . Week N" header run-on run-on. The same + "cheap flag beats invented template logic" call [last] above + already made -- there is still no {{../}} parent-path syntax + to test "is this month's first week" any other way. *) + ("first", bool (i = 0)); ("days", T.List (set_last w)) ]) (chunk [] cells) |