From 89889525ccf70b36ac06e5bf9294ecf7fd0066de Mon Sep 17 00:00:00 2001 From: bd Date: Mon, 28 Oct 2024 21:12:40 -0400 Subject: More cleanup and use-package --- .config/emacs/modules/bd--gpg.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to '.config/emacs/modules/bd--gpg.el') 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 -- cgit v1.2.3