From 4082718439e4facecfe72a94076fb51f1b97cb14 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 12 Aug 2020 16:58:03 +0200
Subject: Minor changes.

---
 module/util.scm  | 1 +
 static/style.css | 1 +
 2 files changed, 2 insertions(+)

diff --git a/module/util.scm b/module/util.scm
index fce1c014..1cc357fa 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -375,6 +375,7 @@
     (for value in lst
          (let ((key (proc value)))
            (hash-set! h key (cons value (hash-ref h key '())))))
+    ;; NOTE changing this list to cons allows the output to work with assq-merge.
     (hash-map->list list h)))
 
 ;; (group-by '(0 1 2 3 4 2 5 6) 2)
diff --git a/static/style.css b/static/style.css
index 845443c2..79fd06ab 100644
--- a/static/style.css
+++ b/static/style.css
@@ -849,6 +849,7 @@ along with their colors.
 .square {
     width: 1em;
     height: 1em;
+	background-color: var(--color);
 }
 
 /* Icalendar
-- 
cgit v1.2.3