Set timezone in addition to localtime

1 files changed, 5 insertions, 0 deletions

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))))))))