diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:10:48 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:10:48 +0100 |
| commit | 9ae2e72045e293fa2dd3d2b6c9a335ca8a1edc5d (patch) | |
| tree | e9ea644e4b3dd7c14497aa6475bd5590aa757f7d /module/vcomponent/recurrence.scm | |
| parent | Introduce printer: argument to define-quick-record. (diff) | |
| download | calp-9ae2e72045e293fa2dd3d2b6c9a335ca8a1edc5d.tar.gz calp-9ae2e72045e293fa2dd3d2b6c9a335ca8a1edc5d.tar.xz | |
Rework vcomponent recurrence internals.
Diffstat (limited to 'module/vcomponent/recurrence.scm')
| -rw-r--r-- | module/vcomponent/recurrence.scm | 15 |
1 files changed, 5 insertions, 10 deletions
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)) |