diff options
Diffstat (limited to 'gnu/installer')
| -rw-r--r-- | gnu/installer/newt/network.scm | 10 | ||||
| -rw-r--r-- | gnu/installer/services.scm | 8 |
2 files changed, 12 insertions, 6 deletions
diff --git a/gnu/installer/newt/network.scm b/gnu/installer/newt/network.scm index 459c6d58d8..c78a7c5461 100644 --- a/gnu/installer/newt/network.scm +++ b/gnu/installer/newt/network.scm @@ -168,10 +168,12 @@ Do you want to continue anyway?")) (define (check-substitute-availability) "Check that at least one of the Guix substitute servers is available." (define (substitutes-available?) - (common-urls-alive? - (list - "https://bordeaux.guix.gnu.org/nix-cache-info" - "https://ci.guix.gnu.org/nix-cache-info"))) + (or + (file-exists? "/tmp/installer-assume-online") + (common-urls-alive? + (list + "https://bordeaux.guix.gnu.org/nix-cache-info" + "https://ci.guix.gnu.org/nix-cache-info")))) (let* ((full-value 5)) (run-scale-page diff --git a/gnu/installer/services.scm b/gnu/installer/services.scm index b208a20138..3e47caf4c2 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,8 +195,11 @@ (if (target-hurd?) '%base-services/hurd '%base-services))) - (native-console-font (match (getenv "LANGUAGE") - ((or "be" "bg" "el" "eo" "kk" "ky" + (native-console-font (match (false-if-exception + (string-take (getenv "LANGUAGE") 2)) + ((or "el" ;easier with more complete Greek font + ;; These need Cyrillic: + "be" "bg" "kk" "ky" "mk" "mn" "ru" "sr" "tg" "uk") "LatGrkCyr-8x16") (_ #f))) |