diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 14:09:27 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 14:09:27 +0200 |
| commit | 11698ee4f899b4555847534b83a7dc98b4c05cb6 (patch) | |
| tree | fc4d1c7d1064ef38e35e53690a5913fba1d8c8e6 /module/vcomponent/recurrence | |
| parent | VComponent describe outputs line numbers when available. (diff) | |
| download | calp-11698ee4f899b4555847534b83a7dc98b4c05cb6.tar.gz calp-11698ee4f899b4555847534b83a7dc98b4c05cb6.tar.xz | |
Add some type signatures.
Diffstat (limited to 'module/vcomponent/recurrence')
| -rw-r--r-- | module/vcomponent/recurrence/generate.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/vcomponent/recurrence/generate.scm b/module/vcomponent/recurrence/generate.scm index c272e907..69105fcc 100644 --- a/module/vcomponent/recurrence/generate.scm +++ b/module/vcomponent/recurrence/generate.scm @@ -222,6 +222,8 @@ extension-rule)) +;; (or 'YEARLY 'MONTHLY 'WEEKLY 'HOURLY 'MINUTELY 'SECONDLY) +;; → <datetime> (define (make-date-increment rr) (case (freq rr) [(YEARLY) (datetime date: (date year: (interval rr)))] @@ -309,12 +311,15 @@ (limiters->predicate (all-limiters rrule)) date-stream))) +;; (a := <date|datetime>) => <rrule>, a → (stream a) (define-stream (generate-posibilities rrule start-date) (limit-recurrence-set rrule (extend-recurrence-set rrule start-date))) + +;; Recurring <vcomponent> → (stream <date|datetime>) (define-stream (rrule-instances event) (define rrule (prop event 'RRULE)) |