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


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)