From 2f8aa9ce139ab4fc81244bad638d8d9328b4f83b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 30 Dec 2019 17:12:27 +0100 Subject: REMOVE TZ realign block for DTSTART and DTEND in vcomponents. --- module/vcomponent/parse.scm | 16 +--------------- 1 file changed, 1 insertion(+), 15 deletions(-) (limited to 'module/vcomponent/parse.scm') 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)))]) -- cgit v1.2.3