diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 23:58:20 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-07-17 23:58:20 +0200 |
commit | d74deac624de47c672e81c33db5fc39f244ec0ca (patch) | |
tree | 6abe7952fb838f68addb316ccc3d5632d80ca6b0 /module/output/ical.scm | |
parent | Resolve TODO about parameter name. (diff) | |
download | calp-d74deac624de47c672e81c33db5fc39f244ec0ca.tar.gz calp-d74deac624de47c672e81c33db5fc39f244ec0ca.tar.xz |
Properties now return alist instead of hashmap.
Diffstat (limited to 'module/output/ical.scm')
-rw-r--r-- | module/output/ical.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/module/output/ical.scm b/module/output/ical.scm index d0dcd98c..9e147316 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -133,21 +133,19 @@ (define-public (component->ical-string component) (format #t "BEGIN:~a\r\n" (type component)) - ;; TODO this leaks internal information, - ;; write a better API for vcomponent. - (hash-for-each + (for-each ;; Special cases depending on key. ;; Value formatting is handled in @code{value-format}. - (match-lambda* + (match-lambda [(? (compose internal-field? car)) 'noop] - [(key (vlines ...)) + [(key vlines ...) (for vline in vlines (display (vline->string vline)) (display "\r\n"))] - [(key vline) + [(key . vline) (display (vline->string vline)) (display "\r\n")]) (properties component)) |