diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-15 01:40:08 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-15 01:40:08 +0100 |
| commit | e401789de8bef496cd97ee66943d1d602c753213 (patch) | |
| tree | 0d3de8df9bdcf80754759a408301cc2a9773324f /module/calp/html/view/calendar.scm | |
| parent | Propagate default-calendar from backend to frontend. (diff) | |
| download | calp-e401789de8bef496cd97ee66943d1d602c753213.tar.gz calp-e401789de8bef496cd97ee66943d1d602c753213.tar.xz | |
Minor fixes.
Diffstat (limited to 'module/calp/html/view/calendar.scm')
| -rw-r--r-- | module/calp/html/view/calendar.scm | 15 |
1 files changed, 7 insertions, 8 deletions
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 - )))))) - - )) + )))))))) |