From 36b31c52deaf60c64ea506dac471d556c2788313 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Tue, 26 May 2015 15:35:16 -0400
Subject: dmd: Set pinentry program for gpg-agent.

---
 dotfiles/.dmd.d/init.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/dotfiles/.dmd.d/init.scm b/dotfiles/.dmd.d/init.scm
index 9b49859..9188a5d 100644
--- a/dotfiles/.dmd.d/init.scm
+++ b/dotfiles/.dmd.d/init.scm
@@ -36,7 +36,9 @@
    #:start (make-forkexec-constructor
             (list "gpg-agent"
                   "--daemon"
-                  "--enable-ssh-support")))
+                  "--enable-ssh-support"
+                  "--pinentry-program"
+                  (string-append %home "/.guix-profile/bin/pinentry-gtk-2"))))
  ;; Mailbox sync.
  (make <service>
    #:provides '(offlineimap)
-- 
cgit v1.2.3