blob: 5b2cf33572d5f3c2ce37edea13e48adb8deac442 (
plain)
1
2
3
4
5
6
7
8
9
10
|
(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)
|