diff options
| -rw-r--r-- | module/output/html.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index 768b948c..8a932fd0 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -560,6 +560,7 @@ ,@(let ((first (week-number (car events) week-start)) (last (week-number (last events) week-start))) (map (lambda (v) `(div (@ (class "row-head")) ,v)) + ;; TODO this fails around new-year (iota (1+ (- last first)) first))) ,@(map td events )))) |