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/parse.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 '')
-rw-r--r-- | module/vcomponent/recurrence/parse.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 04c785a4..680a818e 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -1,14 +1,16 @@ (define-module (vcomponent recurrence parse) + #:duplicates (last) ; Replace @var{count} + + #:export (parse-recurrence-rule) + #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) ; Datetime #:use-module (srfi srfi-19 util) #:use-module (srfi srfi-26) #:use-module ((vcomponent datetime) #:select (parse-datetime)) - #:duplicates (last) ; Replace @var{count} #:use-module (vcomponent recurrence internal) #:use-module (util) - #:use-module (ice-9 match) - #:export (parse-recurrence-rule)) + #:use-module (ice-9 match)) ;; @example @@ -76,7 +78,7 @@ (else o))))) ;; obj - (make-recur-rule 1 'MO) + (make-recur-rule (interval 1) (wkst 'MO)) ;; ((key val) ...) (map (cut string-split <> #\=) |