diff options
| author | bd <bdunahu@operationnull.com> | 2024-10-28 21:12:40 -0400 |
|---|---|---|
| committer | bd <bdunahu@operationnull.com> | 2024-10-28 21:13:41 -0400 |
| commit | 89889525ccf70b36ac06e5bf9294ecf7fd0066de (patch) | |
| tree | 9413e969b24edcacadc1a1e087bcbe99080af029 /.config/emacs/modules/bd--gpg.el | |
| parent | 1efe6886049b0143e55ccb77dc7d59966e9dd081 (diff) | |
More cleanup and use-package
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 |