diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-06 19:08:59 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-13 00:14:55 +0200 |
commit | 59f6fc205b19f0cd2253adb7c656c4eda904a52e (patch) | |
tree | 2390a02195fdae3d79aa2b39d39e134c93871e3c /module/vcalendar/recurrence/parse.scm | |
parent | Rework how attributes and properties are accessed. (diff) | |
download | calp-59f6fc205b19f0cd2253adb7c656c4eda904a52e.tar.gz calp-59f6fc205b19f0cd2253adb7c656c4eda904a52e.tar.xz |
Add earlier work on timezones.
Add earlier work on timezones, with a few inline modifications. This is
really to big of a commit. But we are so far from a stable release that
it should be fine.
The current version seems to eager, and recalculates to many times. This
will soon be fixed in a future version.
Diffstat (limited to '')
-rw-r--r-- | module/vcalendar/recurrence/parse.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/module/vcalendar/recurrence/parse.scm b/module/vcalendar/recurrence/parse.scm index ad8f06c3..de5d7e7c 100644 --- a/module/vcalendar/recurrence/parse.scm +++ b/module/vcalendar/recurrence/parse.scm @@ -87,7 +87,9 @@ (let* (((key val) kv) ;; Lazy fields for the poor man. (symb (lambda () (string->symbol val))) - (date (lambda () (parse-datetime val))) + (date (lambda () + (let* ((date type (parse-datetime val))) + (date->time-utc date)))) (days (lambda () (map parse-day-spec (string-split val #\,)))) (num (lambda () (string->number val))) (nums (lambda () (string->number-list val #\,)))) |