13 lines
344 B
Scheme
13 lines
344 B
Scheme
|
(define xbindkeys
|
||
|
(make <service>
|
||
|
#:provides '(xbindkeys)
|
||
|
#:docstring "Run `xbindkeys'"
|
||
|
#:start (make-forkexec-constructor
|
||
|
'("xbindkeys" "--nodaemon")
|
||
|
#:log-file (string-append (getenv "HOME") "/.logs/xbindkeys.log"))
|
||
|
#:stop (make-kill-destructor)))
|
||
|
|
||
|
(register-services xbindkeys)
|
||
|
|
||
|
(start xbindkeys)
|