diff options
Diffstat (limited to 'dotfiles/.config/shepherd/init.scm')
-rw-r--r-- | dotfiles/.config/shepherd/init.scm | 29 |
1 files changed, 18 insertions, 11 deletions
diff --git a/dotfiles/.config/shepherd/init.scm b/dotfiles/.config/shepherd/init.scm index 5ee7b5f..697ad6d 100644 --- a/dotfiles/.config/shepherd/init.scm +++ b/dotfiles/.config/shepherd/init.scm @@ -55,7 +55,9 @@ that use a specific VERSION of Ruby, whose dependencies are stored in GEMSET." (let ((gem-home (string-append %home "/.gems/" gemset))) - (list (string-append "GEM_PATH=" gem-home) + (list "RAILS_ENV=development" + "HOME=/home/dthompson" + (string-append "GEM_PATH=" gem-home) (string-append "GEM_HOME=" gem-home) (string-append "PATH=" gem-home "/bin:" (rbenv-bin version) ":" @@ -80,6 +82,19 @@ Ruby version, and listens on PORT." #:environment-variables (ruby-environment ruby-version name)) #:stop (make-kill-destructor))) +(define (gpg-agent-service name pinentry-program) + (make <service> + #:provides (list name 'gpg-agent) + #:requires '() + #:start (make-system-constructor + (list "gpg-agent" "--daemon" "--enable-ssh-support" + "--default-cache-ttl=10800" ; cache for 3 hours + "--pinentry-program" + (string-append %home "/.guix-profile/bin/" + pinentry-program))) + #:stop (make-system-destructor + '("gpg-connect-agent" "killagent" "/bye")))) + ;; (define-service vhl-tunnel ;; (make <service> ;; #:provides '(vhl-tunnel) @@ -168,16 +183,8 @@ Ruby version, and listens on PORT." (list "xmodmap" (string-append %home "/.xmodmap")))) ;; GPG/SSH Agent - (make <service> - #:provides '(gpg-agent) - #:requires '() - #:start (make-system-constructor - (list "gpg-agent" "--daemon" "--enable-ssh-support" - "--default-cache-ttl=10800" ; cache for 3 hours - "--pinentry-program" - (string-append %home "/.guix-profile/bin/pinentry-gtk-2"))) - #:stop (make-system-destructor - '("gpg-connect-agent" "killagent" "/bye"))) + (gpg-agent-service 'gpg-agent-gtk "pinentry-gtk-2") + (gpg-agent-service 'gpg-agent-tty "pinentry-tty") ;; Mail (simple-service "davmail") ; for dealing with Exchange at work. |