me
/
guix
Archived
1
0
Fork 0
Code

installer: Change language as soon as it has been chosen. 

Previously we'd call 'setlocale' only after the complete 'locale' step
had finished.

* gnu/installer/newt/locale.scm (run-language-page): Set the 'LANGUAGE'
environment variable before returning.
master
Ludovic Courtès 2019-04-17 10:34:02 +02:00
parent 15dca289b8
commit 2d5867a213
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/installer/newt/locale.scm
View File

@ -30,9 +30,9 @@
#:export (run-locale-page)) #:export (run-locale-page))
(define (run-language-page languages language->text) (define (run-language-page languages language->text)
(let ((title (G_ "Locale language"))) (define result
(run-listbox-selection-page (run-listbox-selection-page
#:title title #:title (G_ "Locale language")
#:info-text (G_ "Choose the language to use for the \ #:info-text (G_ "Choose the language to use for the \
installation process and for the installed system.") installation process and for the installed system.")
#:info-textbox-width 70 #:info-textbox-width 70
@ -44,7 +44,13 @@ installation process and for the installed system.")
(lambda _ (lambda _
(raise (raise
(condition (condition
(&installer-step-abort))))))) (&installer-step-abort))))))
;; Immediately install the chosen language so that the territory page that
;; comes after (optionally) is displayed in the chosen language.
(setenv "LANGUAGE" result)
result)
(define (run-territory-page territories territory->text) (define (run-territory-page territories territory->text)
(let ((title (G_ "Locale location"))) (let ((title (G_ "Locale location")))