diff options
| author | Florian Pelz <pelzflorian@pelzflorian.de> | 2025-10-15 13:31:43 +0200 |
|---|---|---|
| committer | Florian Pelz <pelzflorian@pelzflorian.de> | 2025-10-22 10:43:48 +0200 |
| commit | 1839efad14fe26fc68c51d3f42ccd56d4b172dba (patch) | |
| tree | ae58985eb9dfdac3bc485d8e07ec00d954a577ae | |
| parent | d7e26acdcb6c29a5084863d8d9bf53c8561f01a5 (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
| -rw-r--r-- | gnu/installer/services.scm | 4 |
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") |