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

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")