diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-16 17:21:29 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-16 17:21:29 +0100 |
commit | 8af5d4a53c083ded3b3648cd9cb24f35e54a4ee3 (patch) | |
tree | 0e0c2ed5a2d9af90cf47f462a5482c00ae9e8572 /module/output/html.scm | |
parent | Export utc? for time objects. (diff) | |
download | calp-8af5d4a53c083ded3b3648cd9cb24f35e54a4ee3.tar.gz calp-8af5d4a53c083ded3b3648cd9cb24f35e54a4ee3.tar.xz |
Add count parameter to chunked html.
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)))) ))) |