;; https://github.com/keybase/client/blob/master/packaging/linux/systemd/keybase.service
(define keybase
  (make <service>
    #:provides '(keybase)
    #:docstring "Provide access to Keybase™"
    #:start (make-forkexec-constructor
              '("keybase" "service")
              #:log-file (string-append (getenv "HOME") "/log/keybase.log"))
    #:stop (make-system-destructor "keybase ctl stop")
    #:actions
    (make-actions
      (restart (lambda _ (system* "keybase" "ctl" "restart")))
      (reload (lambda _ (system* "keybase" "ctl" "reload"))))
    #:directory (string-append "/run/user/"
                               (number->string (passwd:uid (getpw "efraim")))
                               "/keybase")
    #:respawn? #t))

;; https://github.com/keybase/client/blob/master/packaging/linux/systemd/kbfs.service
(define kbfs
  (make <service>
    #:provides '(kbfs)
    #:depends '(keybase)
    #:docstring "Provide access to Keybase™ fuse store"
    #:start (make-forkexec-constructor
              '("kbfsfuse" "-debug" "-log-to-file")
              #:log-file (string-append (getenv "HOME") "/log/kbfs.log"))
    #:stop (make-kill-destructor)
    #:respawn? #t))

(register-services keybase kbfs)