diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 12:39:30 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-03 12:41:15 +0200 |
commit | 7bbf2470bbdc46089dec1eb4c2328d0c87ba594f (patch) | |
tree | 56aa27c14ed7f42a7a184ce715983795ea9d839a /module/output/ical.scm | |
parent | Add TODO's about early load. (diff) | |
download | calp-7bbf2470bbdc46089dec1eb4c2328d0c87ba594f.tar.gz calp-7bbf2470bbdc46089dec1eb4c2328d0c87ba594f.tar.xz |
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.
Diffstat (limited to 'module/output/ical.scm')
-rw-r--r-- | module/output/ical.scm | 8 |
1 files changed, 5 insertions, 3 deletions
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) |