From 623df333e4e115ddd540478b46b603ddbfb85f2f Mon Sep 17 00:00:00 2001
From: SqrtMinusOne <thexcloud@gmail.com>
Date: Tue, 28 Dec 2021 23:10:44 +0300
Subject: [PATCH] fix(exwm): run gpg-agent

---
 .emacs.d/desktop.el | 6 ++----
 Desktop.org         | 9 ++-------
 2 files changed, 4 insertions(+), 11 deletions(-)

diff --git a/.emacs.d/desktop.el b/.emacs.d/desktop.el
index f05138a..4391585 100644
--- a/.emacs.d/desktop.el
+++ b/.emacs.d/desktop.el
@@ -21,7 +21,7 @@
   (setq epa-pinentry-mode 'loopback)
   (setq epg-pinentry-mode 'loopback)
   (pinentry-start)
-  (my/run-in-background "gpgconf --reload gpg-agent"))
+  )
 
 (defun my/exwm-direction-exists-p (dir)
   (cl-some (lambda (dir)
@@ -126,9 +126,6 @@ _=_: Balance          "
                      my/exwm-another-monitor)))
   (exwm-randr-refresh))
 
-(use-package transient
-  :straight t)
-
 (defun my/run-in-background (command)
   (let ((command-parts (split-string command "[ ]+")))
     (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
@@ -194,6 +191,7 @@ _d_: Discord
   (my/exwm-run-polybar)
   (my/exwm-set-wallpaper)
   (my/exwm-run-shepherd)
+  (my/run-in-background "gpgconf --reload gpg-agent")
   ;; (with-eval-after-load 'perspective
   ;;   (my/exwm-setup-perspectives))
   )
diff --git a/Desktop.org b/Desktop.org
index c31e18e..639fff6 100644
--- a/Desktop.org
+++ b/Desktop.org
@@ -332,7 +332,7 @@ The GUI pinentry doesn't work too well with EXWM because of issues with popup wi
   (setq epa-pinentry-mode 'loopback)
   (setq epg-pinentry-mode 'loopback)
   (pinentry-start)
-  (my/run-in-background "gpgconf --reload gpg-agent"))
+  )
 #+end_src
 
 #+begin_src conf-space :tangle ~/.gnupg/gpg-agent.conf
@@ -535,9 +535,6 @@ Switch to the opposite monitor.
 *** App shortcuts
 A +transient+ hydra for shortcuts for the most frequent apps.
 #+begin_src emacs-lisp
-(use-package transient
-  :straight t)
-
 (defun my/run-in-background (command)
   (let ((command-parts (split-string command "[ ]+")))
     (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
@@ -759,9 +756,7 @@ And the EXWM config itself.
   (my/exwm-run-polybar)
   (my/exwm-set-wallpaper)
   (my/exwm-run-shepherd)
-  ;; (with-eval-after-load 'perspective
-  ;;   (my/exwm-setup-perspectives))
-  )
+  (my/run-in-background "gpgconf --reload gpg-agent"))
 
 (defun my/exwm-update-class ()
   (exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))