diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-24 00:40:20 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-24 00:40:20 +0100 |
commit | 91fc32b306a56a605b62fd7884163d483a46cbe4 (patch) | |
tree | cfd0a85ce27c52fff02f469f38f87bcd16fac902 /module/output | |
parent | Replace let-lazy with better version. (diff) | |
download | calp-91fc32b306a56a605b62fd7884163d483a46cbe4.tar.gz calp-91fc32b306a56a605b62fd7884163d483a46cbe4.tar.xz |
Fix ical outuput for with recurrence-id:s.
Diffstat (limited to '')
-rw-r--r-- | module/output/ical.scm | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/module/output/ical.scm b/module/output/ical.scm index 3dbc74b8..146afc8c 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -17,7 +17,7 @@ (with-throw-handler 'wrong-type-arg (lambda () (case key - ((DTSTART DTEND) + ((DTSTART DTEND RECURRENCE-ID) (time->string (value vline) (if (prop vline 'TZID) "~Y~m~dT~H~M~S" "~Y~m~dT~H~M~SZ" ))) @@ -41,12 +41,13 @@ (define (escape-chars str) (with-output-to-string (lambda () - (string-for-each (lambda (ch) - (case ch - ((#\, #\; #\\) => (lambda (c) (display "\\") (display c))) - ((#\newline) (display "\\n")) - (else (display ch))) - ) str)))) + (string-for-each + (lambda (ch) + (case ch + ((#\, #\; #\\) => (lambda (c) (display "\\") (display c))) + ((#\newline) (display "\\n")) + (else (display ch)))) + str)))) ;; Fold long lines to limit width. ;; Since this works in characters, but ics works in bytes |