From 9ae2e72045e293fa2dd3d2b6c9a335ca8a1edc5d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Dec 2019 02:10:48 +0100 Subject: Rework vcomponent recurrence internals. --- module/vcomponent/recurrence.scm | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) (limited to 'module/vcomponent/recurrence.scm') diff --git a/module/vcomponent/recurrence.scm b/module/vcomponent/recurrence.scm index f941e7a8..12f901d2 100644 --- a/module/vcomponent/recurrence.scm +++ b/module/vcomponent/recurrence.scm @@ -1,12 +1,7 @@ (define-module (vcomponent recurrence) - #:use-module (vcomponent base) #:use-module (vcomponent recurrence generate) - #:re-export (generate-recurrence-set) - #:export (repeating?)) - -;; EXDATE is also a property linked to recurense rules -;; but that property alone don't create a recuring event. -(define (repeating? ev) - "Does this event repeat?" - (or (attr ev 'RRULE) - (attr ev 'RDATE))) + #:use-module (vcomponent recurrence parse) + #:use-module (vcomponent recurrence internal) + #:re-export (generate-recurrence-set + parse-recurrence-rule + repeating? format-recur-rule make-recur-rule)) -- cgit v1.2.3