[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[bug#43921] [Shepherd PATCH 2/2] Add User Service example.

From: Jan (janneke) Nieuwenhuizen
Subject: [bug#43921] [Shepherd PATCH 2/2] Add User Service example.
Date: Sun, 11 Oct 2020 11:43:58 +0200

* modules/shepherd/support.scm: Export %user-cache-dir, %user-config-dir,
* doc/shepherd.texi (User Service examples): Use them in new subsection with

Co-authored-by: Efraim Flashner <>
 doc/shepherd.texi            | 71 ++++++++++++++++++++++++++++++++++--
 modules/shepherd/support.scm |  4 ++
 2 files changed, 71 insertions(+), 4 deletions(-)

diff --git a/doc/shepherd.texi b/doc/shepherd.texi
index 7c9a739..41cc651 100644
--- a/doc/shepherd.texi
+++ b/doc/shepherd.texi
@@ -13,6 +13,7 @@ Copyright @copyright{} @value{OLD-YEARS} Wolfgang J@"ahrling@*
 Copyright @copyright{} @value{NEW-YEARS} Ludovic Courtès@*
 Copyright @copyright{} 2020 Brice Waegeneire@*
 Copyright @copyright{} 2020 Oleg Pykhalov
+Copyright @copyright{} 2020 Jan (janneke) Nieuwenhuizen@*
 Permission is granted to copy, distribute and/or modify this document
 under the terms of the GNU Free Documentation License, Version 1.3 or
@@ -146,10 +147,11 @@ configuration file.  When it is started with superuser 
privileges, it
 tries to use @code{/etc/shepherd.scm}.  When started as normal user, it
 looks for a file called @code{$XDG_CONFIG_HOME/shepherd/init.scm}.  If
 the @code{XDG_CONFIG_HOME} environment variable is not defined,
-@code{$HOME/.config/shepherd/init.scm} is used instead.  With the option
-@code{--config} (or, for short, @code{-c}), you can specify where to
-look instead.  So if you want to start @command{shepherd} with an
-alternative file, use one of the following commands:
+@code{$HOME/.config/shepherd/init.scm} is used instead @ref{User Service
+examples}.  With the option @code{--config} (or, for short, @code{-c}),
+you can specify where to look instead.  So if you want to start
+@command{shepherd} with an alternative file, use one of the following
 shepherd --config=/etc/shepherd.scm.old
@@ -1025,6 +1027,67 @@ also specifies some more initial values for the slots:
                    (restart (...)))))
 @end lisp
+* User Service examples::
+@end menu
+@node User Service examples
+@subsection User Service examples
+For starters, use a toplevel @code{$XDG_CONFIG_HOME/shepherd/init.scm}
+that looks like this:
+(use-modules (shepherd service)
+             ((ice-9 ftw) #:select (scandir)))
+;; Load all the files in the directory 'init.d' with a suffix '.scm'.
+  (lambda (file)
+    (load (string-append "init.d/" file)))
+  (scandir (string-append (dirname (current-filename)) "/init.d")
+           (lambda (file)
+             (string-suffix? ".scm" file))))
+;; Send shepherd into the background
+(action 'shepherd 'daemonize)
+@end lisp
+Then, individual user services can be put in
+@code{$XDG_CONFIG_HOME/shepherd/init.d/}, e.g., for ssh-agent
+;;; Commentary:
+;;; Add to your ~/.bash_profile:
+;;;    SSH_AUTH_SOCK=/run/user/$UID/ssh-agent/socket
+;;;    export SSH_AUTH_SOCK
+;;; Code:
+(use-modules (shepherd support))
+(define ssh-agent
+  (make <service>
+    #:provides '(ssh-agent)
+    #:docstring "Run `ssh-agent'"
+    #:start (let ((socket-dir (string-append %user-runtime-dir "/ssh-agent")))
+              (unless (file-exists? socket-dir)
+                (mkdir-p socket-dir)
+                (chmod socket-dir #o700))
+              (unless (file-exists? log-dir)
+                (mkdir-p log-dir))
+              (make-forkexec-constructor
+               `("ssh-agent" "-D" "-a" ,(string-append socket-dir "/socket"))
+               #:log-file (string-append %user-cache-dir "/ssh-agent.log")))
+    #:stop (make-kill-destructor)
+    #:respawn? #t))
+(register-services ssh-agent)
+(start ssh-agent)
+@end lisp
 @c @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 @node The root and unknown services
diff --git a/modules/shepherd/support.scm b/modules/shepherd/support.scm
index fe64a05..bf34ada 100644
--- a/modules/shepherd/support.scm
+++ b/modules/shepherd/support.scm
@@ -61,6 +61,10 @@
+            %user-cache-dir
+            %user-config-dir
+            %user-runtime-dir
 (define-syntax-rule (if-2.0 subsequent alternate)
Jan Nieuwenhuizen <> | GNU LilyPond
Freelance IT | Avatar®

reply via email to

[Prev in Thread] Current Thread [Next in Thread]