From b992616be8836b5675e50c944b7eea451074ef20 Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Wed, 27 Mar 2024 16:49:28 -0500
Subject: Set timezone in addition to localtime

---
 tw/system.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tw/system.scm b/tw/system.scm
index 58703e99..4cbd6dda 100644
--- a/tw/system.scm
+++ b/tw/system.scm
@@ -125,6 +125,7 @@
   (with-extensions (list guile-json-4 guile-gnutls)  ; guile-gnutls needed by (web client)
     #~(begin
         (use-modules ((srfi srfi-11) #:select (let-values))
+                     ((ice-9 ports) #:select (call-with-output-file))
                      ((ice-9 textual-ports) #:select (get-string-all))
                      (ice-9 format)
                      (json)
@@ -149,6 +150,10 @@
                      (zonefile (string-append #$tzdata "/share/zoneinfo/" timezone)))
                 (delete-file "/etc/localtime")
                 (symlink zonefile "/etc/localtime")
+                (call-with-output-file "/etc/timezone"
+                  (lambda (port)
+                    (display timezone port)
+                    (newline port)))
                 (format (current-error-port)
                         "Updated timezone to ~a: success~%" timezone))))))))
 
-- 
cgit v1.2.3