dotfiles/polybar/.config/shepherd/init.d/polybar.scm

11 lines
313 B
Scheme
Raw Permalink Normal View History

2022-03-07 00:10:04 +01:00
(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)