services: Add gardenhostd-service-type.

* gnu/services/desktop.scm (gardenhostd-service-type)
(gardenhostd-configuration): New variables.
* doc/guix.texi (Desktop Services): Document it.

Change-Id: Ied926c34b620cc8032a0b121c7419644746e2ce9
Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>

2 files changed, 57 insertions, 0 deletions

diff --git a/doc/guix.texi b/doc/guix.texi
index d487a15084e..a0c53e7d8e4 100644
--- a/doc/guix.texi
+++ b/doc/guix.texi
@@ -27017,6 +27017,32 @@ Deprecated option.
 
 @c %end of fragment
 
+@defvar gardenhostd-service-type
+Type for the service that runs gardenhostd, a partial implementation of
+the systemd-hostnamed daemon.  It provides the org.freedesktop.hostname1
+D-Bus interface, which helps applications like gnome-control-center
+retrieve and modify the system’s hostname, as well as set a pretty
+hostname for display.
+
+The value for this service is a @code{<gardenhostd-configuration>} object.
+@end defvar
+
+@c %start of fragment
+
+@deftp {Data Type} gardenhostd-configuration
+Available @code{gardenhostd-configuration} fields are:
+
+@table @asis
+@item @code{gardenhostd} (default: @code{gardenhostd}) (type: package)
+The gardenhostd package to use.
+
+@end table
+
+@end deftp
+
+
+@c %end of fragment
+
 @defvar accountsservice-service-type
 Type for the service that runs AccountsService, a system service that can
 list available accounts, change their passwords, and so on.
diff --git a/gnu/services/desktop.scm b/gnu/services/desktop.scm
index 7a892128123..3d5b38d2af1 100644
--- a/gnu/services/desktop.scm
+++ b/gnu/services/desktop.scm
@@ -22,6 +22,7 @@
 ;;; Copyright © 2025 Jonathan Brielmaier <jonathan.brielmaier@web.de>
 ;;; Copyright © 2025 Sergio Pastor Pérez <sergio.pastorperez@gmail.com>
 ;;; Copyright © 2025 dan <i@dan.games>
+;;; Copyright © 2026 Noé Lopez <noelopez@free.fr>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -143,6 +144,9 @@
             elogind-service  ; deprecated
             elogind-service-type
 
+            gardenhostd-configuration
+            gardenhostd-service-type
+
             %gdm-file-system
             gdm-file-system-service
 
@@ -1643,6 +1647,33 @@ when they log out."
 
 
 ;;;
+;;; Gardenhostd.
+;;;
+
+(define-configuration/no-serialization gardenhostd-configuration
+  (gardenhostd
+   (package gardenhostd)
+   "The gardenhostd package to use."))
+
+(define (gardenhostd-profile config)
+  (list (gardenhostd-configuration-gardenhostd config)))
+
+(define gardenhostd-service-type
+  (service-type
+   (name 'gardenhostd)
+   (extensions
+    (list
+     (service-extension dbus-root-service-type gardenhostd-profile)
+     (service-extension polkit-service-type gardenhostd-profile)))
+   (default-value (gardenhostd-configuration))
+   (description "This service provides gardenhostd, a partial
+implementation of the systemd-hostnamed daemon.  It provides the
+org.freedesktop.hostname1 D-Bus interface, which helps applications
+like gnome-control-center retrieve and modify the system’s hostname,
+as well as set a pretty hostname for display.")))
+
+
+;;;
 ;;; Fontconfig and other desktop file-systems.
 ;;;