17 lines
408 B
Org Mode
17 lines
408 B
Org Mode
|
Define a service for shepherd that starts up Emacs.
|
||
|
|
|
||
|
|
#+begin_src scheme
|
||
|
|
(define emacs
|
||
|
|
(make <service>
|
||
|
|
#:provides '(emacs)
|
||
|
|
#:docstring "Run `emacs --daemon'"
|
||
|
|
#:start (make-forkexec-constructor
|
||
|
|
'("emacs" "--fg-daemon")
|
||
|
|
#:log-file (string-append (getenv "HOME") "/.logs/emacs.log"))
|
||
|
|
#:stop (make-kill-destructor)))
|
||
|
|
|
||
|
|
(register-services emacs)
|
||
|
|
|
||
|
|
(start emacs)
|
||
|
|
#+end_src
|