[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
39/68: installer: locale: Set English as the default language.
From: |
guix-commits |
Subject: |
39/68: installer: locale: Set English as the default language. |
Date: |
Thu, 17 Jan 2019 08:05:17 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 30cf5e04264e18b2fd0dcc73cbce2ef4324563e1
Author: Mathieu Othacehe <address@hidden>
Date: Wed Dec 5 19:29:54 2018 +0900
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(-)
diff --git a/gnu/installer/newt/locale.scm b/gnu/installer/newt/locale.scm
index 0389416..4de78f3 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)
- branch master updated (073f5f2 -> 8cca59e), guix-commits, 2019/01/17
- 23/68: installer: Add configuration formatter., guix-commits, 2019/01/17
- 29/68: installer: Fix ethernet connection., guix-commits, 2019/01/17
- 24/68: installer: Do not ask for keyboard model., guix-commits, 2019/01/17
- 38/68: installer: locale: Make clear that the point is to select a glibc locale., guix-commits, 2019/01/17
- 37/68: installer: Reorder partitionment step., guix-commits, 2019/01/17
- 39/68: installer: locale: Set English as the default language.,
guix-commits <=
- 36/68: installer: Fix compute calls., guix-commits, 2019/01/17
- 40/68: installer: Turn "Cancel" buttons into "Exit" buttons., guix-commits, 2019/01/17
- 41/68: installer: keymap: Do not fail on non-kmscon terminals., guix-commits, 2019/01/17
- 54/68: file-systems: Add read-luks-partition-uuid., guix-commits, 2019/01/17
- 60/68: installer: welcome: Put "Graphical installer" ahead., guix-commits, 2019/01/17
- 45/68: installer: Make sure every sentence is dot terminated., guix-commits, 2019/01/17
- 42/68: installer: keymap: Fix keymap selection of layouts with not variant., guix-commits, 2019/01/17
- 46/68: installer: Make exit button optional for run-file-textbox-page., guix-commits, 2019/01/17
- 48/68: installer: partition: Precise when using Manual/Guided partionment., guix-commits, 2019/01/17
- 61/68: installer: Remove debug popup., guix-commits, 2019/01/17