diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 02:23:21 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-03-19 02:23:21 +0100 |
| commit | 439adfa68eec817e6744ce95bb3ebd469e83fb5c (patch) | |
| tree | edd511387f928d4e408b9a4ee3af4b194069b3bb /module | |
| parent | Add with-streams macro. (diff) | |
| download | calp-439adfa68eec817e6744ce95bb3ebd469e83fb5c.tar.gz calp-439adfa68eec817e6744ce95bb3ebd469e83fb5c.tar.xz | |
Update html code to use with-streams.
Diffstat (limited to 'module')
| -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 fbc4728a..bb01b6cd 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -401,7 +401,9 @@ (with-output-to-file fname (lambda () (html-generate calendars events start-date end-date render-calendar))))]) (let ((ms (month-stream start-date))) - (stream-take - count (stream-zip - ms (stream-map (lambda (d) (date- d (date day: 1))) ; last in month - (stream-cdr ms))))))) + (with-streams + (take count + (zip ms + (map (cut date- <> (date day: 1)) ; last in month + (cdr ms)))))))) + |