aboutsummaryrefslogtreecommitdiff
path: root/module
diff options
context:
space:
mode:
Diffstat (limited to 'module')
-rw-r--r--module/output/ical.scm15
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