nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2019-04-17 11:41:52 +02:00
parent 7837a57241
commit 7cb7be17af
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/installer/newt/timezone.scm
View File

@ -50,12 +50,15 @@ returned."
(define (run-page timezone-tree) (define (run-page timezone-tree)
(define (loop path) (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))) (let ((timezones (locate-children timezone-tree path)))
(run-listbox-selection-page (run-listbox-selection-page
#:title (G_ "Timezone") #:title (G_ "Timezone")
#:info-text (G_ "Please select a timezone.") #:info-text (G_ "Please select a timezone.")
#:listbox-items timezones #:listbox-items timezones
#:listbox-item->text identity #:listbox-item->text (cut gettext <> "iso_3166-1")
#:button-text (if (null? path) #:button-text (if (null? path)
(G_ "Exit") (G_ "Exit")
(G_ "Back")) (G_ "Back"))