diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 17:12:27 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 17:12:27 +0100 |
| commit | 2f8aa9ce139ab4fc81244bad638d8d9328b4f83b (patch) | |
| tree | 8c5c1772e6ef2d8babf0bda190fea37e4ef386a4 /module | |
| parent | Move vcomponent type checks in the parser. (diff) | |
| download | calp-2f8aa9ce139ab4fc81244bad638d8d9328b4f83b.tar.gz calp-2f8aa9ce139ab4fc81244bad638d8d9328b4f83b.tar.xz | |
REMOVE TZ realign block for DTSTART and DTEND in vcomponents.
Diffstat (limited to 'module')
| -rw-r--r-- | module/vcomponent/parse.scm | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/module/vcomponent/parse.scm b/module/vcomponent/parse.scm index 1dcb326f..309ec85f 100644 --- a/module/vcomponent/parse.scm +++ b/module/vcomponent/parse.scm @@ -162,21 +162,7 @@ (with-vline-tz it ;; TODO many of these are way to low - (mod! (value it) (compose date->time-utc parse-datetime)) - - ;; NOTE The old parse-date! had this block. - ;; is it at all needed? - #; - (when (prop (attr* ev 'DTSTART) 'TZID) ; - ;; Re-align date to have correect timezone. This is since time->date gives ; - ;; correct, but the code above may (?) fail to update the timezone. ; - (set! (zone-offset date) (zone-offset (time-utc->date (value dptr))) ; - (value dptr) (date->time-utc date) ; - ; ; ; ; - ;; The standard says that DTEND must have the same ; - ;; timezone as DTSTART. Here we trust that blindly. ; - (zone-offset end-date) (zone-offset date) ; - (value eptr) (date->time-utc end-date))))] + (mod! (value it) (compose date->time-utc parse-datetime)))] [(RECURRENCE-ID) (with-vline-tz it (mod! (value it) (compose date->time-utc parse-datetime)))]) |