diff options
Diffstat (limited to '')
-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)) |