diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-05 23:43:35 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-11-05 23:43:35 +0100 |
| commit | e469bf6c2b219f7acd08e93adf7e0244b6b3c2c5 (patch) | |
| tree | 7dc253b4920273a74576cf7493581ef0645ffa6b | |
| parent | CATEGORIES (and RESOURCES) join list ical on output. (diff) | |
| download | calp-e469bf6c2b219f7acd08e93adf7e0244b6b3c2c5.tar.gz calp-e469bf6c2b219f7acd08e93adf7e0244b6b3c2c5.tar.xz | |
Xcal input split CATEGORIES.
| -rw-r--r-- | module/vcomponent/xcal/parse.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/vcomponent/xcal/parse.scm b/module/vcomponent/xcal/parse.scm index c97bc492..6b877b9f 100644 --- a/module/vcomponent/xcal/parse.scm +++ b/module/vcomponent/xcal/parse.scm @@ -156,7 +156,11 @@ (set! (prop* component tag*) (make-vline tag* (handle-tag - tag (handle-value type params value)) + tag (let ((v (handle-value type params value))) + ;; TODO possibly more list fields + (if (eq? tag 'categories) + (string-split v #\,) + v))) params)))))]))) ;; children |