blob: 8423a8fb6bec61db913854cc41eff2a7995bd90c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(define emacs
(make <service>
#:provides '(emacs)
#:requires '()
#:start (make-system-constructor "emacs --daemon")
#:stop (make-system-destructor
"emacsclient --eval \"(kill-emacs)\"")))
(define ssh-agent
(make <service>
#:provides '(ssh-agent)
#:requires '()
#:start (make-system-constructor "eval $(ssh-agent)")))
(define redshift
(make <service>
#:provides '(redshift)
#:requires '()
#:start (make-system-constructor "redshift -l 45:37")
#:stop (make-system-destructor
"pkill -f redshift")))
(register-services emacs)
(register-services redshift)
|
