aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--module/vcomponent/recurrence/parse.scm2
-rw-r--r--module/vcomponent/xcal/parse.scm8
2 files changed, 8 insertions, 2 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm
index b48e88e5..ba2a5583 100644
--- a/module/vcomponent/recurrence/parse.scm
+++ b/module/vcomponent/recurrence/parse.scm
@@ -13,7 +13,7 @@
;; transform into weekday objects from
-(define (rfc->datetime-weekday symbol)
+(define-public (rfc->datetime-weekday symbol)
(case symbol
[(SU) sun]
[(MO) mon]
diff --git a/module/vcomponent/xcal/parse.scm b/module/vcomponent/xcal/parse.scm
index 6b752874..6ae8c2f9 100644
--- a/module/vcomponent/xcal/parse.scm
+++ b/module/vcomponent/xcal/parse.scm
@@ -52,7 +52,13 @@
(apply (@ (vcomponent recurrence internal) make-recur-rule)
(concatenate
(for (k v) in value
- (list (symbol->keyword k) v))))]
+ (list (symbol->keyword k)
+ (case k
+ ((wkst)
+ ((@ (vcomponent recurrence parse)
+ rfc->datetime-weekday)
+ (string->symbol v)))
+ (else v))))))]
[(time) (parse-iso-time (car value))]