[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
09/10: installer: Look up timezone name translations in "iso_3166-1".
From: |
guix-commits |
Subject: |
09/10: installer: Look up timezone name translations in "iso_3166-1". |
Date: |
Wed, 17 Apr 2019 05:54:09 -0400 (EDT) |
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"))
- branch master updated (0682f08 -> 1475582), guix-commits, 2019/04/17
- 01/10: gnu: awesome: Update home page., guix-commits, 2019/04/17
- 02/10: self: Remove unused variable., guix-commits, 2019/04/17
- 04/10: gnu: guix: Don't pass '--with-libgcrypt-prefix'., guix-commits, 2019/04/17
- 06/10: gnu: guix: Update to b8b1e4d., guix-commits, 2019/04/17
- 07/10: installer: Change language as soon as it has been chosen., guix-commits, 2019/04/17
- 09/10: installer: Look up timezone name translations in "iso_3166-1".,
guix-commits <=
- 08/10: installer: Display language and territory names natively., guix-commits, 2019/04/17
- 10/10: installer: Sort items with 'string-locale<?'., guix-commits, 2019/04/17
- 03/10: build: No longer substitute 'LIBGCRYPT'., guix-commits, 2019/04/17
- 05/10: installer: Desktop environment page now includes window managers., guix-commits, 2019/04/17