diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 00:12:11 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-03 00:12:11 +0200 |
commit | e1b4c48c2e5c65e0749d34ebd20d325dd5ab6c28 (patch) | |
tree | 66798c3876b64239f0cab17ee54a9c0bb0a9f471 /module/entry-points/server.scm | |
parent | Allow btn to take nothing, and default to <button>. (diff) | |
download | calp-e1b4c48c2e5c65e0749d34ebd20d325dd5ab6c28.tar.gz calp-e1b4c48c2e5c65e0749d34ebd20d325dd5ab6c28.tar.xz |
Add intervaltype argument to html-generate.
Diffstat (limited to 'module/entry-points/server.scm')
-rw-r--r-- | module/entry-points/server.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 270a51f4..78eac835 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -76,6 +76,7 @@ next-start: (lambda (d) (date+ d (date day: 7))) prev-start: (lambda (d) (date- d (date day: 7))) render-calendar: render-calendar + intervaltype: 'week )))))) (GET "/month/:start-date.html" (start-date) @@ -95,6 +96,7 @@ render-calendar: render-calendar-table pre-start: (start-of-week start-date) post-end: (end-of-week (end-of-month start-date)) + intervaltype: 'month )))))) ;; TODO export all events in interval |