aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-12 17:19:31 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-12 17:56:23 +0200
commit13fd0a30877acc8c152c37d0b04158f7b65e4646 (patch)
tree7b91ecd1b3346ae2ab2948279e5a700e0286dc88
parentc7dc604253631588c659c1022256af98ec9262af (diff)
downloadgnu-guix-13fd0a30877acc8c152c37d0b04158f7b65e4646.tar
gnu-guix-13fd0a30877acc8c152c37d0b04158f7b65e4646.tar.gz
install: Use a font with more glyphs on tty2.
* gnu/system/install.scm (%installation-services): For 'console-font-service-type', use LatGrkCyr-8x16 on tty2.
-rw-r--r--gnu/system/install.scm16
1 files changed, 11 insertions, 5 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index d37315810d..c32bb6056e 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -342,12 +342,18 @@ Access documentation at any time by pressing Alt-F2.\x1b[0m
;; since it takes the installation directory as an argument.
(cow-store-service)
- ;; Install Unicode support and a suitable font. Use a font that
- ;; doesn't have more than 256 glyphs so that we can use colors with
- ;; varying brightness levels (see note in setfont(8)).
+ ;; Install Unicode support and a suitable font.
(service console-font-service-type
- (map (lambda (tty)
- (cons tty "lat9u-16"))
+ (map (match-lambda
+ ("tty2"
+ ;; Use a font that contains characters such as
+ ;; curly quotes as found in the manual.
+ '("tty2" . "LatGrkCyr-8x16"))
+ (tty
+ ;; Use a font that doesn't have more than 256
+ ;; glyphs so that we can use colors with varying
+ ;; brightness levels (see note in setfont(8)).
+ `(,tty . "lat9u-16")))
'("tty1" "tty2" "tty3" "tty4" "tty5" "tty6")))
;; To facilitate copy/paste.