From e9a37e667c4c7fabb051c6256527bcb849e300b8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 4 Jul 2020 03:24:31 +0200 Subject: Replace datetime literals with proper sexps. --- module/vcomponent/datetime.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'module') diff --git a/module/vcomponent/datetime.scm b/module/vcomponent/datetime.scm index 79ebb5f5..85b37d6d 100644 --- a/module/vcomponent/datetime.scm +++ b/module/vcomponent/datetime.scm @@ -91,7 +91,7 @@ Event must have the DTSTART and DTEND protperty set." (define-public (event-length/day date e) (if (not (prop e 'DTEND)) (if (date? (prop e 'DTSTART)) - #24:00:00 + (time hour: 24) (time)) (let ((start (prop e 'DTSTART)) (end (prop e 'DTEND))) @@ -99,12 +99,12 @@ Event must have the DTSTART and DTEND protperty set." (time- (as-time end) (as-time start))] ;; Starts today, end in future day [(date= date (as-date start)) - (time- #24:00:00 (as-time start))] + (time- (time hour: 24) (as-time start))] ;; Ends today, start earlier day [(date= date (as-date end)) (as-time end)] ;; start earlier date, end later date - [else #24:00:00])))) + [else (time hour: 24)])))) ;; 22:00 - 03:00 @@ -199,7 +199,7 @@ Event must have the DTSTART and DTEND protperty set." ;; event is for limiter (define-public (zoneinfo->vtimezone zoneinfo zone-name event) (define vtimezone (make-vcomponent 'VTIMEZONE)) - (define last-until (datetime date: #1000-01-01)) + (define last-until (datetime date: (date month: 1 day: 1))) (define last-offset (timespec-zero)) (set! (prop vtimezone 'TZID) zone-name) -- cgit v1.2.3