diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 16:27:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 16:27:31 +0200 |
| commit | 0e34f1a4ac6b86b949a53d21b2d9357f280e857f (patch) | |
| tree | bc0648c04f604cdfeb66e6d9ef153039e17d9375 | |
| parent | Update TODO. (diff) | |
| download | calp-0e34f1a4ac6b86b949a53d21b2d9357f280e857f.tar.gz calp-0e34f1a4ac6b86b949a53d21b2d9357f280e857f.tar.xz | |
Fix HTML week number rendering around v. 1.
| -rw-r--r-- | module/output/html.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index cbbc2498..d2762f46 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -558,11 +558,13 @@ ,@(map (lambda (d) `(div (@ (class "column-head")) ,(string-titlecase (week-day-name d 2)))) (weekday-list week-start)) - ,@(let ((first (week-number (car events) week-start)) - (last (week-number (last events) week-start))) + ,@(let ((first (start-of-week (car events) week-start)) + (last (start-of-week (last events) week-start))) (map (lambda (v) `(div (@ (class "row-head")) ,v)) - ;; TODO this fails around new-year - (iota (1+ (- last first)) first))) + (map (lambda (d) (week-number d week-start)) + (stream->list + (stream-take-while (lambda (s) (date<= s last)) + (week-stream first)))))) ,@(map td events )))) |