From bded975370dc24734af8e820aca416162de7a92c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 5 Nov 2020 23:35:36 +0100
Subject: CATEGORIES (and RESOURCES) join list ical on output.

---
 module/vcomponent/ical/output.scm | 8 ++++++--
 1 file 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)]
 
-- 
cgit v1.2.3