(define home-ydotoold-shepherd-services
  (list (shepherd-service
         (requirement '())
         (provision '(ydotoold))
         (auto-start? #t)
         (start
          (gexp (make-forkexec-constructor
                (list
                 (ungexp (file-append ydotool "/bin/ydotoold"))
                 "--socket-path" "/ksys/input/ydotool.socket")
                #:user "ev"
                #:log-file (ungexp (string-append (getenv "HOME") "/ydotool-daemon.log")))))
         (stop (gexp (make-kill-destructor)))
         )))

(define home-ydotoold-service-type
  (service-type
   (name 'ydotoold)
   (extensions
    (list (service-extension home-shepherd-service-type
                             home-ydotoold-shepherd-services)))
   (description
    "Run ydotoold.")
   (default-value '())))