diff options
Diffstat (limited to '')
-rw-r--r-- | module/output/html.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/output/html.scm b/module/output/html.scm index b016d977..ba09c0ed 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -354,7 +354,7 @@ ,@(stream->list (stream-map fmt-day evs))))))))) -(define-public (html-chunked-main calendars events start-date) +(define-public (html-chunked-main count calendars events start-date) ;; NOTE Something here isn't thread safe. ;; TODO make it thread safe (stream-for-each @@ -366,7 +366,7 @@ (lambda () (apply html-generate calendars events pair))))) (let ((ms (month-stream start-date))) (stream-take - 12 (stream-zip + count (stream-zip ms (stream-map (lambda (d) (date- d (date day: 1))) ; last in month (stream-cdr ms)))) ))) |