futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

services: agetty: Add shepherd-requirement.

Browse Source 
* gnu/services/base.scm (<agetty-configuration>): Add shepherd-requirement.
* doc/guix.texi (agetty-configuration): Document it.
This commit is contained in:
Danny Milosavljevic 2022-02-25 17:13:12 +01:00
parent ec0404fcc6
commit ed17082d94
No known key found for this signature in database
GPG Key ID: E71A35542C30BAA5
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
doc/guix.texi
View File

@ -16738,6 +16738,10 @@ This option accepts, as an integer, the nice value with which to run the
This option provides an ``escape hatch'' for the user to provide arbitrary This option provides an ``escape hatch'' for the user to provide arbitrary
command-line arguments to @command{agetty} as a list of strings. command-line arguments to @command{agetty} as a list of strings.
@item @code{shepherd-requirement} (default: @code{'()})
The option can be used to provides extra shepherd requirements (for example
@code{'syslogd}) to the respective @code{'term-}* shepherd service.
@end table @end table
@end deftp @end deftp

8
gnu/services/base.scm
View File

@ -876,6 +876,8 @@ the message of the day, among other things."
;; "Escape hatch" for passing arbitrary command-line arguments. ;; "Escape hatch" for passing arbitrary command-line arguments.
(extra-options agetty-extra-options ;list of strings (extra-options agetty-extra-options ;list of strings
(default '())) (default '()))
(shepherd-requirement agetty-shepherd-requirement ;list of SHEPHERD requirements
(default '()))
;;; XXX Unimplemented for now! ;;; XXX Unimplemented for now!
;;; (issue-file agetty-issue-file ;file-like ;;; (issue-file agetty-issue-file ;file-like
;;; (default #f)) ;;; (default #f))
@ -924,7 +926,8 @@ to use as the tty. This is primarily useful for headless systems."
host no-issue? init-string no-clear? local-line extract-baud? host no-issue? init-string no-clear? local-line extract-baud?
skip-login? no-newline? login-options chroot hangup? keep-baud? timeout skip-login? no-newline? login-options chroot hangup? keep-baud? timeout
detect-case? wait-cr? no-hints? no-hostname? long-hostname? detect-case? wait-cr? no-hints? no-hostname? long-hostname?
erase-characters kill-characters chdir delay nice extra-options) erase-characters kill-characters chdir delay nice extra-options
shepherd-requirement)
(list (list
(shepherd-service (shepherd-service
(documentation "Run agetty on a tty.") (documentation "Run agetty on a tty.")
@ -934,7 +937,8 @@ to use as the tty. This is primarily useful for headless systems."
;; service to be done. Also wait for udev essentially so that the tty ;; service to be done. Also wait for udev essentially so that the tty
;; text is not lost in the middle of kernel messages (see also ;; text is not lost in the middle of kernel messages (see also
;; mingetty-shepherd-service). ;; mingetty-shepherd-service).
(requirement '(user-processes host-name udev)) (requirement (cons* 'user-processes 'host-name 'udev
shepherd-requirement))
(modules '((ice-9 match) (gnu build linux-boot))) (modules '((ice-9 match) (gnu build linux-boot)))
(start (start