An important part of preparing an operating-system declaration is listing system services and their configuration.
in order to submit a new
system service for shepherd, we need to define a
record containing list of `extensions, required to start service:
(define my-service-type (service-type (name 'my-service-name) (extensions (list (service-extension ...) (service-extension ...)))))
each item in
extensions list extends shepherd definition of regarding extension.
for example to extend
shepherd-root-service-type we need to define our extended
definition of based on our service:
(define my-shepherd-service (list (shepherd-service ...)))
then we use this definition in our service as follows:
... (extensions (list (service-extension shepherd-root-service-type my-shepherd-service) (service-extension ...)))))
Note: a series of mostly used service extensions will be describe in later sections.
we also might need to define some part of our service configurable, so we need to
define a configuration record for our service, using
guix records module:
(define-record-type* <myservice-configuration> myservice-configuration make-myservice-configuration myservice-configuration? (param1 (myservice-configuration-param1 (default ...)) (param2 (myservice-configuration-param2) ...)))
as a summary, our full service definition could be as follows:
(define-module (path to module) #:use-module (gnu services) #:use-module (gnu services shepherd) #:use-module (guix gexp) #:use-module (guix records) #:use-module (ice-9 match) #:export (myservice-configuration myservice-service-type)) (define-record-type* <myservice-configuration> myservice-configuration make-myservice-configuration myservice-configuration? (param1 myservice-configuration-param1 (default "foo"))) (define myservice-shepherd-service (match-lambda (($ <myservice-configuration> param1) (list (shepherd-service (provision '(myservice)) (documentation "description about service") (requirement '()) ; services need to be started before current service (start #~(make-forkexec-constructor (list (string-append #$service-package "/bin/exe-name") "-foo" "-bar" ; list of command line arguments ))) (stop #~(make-kill-destructor))))))) (define myservice-service-type (service-type (name 'myservice) (extensions (list (service-extension shepherd-root-service-type myservice-shepherd-service))) (default-value (myservice-configuration))))
this service represents a service that managed by shepherd, extending this service is required, if we want to define a custom service from scratch.
important service parameters we usually use are as follows:
provision: defines the service name
requirement: list of services required to be started prior than our service
start: procedure to run on service start
stop: procedure to run on service stop
default: #f- stop service after successful execution of
for a full list of
shepherd-service parameters, you can check official document.
defines the list of
user-group objects that should be created
during service configuration.
(define %myservice-accounts (list (user-group (name "mygroup")) (user-account (name "myuser") (group "mygroup") (comment "my service user") (supplementary-groups '("users" "video"))))) (define myservice-service-type (service-type (name 'myservice) (extensions (list ... (service-extension account-service-type %myservice-accounts)))))
this procedure provides a
gexp that runs on service activation, eg. during
boot time or system reconfigure. in following example we create base config folder
during system reconfigure / boot and set proper permission for it.
(define (myservice-activation config) (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) (let ((user (getpw #$(myservice-configuration-user config))) (directory "/path/to/config/directory")) (mkdir-p directory) (chown directory (passwd:uid %user) (passwd:gid %user)))))) (define myservice-service-type (service-type (name 'myservice) (extensions (list ... (service-extension activation-service-type myservice-activation)))))
a common way to create service
start procedure is to use the
procedure, this procedure that initiates the environment and run provided command
on service start. this procedure takes the command as a
list of strings, plus
a series or optional keys to configure the environment for service to start:
command: command to run on service start provided as
[#:user #f]: user which service is started by (start as
rootof sets to
[#:group #f]: group which service is started by (start as
rootof sets to
[#:log-file #f]: when it sets, standard output and error redirects to that
[#:directory (default-service-directory)]: set the current directory for service to start
[#:file-creation-mask #f]: set the file creation mask for service
[#:environment-variables (default-environment-variables)]: rests the environment variables for service to the provided list
PantherX & (unofficial) GNU Guix Wiki.
Last update: 2021-10-12 20:09:22 +0000
Inspired by the excellent Arch Linux Wiki