mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-31 14:56:54 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: base: Deprecate 'host-name-service' procedure.

Browse source 
* doc/guix.texi (operating-system Reference): Reorder cross-reference.
Add an anchor to be used ...
(Base services): ... here by host-name-service-type. Document
host-name-service-type.
* gnu/services/base.scm: Export host-name-service-type.
(host-name-service): Deprecate procedure.
* gnu/system.scm (operating-system-default-essential-services): Use
host-name-service-type.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Bruno Victal 2023-02-25 18:57:47 +00:00 committed by Ludovic Courtès
parent c6480edbe3
commit cb00e600ff
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
3 changed files with 15 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
doc/guix.texi
View file

@ -16640,12 +16640,14 @@ details.
@item @code{services} (default: @code{%base-services}) @item @code{services} (default: @code{%base-services})
A list of service objects denoting system services. @xref{Services}. A list of service objects denoting system services. @xref{Services}.
@anchor{operating-system-essential-services}
@cindex essential services @cindex essential services
@item @code{essential-services} (default: ...) @item @code{essential-services} (default: ...)
The list of ``essential services''---i.e., things like instances of The list of ``essential services''---i.e., things like instances of
@code{system-service-type} and @code{host-name-service-type} (@pxref{Service @code{system-service-type} (@pxref{Service Reference}) and
Reference}), which are derived from the operating system definition itself. @code{host-name-service-type}, which are derived from the operating
As a user you should @emph{never} need to touch this field. system definition itself. As a user you should @emph{never} need to
touch this field.
@item @code{pam-services} (default: @code{(base-pam-services)}) @item @code{pam-services} (default: @code{(base-pam-services)})
@cindex PAM @cindex PAM
@ -18018,9 +18020,11 @@ symlink:
@end lisp @end lisp
@end deffn @end deffn
@deffn {Scheme Procedure} host-name-service @var{name} @defvar host-name-service-type
Return a service that sets the host name to @var{name}. Type of the service that sets the system host name, whose value
@end deffn is a string. This service is included in @code{operating-system} by
default (@pxref{operating-system-essential-services,@code{essential-services}}).
@end defvar
@defvar console-font-service-type @defvar console-font-service-type
Install the given fonts on the specified ttys (fonts are per Install the given fonts on the specified ttys (fonts are per

6
gnu/services/base.scm
View file

@ -99,7 +99,8 @@ (define-module (gnu services base)
file-system-service-type file-system-service-type
file-system-utilities file-system-utilities
swap-service swap-service
host-name-service host-name-service ; deprecated
host-name-service-type
%default-console-font %default-console-font
console-font-service-type console-font-service-type
console-font-service console-font-service
@ -778,7 +779,8 @@ (define host-name-service-type
(one-shot? #t))) (one-shot? #t)))
(description "Initialize the machine's host name."))) (description "Initialize the machine's host name.")))
(define (host-name-service name) (define-deprecated (host-name-service name)
host-name-service-type
"Return a service that sets the host name to @var{name}." "Return a service that sets the host name to @var{name}."
(service host-name-service-type name)) (service host-name-service-type name))

2
gnu/system.scm
View file

@ -782,7 +782,7 @@ (define known-fs
(operating-system-file-systems os))) (operating-system-file-systems os)))
(session-environment-service (session-environment-service
(operating-system-environment-variables os)) (operating-system-environment-variables os))
(host-name-service host-name) (service host-name-service-type host-name)
procs root-fs procs root-fs
(service setuid-program-service-type (service setuid-program-service-type
(operating-system-setuid-programs os)) (operating-system-setuid-programs os))