home: Define ‘%base-home-services’.

* gnu/home.scm (%base-home-services): New variable.
(<home-environment>)[services]: Change default to ‘%base-home-services’.
* guix/scripts/home/import.scm (manifest+configuration-files->code): Use
‘%base-home-services’ by default.
* tests/home-import.scm (match-home-environment-no-services)
(match-home-environment-transformations)
(match-home-environment-no-services-nor-packages)
(match-home-environment-bash-service)
(match-home-environment-bash-service-with-alias): Adjust accordingly.
* doc/he-config-bare-bones.scm: Use ‘%base-home-services’.
* doc/guix.texi (Declaring the Home Environment): Add index entry for
‘%base-home-services’.

Change-Id: Id95ede62b97a976aad138bfc4b63fc0bdf37c7de
This commit is contained in:
Ludovic Courtès 2024-12-13 23:37:03 +01:00
parent f68060a101
commit 0aa45f1854
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
5 changed files with 50 additions and 37 deletions

View file

@ -23,6 +23,7 @@
#:use-module (gnu home services shells)
#:use-module (gnu home services xdg)
#:use-module (gnu home services fontutils)
#:use-module (gnu home services admin)
#:use-module (gnu services)
#:use-module (guix records)
#:use-module (guix diagnostics)
@ -43,7 +44,9 @@
home-environment-with-provenance
home-generation-base))
home-generation-base
%base-home-services))
;;; Comment:
;;;
@ -67,7 +70,7 @@
this-home-environment)))
(services home-environment-user-services
(default '())
(default %base-home-services)
(sanitize validate-service-list))
(location home-environment-location ; <location>
@ -75,6 +78,10 @@
source-properties->location))
(innate)))
(define %base-home-services
;; Non-essential but useful services to have by default.
'())
(define (home-environment-default-essential-services he)
"Return the list of essential services for home environment."
(list