From a337995a9dbcf1000679f9a2d086def0daa90b66 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 19 May 2020 17:06:44 +0200 Subject: Recurrence rules now always parsed. --- module/vcomponent/recurrence/display/test.scm | 2 -- module/vcomponent/recurrence/generate-alt.scm | 5 ----- 2 files changed, 7 deletions(-) (limited to 'module/vcomponent/recurrence') diff --git a/module/vcomponent/recurrence/display/test.scm b/module/vcomponent/recurrence/display/test.scm index bcfbaafe..6c566499 100644 --- a/module/vcomponent/recurrence/display/test.scm +++ b/module/vcomponent/recurrence/display/test.scm @@ -25,8 +25,6 @@ (attr comp 'RRULE)) (map (lambda (d) (datetime->string d "~a ~1 ~3")) (stream->list - ;; TODO this assumes a future version of rrule-instances - ;; which assumes a pre parsed recurrence rule. 10 ((@@ (vcomponent recurrence generate-alt) rrule-instances) comp))))))) diff --git a/module/vcomponent/recurrence/generate-alt.scm b/module/vcomponent/recurrence/generate-alt.scm index 77304b55..1d32d793 100644 --- a/module/vcomponent/recurrence/generate-alt.scm +++ b/module/vcomponent/recurrence/generate-alt.scm @@ -332,11 +332,6 @@ rrule base-date))) (define-stream (rrule-instances event) - ;; (define rrule (parse-recurrence-rule - ;; (attr event 'RRULE) - ;; (if (date? (attr event 'DTSTART)) - ;; parse-ics-date parse-ics-datetime))) - (define rrule (attr event 'RRULE)) ;; 3.8.5.1 exdate are evaluated AFTER rrule (and rdate) -- cgit v1.2.3