From 7bbf2470bbdc46089dec1eb4c2328d0c87ba594f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 3 Aug 2020 12:39:30 +0200 Subject: Resolve (datetime instance) TODO with ./configure? Tried adding a ./configure script, which mostly is responsible for downloading a default zoneinfo file, and setting up the environment for the program. I have for quite a while thought about having a configure system for things like these, but also for setting up default paths. Let's see if it works out. --- module/output/ical.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'module/output/ical.scm') diff --git a/module/output/ical.scm b/module/output/ical.scm index a9d325f8..203c6d0e 100644 --- a/module/output/ical.scm +++ b/module/output/ical.scm @@ -16,7 +16,7 @@ :use-module (output types) :use-module (output common) :autoload (vcomponent instance) (global-event-object) - :autoload (datetime instance) (zoneinfo) + :use-module ((datetime instance) :select (zoneinfo)) ) @@ -172,7 +172,7 @@ (awhen (param (prop* event 'DTSTART) 'TZID) ;; TODO this is broken - (add-child! cal (zoneinfo->vtimezone zoneinfo it))) + (add-child! cal (zoneinfo->vtimezone (zoneinfo) it))) (unless (prop event 'UID) (set! (prop event 'UID) @@ -213,7 +213,9 @@ CALSCALE:GREGORIAN\r (for-each component->ical-string ;; TODO we realy should send the earliest event from each timezone here, ;; instead of just the first. - (map (lambda (name) (zoneinfo->vtimezone zoneinfo name (car events))) + (map (lambda (name) (zoneinfo->vtimezone + (zoneinfo) + name (car events))) tz-names))) (for-each component->ical-string events) -- cgit v1.2.3