diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/services/base.scm | 61 |
1 files changed, 33 insertions, 28 deletions
diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 7350425bb9..766371ecf1 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -193,6 +193,7 @@ mingetty-configuration-nice mingetty-configuration-working-directory mingetty-configuration-root-directory + mingetty-configuration-shepherd-requirement mingetty-configuration? mingetty-service ; deprecated mingetty-service-type @@ -1246,45 +1247,49 @@ the tty to run, among other things." (define-record-type* <mingetty-configuration> mingetty-configuration make-mingetty-configuration mingetty-configuration? - (mingetty mingetty-configuration-mingetty ;file-like - (default mingetty)) - (tty mingetty-configuration-tty) ;string - (auto-login mingetty-configuration-auto-login ;string | #f - (default #f)) - (login-program mingetty-configuration-login-program ;gexp - (default #f)) - (login-pause? mingetty-configuration-login-pause? ;boolean - (default #f)) - (clear-on-logout? mingetty-configuration-clear-on-logout? ;boolean - (default #t)) - (delay mingetty-configuration-delay ;integer | #f - (default #f)) - (print-issue mingetty-configuration-print-issue ;boolean | symbol - (default #t)) - (print-hostname mingetty-configuration-print-hostname ;boolean | symbol - (default #t)) - (nice mingetty-configuration-nice ;integer | #f - (default #f)) - (working-directory mingetty-configuration-working-directory ;string | #f - (default #f)) - (root-directory mingetty-configuration-root-directory ;string | #f - (default #f))) + (mingetty mingetty-configuration-mingetty ;file-like + (default mingetty)) + (tty mingetty-configuration-tty) ;string + (auto-login mingetty-configuration-auto-login ;string | #f + (default #f)) + (login-program mingetty-configuration-login-program ;gexp + (default #f)) + (login-pause? mingetty-configuration-login-pause? ;boolean + (default #f)) + (clear-on-logout? mingetty-configuration-clear-on-logout? ;boolean + (default #t)) + (delay mingetty-configuration-delay ;integer | #f + (default #f)) + (print-issue mingetty-configuration-print-issue ;boolean | Symbol + (default #t)) + (print-hostname mingetty-configuration-print-hostname ;boolean | Symbol + (default #t)) + (nice mingetty-configuration-nice ;integer | #f + (default #f)) + (working-directory mingetty-configuration-working-directory ;string | #f + (default #f)) + (root-directory mingetty-configuration-root-directory ;string | #f + (default #f)) + (shepherd-requirement mingetty-configuration-shepherd-requirement + ;; Since the login prompt shows the host name, wait + ;; for the 'host-name' service to be done. Also wait + ;; for udev essentially so that the tty text is not + ;; lost in the middle of kernel messages (XXX). + (default '(user-processes host-name udev + virtual-terminal)))) (define (mingetty-shepherd-service config) (match-record config <mingetty-configuration> ( mingetty tty auto-login login-program login-pause? clear-on-logout? delay print-issue print-hostname nice - working-directory root-directory) + working-directory root-directory shepherd-requirement) (list (shepherd-service (documentation "Run mingetty on an tty.") (provision (list (symbol-append 'term- (string->symbol tty)))) - ;; Since the login prompt shows the host name, wait for the 'host-name' - ;; service to be done. Also wait for udev essentially so that the tty - ;; text is not lost in the middle of kernel messages (XXX). - (requirement '(user-processes host-name udev virtual-terminal)) + (requirement shepherd-requirement) (start #~(make-forkexec-constructor (list #$(file-append mingetty "/sbin/mingetty") |