From 30cf5e04264e18b2fd0dcc73cbce2ef4324563e1 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Wed, 5 Dec 2018 19:29:54 +0900 Subject: installer: locale: Set English as the default language. * gnu/installer/newt/locale.scm (sort-languages): New procedure ... (run-locale-page)[locale-steps]: ... used here to make english the default language. --- gnu/installer/newt/locale.scm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'gnu/installer/newt/locale.scm') diff --git a/gnu/installer/newt/locale.scm b/gnu/installer/newt/locale.scm index 0389416459..4de78f3330 100644 --- a/gnu/installer/newt/locale.scm +++ b/gnu/installer/newt/locale.scm @@ -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) -- cgit v1.2.3