(define emacs
  (make <service>
    #:provides '(emacs)
    #:requires '()
    #:start (make-system-constructor "emacs --daemon")
    #:stop (make-system-destructor
            "emacsclient --eval \"(kill-emacs)\"")))

(define ssh-agent
  (make <service>
    #:provides '(ssh-agent)
    #:requires '()
    #:start (make-system-constructor "eval $(ssh-agent)")))

(define redshift
  (make <service>
    #:provides '(redshift)
    #:requires '()
    #:start (make-system-constructor "redshift -l 45:37")
    #:stop (make-system-destructor
            "pkill -f redshift")))

(register-services emacs)
(register-services redshift)