From c1cbef6611df9c8918fee8699b5867d8a54ac810 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 17 Aug 2020 18:13:58 +0200 Subject: even more. --- module/vcomponent/base.scm | 5 +++++ module/vcomponent/ical/output.scm | 9 +++++++++ module/vcomponent/recurrence/internal.scm | 6 ------ 3 files changed, 14 insertions(+), 6 deletions(-) (limited to 'module/vcomponent') diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 7b81fb05..47815a0e 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -189,3 +189,8 @@ (define-public (x-property? symb) (string=? "X-" (string-take (symbol->string symb) 2))) + +(define*-public (internal-field? symbol optional: (prefix "-")) + (string=? prefix + (string-take-to (symbol->string symbol) + (string-length prefix)))) 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) diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index aab65959..502f588f 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -116,12 +116,6 @@ rrule) ";")) -(define (downcase-symbol symb) - (-> symb - symbol->string - string-downcase - string->symbol)) - (define-public (recur-rule->rrule-sxml rrule) (map-fields (lambda (field value) -- cgit v1.2.3