diff options
Diffstat (limited to 'module/calp/server/routes.scm')
-rw-r--r-- | module/calp/server/routes.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 1fc31333..44fac7e8 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -175,10 +175,10 @@ (html-generate calendars: (get-calendars global-event-object) events: (get-event-set global-event-object) start-date: start-date - end-date: (date- (month+ start-date) + end-date: (date- (date+ start-date (date month: 1)) (date day: 1)) - next-start: month+ - prev-start: month- + next-start: (lambda (d) (date+ d (date month: 1))) + prev-start: (lambda (d) (date- d (date month: 1))) render-calendar: (@ (calp html view calendar month) render-calendar-table) pre-start: (start-of-week start-date) |