diff options
Diffstat (limited to 'module/vcomponent/ical/output.scm')
| -rw-r--r-- | module/vcomponent/ical/output.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/module/vcomponent/ical/output.scm b/module/vcomponent/ical/output.scm index eead035b..ff5465c6 100644 --- a/module/vcomponent/ical/output.scm +++ b/module/vcomponent/ical/output.scm @@ -199,6 +199,15 @@ CALSCALE:GREGORIAN\r (define (print-footer) (format #t "END:VCALENDAR\r\n")) +(define (get-tz-names events) + (lset-difference + equal? (lset-union + equal? '("dummy") + (filter-map + (lambda (vline) (and=> (param vline 'TZID) car)) + (filter-map (extract* 'DTSTART) + events))) + '("dummy" "local"))) (define-public (print-components-with-fake-parent events) |