summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2022-02-25 17:13:12 +0100
committerDanny Milosavljevic <dannym@scratchpost.org>2022-02-25 17:13:18 +0100
commited17082d94bdcdb67713e95d181061d179299aad (patch)
tree2d021467abcbcc54c9364e59139c0cb30efdc982
parentec0404fcc650ddcdd76a41aeee8afb1df72095b4 (diff)
downloadguix-patches-ed17082d94bdcdb67713e95d181061d179299aad.tar
guix-patches-ed17082d94bdcdb67713e95d181061d179299aad.tar.gz
services: agetty: Add shepherd-requirement.
* gnu/services/base.scm (<agetty-configuration>): Add shepherd-requirement. * doc/guix.texi (agetty-configuration): Document it.
-rw-r--r--doc/guix.texi4
-rw-r--r--gnu/services/base.scm8
2 files changed, 10 insertions, 2 deletions
diff --git a/doc/guix.texi b/doc/guix.texi
index 2a08fa05a5..05c260d792 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -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
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 deftp
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 4c8a840156..308940ff14 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -876,6 +876,8 @@ the message of the day, among other things."
;; "Escape hatch" for passing arbitrary command-line arguments.
(extra-options agetty-extra-options ;list of strings
(default '()))
+ (shepherd-requirement agetty-shepherd-requirement ;list of SHEPHERD requirements
+ (default '()))
;;; XXX Unimplemented for now!
;;; (issue-file agetty-issue-file ;file-like
;;; (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?
skip-login? no-newline? login-options chroot hangup? keep-baud? timeout
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
(shepherd-service
(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
;; text is not lost in the middle of kernel messages (see also
;; 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)))
(start