From ad78b193271abb6df486d3acfd7ab94f51cd101c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 11 Aug 2020 19:39:37 +0200
Subject: Can create events without descriptions again.

---
 module/vcomponent/parse/xcal.scm | 30 ++++++++++++++++++------------
 1 file changed, 18 insertions(+), 12 deletions(-)

(limited to 'module/vcomponent/parse/xcal.scm')

diff --git a/module/vcomponent/parse/xcal.scm b/module/vcomponent/parse/xcal.scm
index 76bdb251..06745864 100644
--- a/module/vcomponent/parse/xcal.scm
+++ b/module/vcomponent/parse/xcal.scm
@@ -126,21 +126,27 @@
                  (let ((params (handle-parameters parameters))
                        (tag* (symbol-upcase tag)))
                    (for (type value) in (zip type value)
-                        (set! (prop* component tag*)
-                          (make-vline tag*
-                                      (handle-tag
-                                       tag (handle-value type params value))
-                                      params))))]
+                        ;; ignore empty fields
+                        ;; mostly for <text/>
+                        (unless (null? value)
+                          (set! (prop* component tag*)
+                            (make-vline tag*
+                                        (handle-tag
+                                          tag (handle-value type params value))
+                                        params)))))]
 
                 [(tag (type value ...) ...)
                  (for (type value) in (zip type value)
-                      (let ((params (make-hash-table))
-                            (tag* (symbol-upcase tag)))
-                        (set! (prop* component tag*)
-                          (make-vline tag*
-                                      (handle-tag
-                                       tag (handle-value type params value))
-                                      params))))])))
+                      ;; ignore empty fields
+                      ;; mostly for <text/>
+                      (unless (null? value)
+                        (let ((params (make-hash-table))
+                              (tag* (symbol-upcase tag)))
+                          (set! (prop* component tag*)
+                            (make-vline tag*
+                                        (handle-tag
+                                          tag (handle-value type params value))
+                                        params)))))])))
 
   ;; children
   (awhen (assoc-ref sxcal 'components)
-- 
cgit v1.2.3


From 995929362ea939adf7abf420adf02eb549392fae Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 11 Aug 2020 19:40:24 +0200
Subject: Add TODO about trimming text.

---
 module/vcomponent/parse/xcal.scm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'module/vcomponent/parse/xcal.scm')

diff --git a/module/vcomponent/parse/xcal.scm b/module/vcomponent/parse/xcal.scm
index 06745864..2c8b7fe8 100644
--- a/module/vcomponent/parse/xcal.scm
+++ b/module/vcomponent/parse/xcal.scm
@@ -22,6 +22,7 @@
 
     [(boolean) (string=? "true" (car value))]
 
+    ;; TODO possibly trim whitespace on text fields
     [(cal-address uri text unknown) (car value)]
 
     [(date) (parse-iso-date (car value))]
-- 
cgit v1.2.3