summary refs log tree commit diff
path: root/gnu/system
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-07-17 15:53:01 +0200
committerLudovic Courtès <ludo@gnu.org>2014-07-17 15:53:01 +0200
commit62ca0fdf9e3b76f964bc953bfc39511c41be27b5 (patch)
treeca37952040a53b9de7f027ee4a821e861991bf0b /gnu/system
parent2cf0ea0dbbd5a43a62dadb81948ee29898585dd7 (diff)
downloadguix-62ca0fdf9e3b76f964bc953bfc39511c41be27b5.tar.gz
services: Add 'console-font-service'.
* gnu/services/base.scm (unicode-start, console-font-service): New
  procedures.
  (%base-services): Call 'console-font-service' for TTY1 to TTY6.
* gnu/system/install.scm (installation-services): Add comment about the
  console font.  Call 'console-font-service' for TTY1 to TTY6.
Diffstat (limited to 'gnu/system')
-rw-r--r--gnu/system/install.scm12
1 files changed, 11 insertions, 1 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm
index b30c5577e4..3fbfaf6d77 100644
--- a/gnu/system/install.scm
+++ b/gnu/system/install.scm
@@ -63,7 +63,9 @@ You have been warned.  Thanks for being so brave.
                             #:motd motd
                             #:auto-login "root")
 
-          ;; Documentation.
+          ;; Documentation.  The manual is in UTF-8, but
+          ;; 'console-font-service' sets up Unicode support and loads a font
+          ;; with all the useful glyphs like em dash and quotation marks.
           (mingetty-service "tty2"
                             #:motd motd
                             #:auto-login "guest"
@@ -86,6 +88,14 @@ You have been warned.  Thanks for being so brave.
           ;; Start udev so that useful device nodes are available.
           (udev-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")
+
           (nscd-service))))
 
 (define %issue