sqrtminusone/dotfiles
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/dotfiles.git synced 2025-12-10 19:23:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(exwm): run gpg-agent

Browse source
This commit is contained in:
Pavel Korytov 2021-12-28 23:10:44 +03:00
parent 79bb3e8a68
commit 623df333e4
2 changed files with 4 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
.emacs.d/desktop.el
View file

@ -21,7 +21,7 @@
(setq epa-pinentry-mode 'loopback) (setq epa-pinentry-mode 'loopback)
(setq epg-pinentry-mode 'loopback) (setq epg-pinentry-mode 'loopback)
(pinentry-start) (pinentry-start)
(my/run-in-background "gpgconf --reload gpg-agent")) )
(defun my/exwm-direction-exists-p (dir) (defun my/exwm-direction-exists-p (dir)
(cl-some (lambda (dir) (cl-some (lambda (dir)
@ -126,9 +126,6 @@ _=_: Balance "
my/exwm-another-monitor))) my/exwm-another-monitor)))
(exwm-randr-refresh)) (exwm-randr-refresh))
(use-package transient
:straight t)
(defun my/run-in-background (command) (defun my/run-in-background (command)
(let ((command-parts (split-string command "[ ]+"))) (let ((command-parts (split-string command "[ ]+")))
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts))))) (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts)))))
@ -194,6 +191,7 @@ _d_: Discord
(my/exwm-run-polybar) (my/exwm-run-polybar)
(my/exwm-set-wallpaper) (my/exwm-set-wallpaper)
(my/exwm-run-shepherd) (my/exwm-run-shepherd)
(my/run-in-background "gpgconf --reload gpg-agent")
;; (with-eval-after-load 'perspective ;; (with-eval-after-load 'perspective
;; (my/exwm-setup-perspectives)) ;; (my/exwm-setup-perspectives))
) )

9
Desktop.org
View file

@ -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 epa-pinentry-mode 'loopback)
(setq epg-pinentry-mode 'loopback) (setq epg-pinentry-mode 'loopback)
(pinentry-start) (pinentry-start)
(my/run-in-background "gpgconf --reload gpg-agent")) )
#+end_src #+end_src
#+begin_src conf-space :tangle ~/.gnupg/gpg-agent.conf #+begin_src conf-space :tangle ~/.gnupg/gpg-agent.conf
@ -535,9 +535,6 @@ Switch to the opposite monitor.
*** App shortcuts *** App shortcuts
A +transient+ hydra for shortcuts for the most frequent apps. A +transient+ hydra for shortcuts for the most frequent apps.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package transient
:straight t)
(defun my/run-in-background (command) (defun my/run-in-background (command)
(let ((command-parts (split-string command "[ ]+"))) (let ((command-parts (split-string command "[ ]+")))
(apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts))))) (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-run-polybar)
(my/exwm-set-wallpaper) (my/exwm-set-wallpaper)
(my/exwm-run-shepherd) (my/exwm-run-shepherd)
;; (with-eval-after-load 'perspective (my/run-in-background "gpgconf --reload gpg-agent"))
;; (my/exwm-setup-perspectives))
)
(defun my/exwm-update-class () (defun my/exwm-update-class ()
(exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name))) (exwm-workspace-rename-buffer (format "EXWM :: %s" exwm-class-name)))