(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)