aboutsummaryrefslogtreecommitdiff
path: root/module/calp/entry-points/html.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/calp/entry-points/html.scm')
-rw-r--r--module/calp/entry-points/html.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/module/calp/entry-points/html.scm b/module/calp/entry-points/html.scm
index a324305b..2aa7e0e2 100644
--- a/module/calp/entry-points/html.scm
+++ b/module/calp/entry-points/html.scm
@@ -122,7 +122,8 @@ for embedding in a larger page. Currently only applies to the <i>small</i> style
next-start: (lambda (d) (date+ d chunk-length))
prev-start: (lambda (d) (date- d chunk-length))
start-date: start-date
- end-date: (remove-day (date+ start-date chunk-length))
+ end-date: (date- (date+ start-date chunk-length)
+ (date day: 1))
render-calendar: render-calendar
extra-args))))))
(stream-take count (date-stream chunk-length start-date))