From e0fdf7a4716e656510331d819df84b34c06773d7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 23 Apr 2020 11:54:48 +0200 Subject: Recurrence rule WKST properly parsed again. --- module/vcomponent/recurrence/parse.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index a4f86942..36026899 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -82,6 +82,7 @@ (let-lazy ((symb (string->symbol val)) (date (datetime-parser val)) + (day (rfc->datetime-weekday (string->symbol val))) (days (map parse-day-spec (string-split val #\,))) (num (string->number val)) (nums (map string->number (string-split val #\,)))) @@ -94,7 +95,7 @@ (INTERVAL (<= 0 num) => (set (interval o) num)) (FREQ (memv symb intervals) => (set (freq o) symb)) - (WKST (memv symb weekdays) => (set (wkst o) (cdar days))) + (WKST (memv day weekdays) => (set (wkst o) day)) ;; Always positive (BYSECOND (every (lambda (n) (<= 0 n 60)) nums) => (set (bysecond o) nums)) -- cgit v1.2.3