From e1b4c48c2e5c65e0749d34ebd20d325dd5ab6c28 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 3 May 2020 00:12:11 +0200 Subject: Add intervaltype argument to html-generate. --- module/entry-points/server.scm | 2 ++ module/output/html.scm | 1 + 2 files changed, 3 insertions(+) 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 diff --git a/module/output/html.scm b/module/output/html.scm index 360151de..eaa5c30b 100644 --- a/module/output/html.scm +++ b/module/output/html.scm @@ -580,6 +580,7 @@ (define*-public (html-generate key: + (intervaltype 'all) ; 'week | 'month | 'all calendars events start-date end-date render-calendar ; (bunch of kv args) → (list sxml) next-start ; date → date -- cgit v1.2.3