diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 01:05:31 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-15 01:05:31 +0200 |
| commit | 527dbb981e87ca70d3f425b965b08d3b3420198a (patch) | |
| tree | db8435256c90024b054eed6211e06fc1f8e9631b /module/vcomponent/recurrence | |
| parent | Repaired ability to set config value to #f. (diff) | |
| download | calp-527dbb981e87ca70d3f425b965b08d3b3420198a.tar.gz calp-527dbb981e87ca70d3f425b965b08d3b3420198a.tar.xz | |
Work on parser.
Diffstat (limited to 'module/vcomponent/recurrence')
| -rw-r--r-- | module/vcomponent/recurrence/parse.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/module/vcomponent/recurrence/parse.scm b/module/vcomponent/recurrence/parse.scm index 3df5cc25..efcf984c 100644 --- a/module/vcomponent/recurrence/parse.scm +++ b/module/vcomponent/recurrence/parse.scm @@ -79,7 +79,12 @@ (let* (((key val) kv)) (let-lazy ((symb (string->symbol val)) - (date (datetime-parser val)) + ;; TODO this is an ugly hack. + ;; But sending in datetime-parser instead + ;; leads to dependency problems in vcomponent. + (date (catch 'parse-error + (lambda () (parse-ics-datetime val)) + (lambda _ (parse-ics-date val)))) (day (rfc->datetime-weekday (string->symbol val))) (days (map parse-day-spec (string-split val #\,))) (num (string->number val)) |