[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/23: services: base: Deprecate 'host-name-service' procedure.
From: |
guix-commits |
Subject: |
01/23: services: base: Deprecate 'host-name-service' procedure. |
Date: |
Fri, 3 Mar 2023 12:07:23 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit cb00e600ffe7ec493464788dd16308b7b8e87d20
Author: Bruno Victal <mirai@makinata.eu>
AuthorDate: Sat Feb 25 18:57:47 2023 +0000
services: base: Deprecate 'host-name-service' procedure.
* 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>
---
doc/guix.texi | 16 ++++++++++------
gnu/services/base.scm | 6 ++++--
gnu/system.scm | 2 +-
3 files changed, 15 insertions(+), 9 deletions(-)
diff --git a/doc/guix.texi b/doc/guix.texi
index 6ff525d0ff..537b8e19f5 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -16640,12 +16640,14 @@ details.
@item @code{services} (default: @code{%base-services})
A list of service objects denoting system services. @xref{Services}.
+@anchor{operating-system-essential-services}
@cindex essential services
@item @code{essential-services} (default: ...)
The list of ``essential services''---i.e., things like instances of
-@code{system-service-type} and @code{host-name-service-type} (@pxref{Service
-Reference}), which are derived from the operating system definition itself.
-As a user you should @emph{never} need to touch this field.
+@code{system-service-type} (@pxref{Service Reference}) and
+@code{host-name-service-type}, which are derived from the operating
+system definition itself. As a user you should @emph{never} need to
+touch this field.
@item @code{pam-services} (default: @code{(base-pam-services)})
@cindex PAM
@@ -18018,9 +18020,11 @@ symlink:
@end lisp
@end deffn
-@deffn {Scheme Procedure} host-name-service @var{name}
-Return a service that sets the host name to @var{name}.
-@end deffn
+@defvar host-name-service-type
+Type of the service that sets the system host name, whose value
+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
Install the given fonts on the specified ttys (fonts are per
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 7ad1e765bd..c471107883 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -99,7 +99,8 @@
file-system-service-type
file-system-utilities
swap-service
- host-name-service
+ host-name-service ; deprecated
+ host-name-service-type
%default-console-font
console-font-service-type
console-font-service
@@ -778,7 +779,8 @@ host names."
(one-shot? #t)))
(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}."
(service host-name-service-type name))
diff --git a/gnu/system.scm b/gnu/system.scm
index 53f3c62bb0..bb26d7c9a5 100644
--- a/gnu/system.scm
+++ b/gnu/system.scm
@@ -782,7 +782,7 @@ bookkeeping."
(operating-system-file-systems os)))
(session-environment-service
(operating-system-environment-variables os))
- (host-name-service host-name)
+ (service host-name-service-type host-name)
procs root-fs
(service setuid-program-service-type
(operating-system-setuid-programs os))
- branch master updated (c6480edbe3 -> 2799ad4423), guix-commits, 2023/03/03
- 01/23: services: base: Deprecate 'host-name-service' procedure.,
guix-commits <=
- 02/23: services: base: Deprecate 'login-service' procedure., guix-commits, 2023/03/03
- 04/23: services: base: Deprecate 'agetty-service' procedure., guix-commits, 2023/03/03
- 05/23: doc: kmscon-service-type: Use @defvar @-command., guix-commits, 2023/03/03
- 03/23: services: base: Deprecate 'mingetty-service' procedure., guix-commits, 2023/03/03
- 09/23: services: base: Deprecate 'rngd-service' procedure., guix-commits, 2023/03/03
- 11/23: services: ssh: Deprecate 'dropbear-service' procedure., guix-commits, 2023/03/03
- 06/23: services: base: Deprecate 'nscd-service' procedure., guix-commits, 2023/03/03
- 08/23: services: base: Deprecate 'udev-service' procedure., guix-commits, 2023/03/03
- 10/23: services: ssh: Deprecate 'lsh-service' procedure., guix-commits, 2023/03/03
- 13/23: services: elogind-configuration: Do not ignore 'handle-hibernate-key' by default., guix-commits, 2023/03/03