diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:46:57 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 23:46:57 +0200 |
commit | 9c94e6ec731ce433aadf12eae22d50e8fec7a91b (patch) | |
tree | dc3db263ba5c2afc725c5d163460597f233c1c8d /module/calp/server/routes.scm | |
parent | Reformat test/datetime.scm (diff) | |
download | calp-9c94e6ec731ce433aadf12eae22d50e8fec7a91b.tar.gz calp-9c94e6ec731ce433aadf12eae22d50e8fec7a91b.tar.xz |
Remove (add|remove)-day, and month[+-].
Procedures where overly specific, and doing it manually was almost no
more work.
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) |