services: base: Deprecate 'mingetty-service' procedure.
* doc/guix.texi (Base Services): Replace mingetty-service with mingetty-service-type. * gnu/services/base.scm (mingetty-service): Deprecate procedure. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
6dd635b4cf
commit
ad665a38fc
3 changed files with 14 additions and 13 deletions
|
@ -18123,18 +18123,17 @@ the 'root' account has just been created.
|
||||||
@end table
|
@end table
|
||||||
@end deftp
|
@end deftp
|
||||||
|
|
||||||
@deffn {Scheme Procedure} mingetty-service @var{config}
|
@defvar mingetty-service-type
|
||||||
Return a service to run mingetty according to @var{config}, a
|
Type of the service that runs Mingetty, an implementation of the
|
||||||
@code{<mingetty-configuration>} object, which specifies the tty to run, among
|
virtual console log-in. The value for this service is a
|
||||||
other things.
|
@code{<mingetty-configuration>} object.
|
||||||
@end deffn
|
@end defvar
|
||||||
|
|
||||||
@deftp {Data Type} mingetty-configuration
|
@deftp {Data Type} mingetty-configuration
|
||||||
This is the data type representing the configuration of Mingetty, which
|
Data type representing the configuration of Mingetty, which specifies
|
||||||
provides the default implementation of virtual console log-in.
|
the tty to run, among other things.
|
||||||
|
|
||||||
@table @asis
|
@table @asis
|
||||||
|
|
||||||
@item @code{tty}
|
@item @code{tty}
|
||||||
The name of the console this Mingetty runs on---e.g., @code{"tty1"}.
|
The name of the console this Mingetty runs on---e.g., @code{"tty1"}.
|
||||||
|
|
||||||
|
|
|
@ -173,7 +173,7 @@
|
||||||
mingetty-configuration-clear-on-logout?
|
mingetty-configuration-clear-on-logout?
|
||||||
mingetty-configuration-mingetty
|
mingetty-configuration-mingetty
|
||||||
mingetty-configuration?
|
mingetty-configuration?
|
||||||
mingetty-service
|
mingetty-service ; deprecated
|
||||||
mingetty-service-type
|
mingetty-service-type
|
||||||
|
|
||||||
%nscd-default-caches
|
%nscd-default-caches
|
||||||
|
@ -1275,7 +1275,8 @@ the tty to run, among other things."
|
||||||
"Provide console login using the @command{mingetty}
|
"Provide console login using the @command{mingetty}
|
||||||
program.")))
|
program.")))
|
||||||
|
|
||||||
(define* (mingetty-service config)
|
(define-deprecated (mingetty-service config)
|
||||||
|
mingetty-service-type
|
||||||
"Return a service to run mingetty according to @var{config}, which specifies
|
"Return a service to run mingetty according to @var{config}, which specifies
|
||||||
the tty to run, among other things."
|
the tty to run, among other things."
|
||||||
(service mingetty-service-type config))
|
(service mingetty-service-type config))
|
||||||
|
|
|
@ -331,9 +331,10 @@ Using this shell, you can carry out the installation process \"manually.\"
|
||||||
Access documentation at any time by pressing Alt-F2.\x1b[0m
|
Access documentation at any time by pressing Alt-F2.\x1b[0m
|
||||||
")))
|
")))
|
||||||
(define (normal-tty tty)
|
(define (normal-tty tty)
|
||||||
(mingetty-service (mingetty-configuration (tty tty)
|
(service mingetty-service-type
|
||||||
(auto-login "root")
|
(mingetty-configuration (tty tty)
|
||||||
(login-pause? #t))))
|
(auto-login "root")
|
||||||
|
(login-pause? #t))))
|
||||||
|
|
||||||
(define bare-bones-os
|
(define bare-bones-os
|
||||||
(load "examples/bare-bones.tmpl"))
|
(load "examples/bare-bones.tmpl"))
|
||||||
|
|
Reference in a new issue