diff options
Diffstat (limited to 'module/vcomponent/recurrence/generate.scm')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index 83ef4274..07305647 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -10,15 +10,16 @@ :use-module (vcomponent recurrence parse) :use-module (datetime) - :use-module (ice-9 curried-definitions) ) - + :use-module (ice-9 curried-definitions) + :export (rrule-instances + final-event-occurence + generate-recurrence-set)) - ;; Returns #t if any of the predicates return true when applied to object. (define (any-predicate object predicates) ((@ (srfi srfi-1) any) @@ -354,10 +355,8 @@ (stream-remove (lambda (dt) (member dt exdates)) items) items)))) -(export rrule-instances) - -(define-public (final-event-occurence event) +(define (final-event-occurence event) (define rrule (prop event 'RRULE)) (if (or (count rrule) (until rrule)) @@ -390,7 +389,7 @@ ;; <vevent> -> (stream <vevent>) ;; TODO memoize this? -(define-public (generate-recurrence-set base-event) +(define (generate-recurrence-set base-event) (define duration (event-duration base-event)) |