09/10: installer: Look up timezone name translations in "iso_3166-1".

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 7cb7be17af77caa084c1b5ebf20748dd04f208fa
Author: Ludovic Courtès <address@hidden>
Date:   Wed Apr 17 11:41:52 2019 +0200

    installer: Look up timezone name translations in "iso_3166-1".
    
    * gnu/installer/newt/timezone.scm (run-timezone-page): Add call to
    'gettext' for timezone names.
---
 gnu/installer/newt/timezone.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/installer/newt/timezone.scm b/gnu/installer/newt/timezone.scm
index 63b44af..67bf41f 100644
--- a/gnu/installer/newt/timezone.scm
+++ b/gnu/installer/newt/timezone.scm
@@ -50,12 +50,15 @@ returned."
 
   (define (run-page timezone-tree)
     (define (loop path)
+      ;; XXX: Translation of time zones isn't perfect here because the
+      ;; "iso_3166-1" domain contains translation for "territories" (like
+      ;; "Antarctic") but not for continents (like "Africa").
       (let ((timezones (locate-children timezone-tree path)))
         (run-listbox-selection-page
          #:title (G_ "Timezone")
          #:info-text (G_ "Please select a timezone.")
          #:listbox-items timezones
-         #:listbox-item->text identity
+         #:listbox-item->text (cut gettext <> "iso_3166-1")
          #:button-text (if (null? path)
                            (G_ "Exit")
                            (G_ "Back"))