diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-17 11:41:52 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-17 11:53:54 +0200 |
| commit | 7cb7be17af77caa084c1b5ebf20748dd04f208fa (patch) | |
| tree | d2783e54037fabf51655a596b8d77e76c640d3e7 | |
| parent | 7837a57241775fed221c9e03700af73263e222ed (diff) | |
| download | guix-7cb7be17af77caa084c1b5ebf20748dd04f208fa.tar.gz | |
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.
| -rw-r--r-- | gnu/installer/newt/timezone.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/installer/newt/timezone.scm b/gnu/installer/newt/timezone.scm index 63b44af729..67bf41ff84 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")) |