summaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorFlorian Pelz <pelzflorian@pelzflorian.de>2025-10-15 13:31:43 +0200
committerFlorian Pelz <pelzflorian@pelzflorian.de>2025-10-22 10:43:48 +0200
commit1839efad14fe26fc68c51d3f42ccd56d4b172dba (patch)
treeae58985eb9dfdac3bc485d8e07ec00d954a577ae /gnu/installer
parentd7e26acdcb6c29a5084863d8d9bf53c8561f01a5 (diff)
installer: Fix installing services depending on language.
Follow-up to d2475833e4ca8238a8254b774a94bd8d973e8cb5. * gnu/installer/services.scm (system-services->configuration): Match on language without territory code. Change-Id: I70be271217732401be4c62dc472f1ebe4dafb764
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/services.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm
index b208a201386..1ef82c96510 100644
--- a/gnu/installer/services.scm
+++ b/gnu/installer/services.scm
@@ -5,6 +5,7 @@
;;; Copyright © 2021 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2021 Leo Famulari <leo@famulari.name>
;;; Copyright © 2023 Denys Nykula <vegan@libre.net.ua>
+;;; Copyright © 2025 Florian Pelz <pelzflorian@pelzflorian.de>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -194,7 +195,8 @@
(if (target-hurd?)
'%base-services/hurd
'%base-services)))
- (native-console-font (match (getenv "LANGUAGE")
+ (native-console-font (match (false-if-exception
+ (string-take (getenv "LANGUAGE") 2))
((or "be" "bg" "el" "eo" "kk" "ky"
"mk" "mn" "ru" "sr" "tg" "uk")
"LatGrkCyr-8x16")