diff options
Diffstat (limited to '.config/emacs/modules/bd--gpg.el')
| -rw-r--r-- | .config/emacs/modules/bd--gpg.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/.config/emacs/modules/bd--gpg.el b/.config/emacs/modules/bd--gpg.el index f3d55cb..ae4e527 100644 --- a/.config/emacs/modules/bd--gpg.el +++ b/.config/emacs/modules/bd--gpg.el @@ -4,13 +4,13 @@ (require 'f) +(require 'selector) (defvar bd/password-store-kill-ring-pointer nil "The tail of the kill ring whose car is the password.") (defvar bd/password-store-time-before-clear 10 "The time before a killed password is cleared.") -;;;; passwords (defun bd/password-store-list () "List password-store entries." (mapcar (lambda (file) @@ -53,21 +53,19 @@ (interactive) (selector (list (bd/selector-passwords)))) -;; pinentry (use-package pinentry :config (pinentry-start) + (defun pinentry-toggle () + "Stops and starts Pinentry service. Workaround +for a bug I've encountered." + (interactive) + (pinentry-stop) + (pinentry-start)) :custom (enable-recursive-minibuffers t) (pinentry-popup-prompt-window nil)) -(defun pinentry-toggle () - "Stops and starts Pinentry service. Workaround -for a bug I've encountered." - (interactive) - (pinentry-stop) - (pinentry-start)) - (provide 'bd--gpg) ;;; bd-gpg ends here |