diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2019-01-28 16:17:07 -0500 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2019-01-28 16:23:09 -0500 |
| commit | d4080c9428ae9b792ec9b4c5e778bdbbd7240031 (patch) | |
| tree | 032da8719a2503454ff28d6849e287007bfdda6a /dotfiles/.config/shepherd/init.scm | |
| parent | 91796208b9c989f75f9fb64a688d32cd5ed877d3 (diff) | |
Update a ton of files that have sat on my computer forever.
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. |