diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-05 23:35:36 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-05 23:35:36 +0100 |
commit | bded975370dc24734af8e820aca416162de7a92c (patch) | |
tree | 35589bd87d0d494470abfb701ab33cf0d8a4061f /module/vcomponent/ical/output.scm | |
parent | Move category css from .event to .popup. (diff) | |
download | calp-bded975370dc24734af8e820aca416162de7a92c.tar.gz calp-bded975370dc24734af8e820aca416162de7a92c.tar.xz |
CATEGORIES (and RESOURCES) join list ical on output.
Diffstat (limited to 'module/vcomponent/ical/output.scm')
-rw-r--r-- | module/vcomponent/ical/output.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/module/vcomponent/ical/output.scm b/module/vcomponent/ical/output.scm index a0816679..bcc6bb1d 100644 --- a/module/vcomponent/ical/output.scm +++ b/module/vcomponent/ical/output.scm @@ -44,12 +44,16 @@ [(memv key '(FREEBUSY)) (get-writer 'PERIOD)] + [(memv key '(CATEGORIES RESOURCES)) + (lambda (p v) + (string-join (map (lambda (v) ((get-writer 'TEXT) p v)) + v) + ","))] + [(memv key '(CALSCALE METHOD PRODID COMMENT DESCRIPTION LOCATION SUMMARY TZID TZNAME CONTACT RELATED-TO UID - CATEGORIES RESOURCES - VERSION)) (get-writer 'TEXT)] |