diff options
Diffstat (limited to 'gnu/system/install.scm')
| -rw-r--r-- | gnu/system/install.scm | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/gnu/system/install.scm b/gnu/system/install.scm index 5acfa2c65b..dfa003f256 100644 --- a/gnu/system/install.scm +++ b/gnu/system/install.scm @@ -268,21 +268,21 @@ You have been warned. Thanks for being so brave. "))) (define (normal-tty tty) (mingetty-service (mingetty-configuration (tty tty) - (motd motd) (auto-login "root") (login-pause? #t)))) (list (mingetty-service (mingetty-configuration (tty "tty1") - (motd motd) (auto-login "root"))) + (login-service (login-configuration + (motd motd))) + ;; 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 (mingetty-configuration (tty "tty2") - (motd motd) (auto-login "guest") (login-program (log-to-info)))) @@ -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) |