From d74deac624de47c672e81c33db5fc39f244ec0ca Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 17 Jul 2020 23:58:20 +0200
Subject: Properties now return alist instead of hashmap.

---
 module/output/xcal.scm | 46 ++++++++++++++++++++++------------------------
 1 file changed, 22 insertions(+), 24 deletions(-)

(limited to 'module/output/xcal.scm')

diff --git a/module/output/xcal.scm b/module/output/xcal.scm
index b4fee9b7..b2c3f899 100644
--- a/module/output/xcal.scm
+++ b/module/output/xcal.scm
@@ -101,30 +101,28 @@
 
   (remove null?
    `(,tagsymb
-     ;; TODO only have <properties> when it's non-empty.
-     ;; This becomes MUCH easier once properties stop returning
-     ;; a hash-map...
-     (properties
-      ,@(filter
-         identity
-         (hash-map->list
-          (match-lambda*
-            [(? (compose internal-field? car)) #f]
-
-            [(key (vlines ...))
-             (remove null?
-                     `(,(downcase-symbol key)
-                       ,(parameters-tag (reduce assq-merge
-                                                '() (map parameters vlines)))
-                       ,@(for vline in vlines
-                              (vline->value-tag vline))))]
-
-            [(key vline)
-             (remove null?
-                     `(,(downcase-symbol key)
-                       ,(parameters-tag (parameters vline))
-                       ,(vline->value-tag vline)))])
-          (properties component))))
+     ;; only have <properties> when it's non-empty.
+     ,(let ((props
+             (filter-map
+              (match-lambda
+                [(? (compose internal-field? car)) #f]
+
+                [(key vlines ...)
+                 (remove null?
+                         `(,(downcase-symbol key)
+                           ,(parameters-tag (reduce assq-merge
+                                                    '() (map parameters vlines)))
+                           ,@(for vline in vlines
+                                  (vline->value-tag vline))))]
+
+                [(key . vline)
+                 (remove null?
+                         `(,(downcase-symbol key)
+                           ,(parameters-tag (parameters vline))
+                           ,(vline->value-tag vline)))])
+              (properties component))))
+        (unless (null? props)
+          `(properties ,@props)))
      ,(unless (null? (children component))
         `(components ,@(map vcomponent->sxcal (children component)))))))
 
-- 
cgit v1.2.3