[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#43921] [Shepherd PATCH 2/2] Add User Service example.
|
From: |
Jan Nieuwenhuizen |
|
Subject: |
[bug#43921] [Shepherd PATCH 2/2] Add User Service example. |
|
Date: |
Sun, 11 Oct 2020 12:38:38 +0200 |
|
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) |
Jan (janneke) Nieuwenhuizen writes:
Oops...
> diff --git a/doc/shepherd.texi b/doc/shepherd.texi
> index 7c9a739..41cc651 100644
> --- a/doc/shepherd.texi
> +++ b/doc/shepherd.texi
[..]
> @@ -1025,6 +1027,67 @@ also specifies some more initial values for the slots:
> (restart (...)))))
[..]
> +(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))
...this log-dir bit:
> + (unless (file-exists? log-dir)
> + (mkdir-p log-dir))
is an obsolete leftover.
Janneke
--
Jan Nieuwenhuizen <janneke@gnu.org> | GNU LilyPond http://lilypond.org
Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com