aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2020-08-12 16:58:03 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2020-08-12 16:58:03 +0200
commit4082718439e4facecfe72a94076fb51f1b97cb14 (patch)
treefec36071de06c6a1d80d98d44e3d6c4a516ca458
parentImprove filtering when loading vcomponents. (diff)
downloadcalp-4082718439e4facecfe72a94076fb51f1b97cb14.tar.gz
calp-4082718439e4facecfe72a94076fb51f1b97cb14.tar.xz
Minor changes.
-rw-r--r--module/util.scm1
-rw-r--r--static/style.css1
2 files changed, 2 insertions, 0 deletions
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