From e401789de8bef496cd97ee66943d1d602c753213 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 15 Nov 2021 01:40:08 +0100 Subject: Minor fixes. --- module/calp/html/view/calendar.scm | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'module/calp/html') diff --git a/module/calp/html/view/calendar.scm b/module/calp/html/view/calendar.scm index 64ee1c7c..cd262088 100644 --- a/module/calp/html/view/calendar.scm +++ b/module/calp/html/view/calendar.scm @@ -386,17 +386,16 @@ window.default_calendar='~a';" (cons (prop event 'UID) (hash-ref ht name '())))) flat-events) - (map (lambda (pair) - `(calendar (@ (key ,(base64encode (car pair)))) - ,@(map (lambda (uid) `(li ,uid)) - (cdr pair)))) - (hash-map->list cons ht)))) + (hash-map->list + (lambda (key values) + `(calendar (@ (key ,(base64encode key))) + ,@(map (lambda (uid) `(li ,uid)) + values))) + ht))) (div (@ (style "display:none !important;") (id "xcal-data")) ,((@ (vcomponent xcal output) ns-wrap) (map (@ (vcomponent xcal output) vcomponent->sxcal) flat-events - )))))) - - )) + )))))))) -- cgit v1.2.3