diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-05 16:51:14 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-04-05 16:56:14 +0200 |
| commit | 631518aada0ec4ed227811dc5f25772f1419e16c (patch) | |
| tree | d1ca9a8807fc76ce88df982e3ed66df1dc41a991 | |
| parent | Move code for saving event away from routes. (diff) | |
| download | calp-631518aada0ec4ed227811dc5f25772f1419e16c.tar.gz calp-631518aada0ec4ed227811dc5f25772f1419e16c.tar.xz | |
Set some default values for recur rules.
| -rw-r--r-- | module/vcomponent/recurrence/internal.scm | 7 | ||||
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 2 |
2 files changed, 6 insertions, 3 deletions
diff --git a/module/vcomponent/recurrence/internal.scm b/module/vcomponent/recurrence/internal.scm index e673288d..ae521d77 100644 --- a/module/vcomponent/recurrence/internal.scm +++ b/module/vcomponent/recurrence/internal.scm @@ -47,11 +47,14 @@ wkst) (export! count) +;; Interval and wkst have default values, since those are assumed +;; anyways, and having them set frees us from having to check them at +;; the use site. (define*-public (make-recur-rule key: - freq until count interval bysecond byminute byhour + freq until count (interval 1) bysecond byminute byhour byday bymonthday byyearday byweekno bymonth bysetpos - wkst) + (wkst monday)) ;; TODO possibly validate fields here ;; to prevent creation of invalid rules. ;; This was made apparent when wkst was (incorrectly) set to MO, diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 65d44331..d45cedf9 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -131,7 +131,7 @@ (else o))))) ;; obj - (make-recur-rule interval: 1 wkst: mon) + (make-recur-rule) ;; ((key val) ...) (map (cut string-split <> #\=) |