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