diff options
Diffstat (limited to '')
-rw-r--r-- | module/calp/html/view/calendar.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index 3abf4959..aa311fcb 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -283,7 +283,11 @@ window.default_calendar='~a';" ;; Figure out way to merge it with the below call. ,@(stream->list (stream-map - fmt-single-event + (lambda (ev) + (fmt-single-event + ev `((id ,(html-id ev)) + (data-calendar ,(base64encode (or (prop (parent ev) 'NAME) + "unknown")))))) (stream-take-while (compose (cut date/-time<? <> start-date) (extract 'DTSTART)) |