Add shepherd.
This commit is contained in:
parent
e3ca31f1f8
commit
f2a10bae13
|
@ -0,0 +1,11 @@
|
||||||
|
(define emacs
|
||||||
|
(make <service>
|
||||||
|
#:provides '(emacs)
|
||||||
|
#:start (make-system-constructor "emacs --daemon")
|
||||||
|
#:stop (make-system-destructor "emacsclient -e '(kill-emacs)'")
|
||||||
|
#:respawn? #t))
|
||||||
|
|
||||||
|
(register-services emacs)
|
||||||
|
|
||||||
|
(start emacs)
|
||||||
|
|
|
@ -0,0 +1,11 @@
|
||||||
|
(define gpg-agent
|
||||||
|
(make <service>
|
||||||
|
#:provides '(gpg-agent)
|
||||||
|
#:start (make-system-constructor "gpg-agent --daemon")
|
||||||
|
#:stop (make-system-destructor "gpg-connect-agent killagent /bye")
|
||||||
|
#:respawn? #t))
|
||||||
|
|
||||||
|
(register-services gpg-agent)
|
||||||
|
|
||||||
|
(start gpg-agent)
|
||||||
|
|
|
@ -0,0 +1,11 @@
|
||||||
|
(define polkit-agent
|
||||||
|
(make <service>
|
||||||
|
#:provides '(polkit-agent)
|
||||||
|
#:start (make-system-constructor "$HOME/.guix-profile/libexec/polkit-gnome-authentication-agent-1 &")
|
||||||
|
#:stop (make-system-destructor "pkill -9 polkit-gnome-authentication-agent-1")
|
||||||
|
#:respawn? #t))
|
||||||
|
|
||||||
|
(register-services polkit-agent)
|
||||||
|
|
||||||
|
(start polkit-agent)
|
||||||
|
|
|
@ -0,0 +1,11 @@
|
||||||
|
(define udiskie
|
||||||
|
(make <service>
|
||||||
|
#:provides '(udiskie)
|
||||||
|
#:start (make-system-constructor "udiskie &")
|
||||||
|
#:stop (make-system-destructor "pkill -9 udiskie")
|
||||||
|
#:respawn? #t))
|
||||||
|
|
||||||
|
(register-services udiskie)
|
||||||
|
|
||||||
|
(start udiskie)
|
||||||
|
|
|
@ -0,0 +1,14 @@
|
||||||
|
(use-modules (shepherd service)
|
||||||
|
((ice-9 ftw) #:select (scandir)))
|
||||||
|
|
||||||
|
;; Load all the files in the directory 'init.d' with a suffix '.scm'.
|
||||||
|
(for-each
|
||||||
|
(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)
|
||||||
|
|
Loading…
Reference in New Issue