summary refs log tree commit diff
path: root/gnu/system/install.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-09-19 23:36:17 +0900
committerLudovic Courtès <ludo@gnu.org>2016-09-19 23:36:17 +0900
commit4a84a48742ab9e15d7d527c3d965f907ec40672c (patch)
treea8f6b60e1625736e2bd629e9f7cfeed4b00ca9c4 /gnu/system/install.scm
parent71654dfdda4890d7a663a36a7fe754b53591aba6 (diff)
downloadguix-4a84a48742ab9e15d7d527c3d965f907ec40672c.tar.gz
services: console-font: A single service handles all the VTs.
* gnu/services/base.scm (%default-console-font): New variable.
(console-font-shepherd-services): New procedure.
(console-font-service-type): Change to use 'service-type'.
(console-font-service): Rewrite using 'simple-service'.
(%base-services): Use a single CONSOLE-FONT-SERVICE-TYPE instance.
* gnu/system/install.scm (installation-services): Likewise.
Diffstat (limited to 'gnu/system/install.scm')
-rw-r--r--gnu/system/install.scm10
1 files changed, 4 insertions, 6 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index b28925f432..dfa003f256 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -313,12 +313,10 @@ You have been warned.  Thanks for being so brave.
           (cow-store-service)
 
           ;; Install Unicode support and a suitable font.
-          (console-font-service "tty1")
-          (console-font-service "tty2")
-          (console-font-service "tty3")
-          (console-font-service "tty4")
-          (console-font-service "tty5")
-          (console-font-service "tty6")
+          (service console-font-service-type
+                   (map (lambda (tty)
+                          (cons tty %default-console-font))
+                        '("tty1" "tty2" "tty3" "tty4" "tty5" "tty6")))
 
           ;; To facilitate copy/paste.
           (gpm-service)