| Line | |
|---|
| 1 | (define emacs
|
|---|
| 2 | (make <service>
|
|---|
| 3 | #:provides '(emacs)
|
|---|
| 4 | #:requires '()
|
|---|
| 5 | #:start (make-system-constructor "emacs --daemon")
|
|---|
| 6 | #:stop (make-system-destructor
|
|---|
| 7 | "emacsclient --eval \"(kill-emacs)\"")))
|
|---|
| 8 |
|
|---|
| 9 | (define ssh-agent
|
|---|
| 10 | (make <service>
|
|---|
| 11 | #:provides '(ssh-agent)
|
|---|
| 12 | #:requires '()
|
|---|
| 13 | #:start (make-system-constructor "eval $(ssh-agent)")))
|
|---|
| 14 |
|
|---|
| 15 | (define redshift
|
|---|
| 16 | (make <service>
|
|---|
| 17 | #:provides '(redshift)
|
|---|
| 18 | #:requires '()
|
|---|
| 19 | #:start (make-system-constructor "redshift -l 45:37")
|
|---|
| 20 | #:stop (make-system-destructor
|
|---|
| 21 | "pkill -f redshift")))
|
|---|
| 22 |
|
|---|
| 23 | (register-services emacs)
|
|---|
| 24 | (register-services redshift)
|
|---|
| 25 |
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
