[polybar] Add Shepherd service

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

@@ -0,0 +1,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)