ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

install: Use login-service.

Browse source 
* gnu/system/install.scm (installation-services): Use login-service.
This commit is contained in:
David Craven 2016-09-11 18:54:13 +02:00
parent 9f20f7f841
commit 2932ab9ca4
No known key found for this signature in database
GPG key ID: C5E051C79C0BECDB
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/system/install.scm
View file

@ -268,21 +268,21 @@ (define (installation-services)
"))) ")))
(define (normal-tty tty) (define (normal-tty tty)
(mingetty-service (mingetty-configuration (tty tty) (mingetty-service (mingetty-configuration (tty tty)
(motd motd)
(auto-login "root") (auto-login "root")
(login-pause? #t)))) (login-pause? #t))))
(list (mingetty-service (mingetty-configuration (list (mingetty-service (mingetty-configuration
(tty "tty1") (tty "tty1")
(motd motd)
(auto-login "root"))) (auto-login "root")))
(login-service (login-configuration
(motd motd)))
;; Documentation. The manual is in UTF-8, but ;; Documentation. The manual is in UTF-8, but
;; 'console-font-service' sets up Unicode support and loads a font ;; 'console-font-service' sets up Unicode support and loads a font
;; with all the useful glyphs like em dash and quotation marks. ;; with all the useful glyphs like em dash and quotation marks.
(mingetty-service (mingetty-configuration (mingetty-service (mingetty-configuration
(tty "tty2") (tty "tty2")
(motd motd)
(auto-login "guest") (auto-login "guest")
(login-program (log-to-info)))) (login-program (log-to-info))))