diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-12 18:31:46 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-12 18:31:46 +0100 |
| commit | e79b8ebc5a905620e09232621c85889e970484e6 (patch) | |
| tree | cd21af8ba607593a2feb717bf0a1dfc70d0710ff /module/calp/html/view/calendar.scm | |
| parent | Add create event button! (diff) | |
| download | calp-e79b8ebc5a905620e09232621c85889e970484e6.tar.gz calp-e79b8ebc5a905620e09232621c85889e970484e6.tar.xz | |
Fix colors on earlier events in sidebar
Diffstat (limited to 'module/calp/html/view/calendar.scm')
| -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)) |