tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-09 22:50:34 +02:00
Code Activity

installer: locale: Set English as the default language.

Browse Source 
* gnu/installer/newt/locale.scm (sort-languages): New procedure ...
(run-locale-page)[locale-steps]: ... used here to make english the default
language.
This commit is contained in:
Mathieu Othacehe
2018-12-05 19:29:54 +09:00
committed by Ludovic Courtès
parent 30b4df8627
commit 30cf5e0426
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -146,6 +146,14 @@ glibc locale string and return it."
((locale)
(locale->locale-string locale))))
(define (sort-languages languages)
"Extract some languages from LANGUAGES list and place them ahead."
(let* ((first-languages '("en"))
(other-languages (lset-difference equal?
languages
first-languages)))
`(,@first-languages ,@other-languages)))
(define locale-steps
(list
(installer-step
@@ -153,7 +161,8 @@ glibc locale string and return it."
(compute
(lambda _
(run-language-page
(delete-duplicates (map locale-language supported-locales))
(sort-languages
(delete-duplicates (map locale-language supported-locales)))
(cut language-code->language-name iso639-languages <>)))))
(installer-step
(id 'territory)