From e79b8ebc5a905620e09232621c85889e970484e6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 12 Dec 2021 18:31:46 +0100
Subject: Fix colors on earlier events in sidebar

---
 module/calp/html/view/calendar.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'module/calp/html/view')

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))
-- 
cgit v1.2.3