mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-30 22:36:50 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: mingetty: Add additional configuration options.

Browse source 
Not all aspects of mingetty were configurable, so this commit adds the
additional configuration fields to support that.

* gnu/services/base.scm (<mingetty-configuration>): Add delay, print-issue,
print-hostname, nice, working-directory, root-directory fields.
(mingetty-shepherd-service): Use the new fields.
(define-module)<#:export>: Export the new accessors.
* doc/guix.texi (Base Services)<mingetty-configuration>: Document the
additional field.

Change-Id: I4557a82498805ade0b341feda9d33eccc305690f
This commit is contained in:
Tomas Volf 2024-12-13 17:27:44 +01:00 committed by Maxim Cournoyer
parent b8d72efbb1
commit 7068f6f7a5
No known key found for this signature in database
GPG key ID: 1260E46482E63562
2 changed files with 86 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
doc/guix.texi
View file

@ -19429,7 +19429,33 @@ When set to @code{#t} in conjunction with @var{auto-login}, the user
will have to press a key before the log-in shell is launched.
@item @code{clear-on-logout?} (default: @code{#t})
When set to @code{#t}, the screen will be cleared after logout.
When set to @code{#t}, the screen will be cleared before showing the
login prompt. The field name is bit unfortunate, since it controls
clearing also before the initial login, not just after a logout.
@item @code{delay} (default: @code{#f})
When set to a number, sleep that many seconds after startup.
@item @code{print-issue} (default: @code{#t})
When set to @code{#t}, write out a new line and the content of
@file{/etc/issue}. Value of @code{'no-nl} can be used to suppress the
new line.
@item @code{print-hostname} (default: @code{#t})
When set to @code{#t}, print the host name before the login prompt. The
host name is printed up to the first dot. Can be set to @code{'long} to
print the full host name.
@item @code{nice} (default: @code{#f})
When set to a number, change the process priority using @code{nice}.
@item @code{working-directory} (default: @code{#f})
When set to a string, change into that directory before calling the
login program.
@item @code{root-directory} (default: @code{#f})
When set to a string, use this directory at the process's root
directory.
@item @code{mingetty} (default: @var{mingetty})
The Mingetty package to use.

72
gnu/services/base.scm
View file

@ -187,6 +187,12 @@ (define-module (gnu services base)
mingetty-configuration-login-pause?
mingetty-configuration-clear-on-logout?
mingetty-configuration-mingetty
mingetty-configuration-delay
mingetty-configuration-print-issue
mingetty-configuration-print-hostname
mingetty-configuration-nice
mingetty-configuration-working-directory
mingetty-configuration-root-directory
mingetty-configuration?
mingetty-service ; deprecated
mingetty-service-type
@ -1240,22 +1246,36 @@ (define-deprecated (agetty-service config)
(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-auto-login ;string | #f
(default #f))
(login-program mingetty-login-program ;gexp
(default #f))
(login-pause? mingetty-login-pause? ;Boolean
(default #f))
(clear-on-logout? mingetty-clear-on-logout? ;Boolean
(default #t)))
(mingetty mingetty-configuration-mingetty ;file-like
(default mingetty))
(tty mingetty-configuration-tty) ;string
(auto-login mingetty-auto-login ;string | #f
(default #f))
(login-program mingetty-login-program ;gexp
(default #f))
(login-pause? mingetty-login-pause? ;Boolean
(default #f))
(clear-on-logout? mingetty-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)))
(define (mingetty-shepherd-service config)
(match-record config <mingetty-configuration>
(mingetty tty auto-login login-program
login-pause? clear-on-logout?)
( mingetty tty auto-login login-program
login-pause? clear-on-logout? delay
print-issue print-hostname nice
working-directory root-directory)
(list
(shepherd-service
(documentation "Run mingetty on an tty.")
@ -1286,6 +1306,32 @@ (define (mingetty-shepherd-service config)
#~())
#$@(if login-pause?
#~("--loginpause")
#~())
#$@(if delay
#~("--delay" #$(number->string delay))
#~())
#$@(match print-issue
(#t
#~())
('no-nl
#~("--nonewline"))
(#f
#~("--noissue")))
#$@(match print-hostname
(#t
#~())
('long
#~("--long-hostname"))
(#f
#~("--nohostname")))
#$@(if nice
#~("--nice" #$(number->string nice))
#~())
#$@(if working-directory
#~("--chdir" #$working-directory)
#~())
#$@(if root-directory
#~("--chroot" #$root-directory)
#~()))))
(stop #~(make-kill-destructor))))))