diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 00:15:16 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 00:15:16 +0100 |
| commit | 816c6cea6a9b4438db7a81f77f85cce84cc4755e (patch) | |
| tree | ec9477a86abd70783486ab3af71cd7f840fbdb1f | |
| parent | Add comments to some procedures. (diff) | |
| download | calp-816c6cea6a9b4438db7a81f77f85cce84cc4755e.tar.gz calp-816c6cea6a9b4438db7a81f77f85cce84cc4755e.tar.xz | |
xcal parse now handles WKST in RRULE's.
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 2 | ||||
| -rw-r--r-- | module/vcomponent/xcal/parse.scm | 8 |
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))] |