diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-06-23 04:14:46 +0200 |
commit | 2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd (patch) | |
tree | c48c312e1d44306039fc00cfe4b5cd611d7f9a3b /module/calp/html | |
parent | Remove procedure tabset. (diff) | |
download | calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.gz calp-2fb88465f7a25b1eac0cdbb78a05de9e78e68bfd.tar.xz |
Normalize keyword syntax.
Diffstat (limited to 'module/calp/html')
-rw-r--r-- | module/calp/html/view/calendar/month.scm | 6 | ||||
-rw-r--r-- | module/calp/html/view/calendar/week.scm | 3 |
2 files changed, 7 insertions, 2 deletions
diff --git a/module/calp/html/view/calendar/month.scm b/module/calp/html/view/calendar/month.scm index a19fcdb5..d7cd24ae 100644 --- a/module/calp/html/view/calendar/month.scm +++ b/module/calp/html/view/calendar/month.scm @@ -3,6 +3,7 @@ :use-module (srfi srfi-1) :use-module (srfi srfi-41) :use-module (srfi srfi-41 util) + :use-module (srfi srfi-88) :use-module (datetime) :use-module (calp html view calendar shared) :use-module (calp html config) @@ -19,7 +20,10 @@ ) ;; (stream event-group) -> sxml -(define* (render-calendar-table key: events start-date end-date pre-start post-end #:allow-other-keys) +(define* (render-calendar-table key: events + start-date end-date + pre-start post-end + allow-other-keys:) (define-values (long-events short-events) ;; TODO should be really-long-event? or event-spanning-midnight diff --git a/module/calp/html/view/calendar/week.scm b/module/calp/html/view/calendar/week.scm index 828dce41..ef630c36 100644 --- a/module/calp/html/view/calendar/week.scm +++ b/module/calp/html/view/calendar/week.scm @@ -3,6 +3,7 @@ :use-module (srfi srfi-1) :use-module (srfi srfi-41) :use-module (srfi srfi-71) + :use-module (srfi srfi-88) :use-module (rnrs records syntactic) :use-module (datetime) :use-module (calp html view calendar shared) @@ -26,7 +27,7 @@ ) -(define* (render-calendar key: calendars events start-date end-date #:allow-other-keys) +(define* (render-calendar key: calendars events start-date end-date allow-other-keys:) (let* ((long-events short-events (partition long-event? (stream->list (events-between start-date end-date events)))) (range (date-range start-date end-date))) `((script ,(lambda () (format #t "window.VIEW='week';"))) |