From 8b426edf1b6d4de0ec825da8a34b1df7b51212db Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 30 Apr 2020 18:37:03 +0200
Subject: Update ical parts to use app context.

---
 module/datetime/app.scm | 18 ++++++++++++++++++
 module/datetime/zic.scm |  2 +-
 2 files changed, 19 insertions(+), 1 deletion(-)
 create mode 100644 module/datetime/app.scm

(limited to 'module/datetime')

diff --git a/module/datetime/app.scm b/module/datetime/app.scm
new file mode 100644
index 00000000..989a0847
--- /dev/null
+++ b/module/datetime/app.scm
@@ -0,0 +1,18 @@
+(define-module (datetime app)
+  :use-module (util)
+  :use-module (util app)
+  :use-module (ice-9 rdelim)
+  :use-module (datetime zic))
+
+(define-method (init-app)
+  (setf app 'zoneinfo
+        (let* ((pipe
+               (-> (@ (global) basedir)
+                   dirname
+                   (string-append "/tzget")
+                   ((@ (ice-9 popen) open-input-pipe))))
+               (path (read-line pipe))
+               (names (string-split (read-line pipe) #\space)))
+          (read-zoneinfo
+           (map (lambda (s) (string-append path file-name-separator-string s))
+                names)))))
diff --git a/module/datetime/zic.scm b/module/datetime/zic.scm
index 1c81b706..02f3230f 100644
--- a/module/datetime/zic.scm
+++ b/module/datetime/zic.scm
@@ -19,7 +19,7 @@
   :use-module (srfi srfi-9 gnu))
 
 
-(define-public (read-zoneinfo . ports-or-filenames)
+(define-public (read-zoneinfo ports-or-filenames)
   (parsed-zic->zoneinfo
    (concatenate
     (map (lambda (port-or-filename)
-- 
cgit v1.2.3