diff options
Diffstat (limited to '.config/emacs/modules/bd--gpg.el')
| -rw-r--r-- | .config/emacs/modules/bd--gpg.el | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/.config/emacs/modules/bd--gpg.el b/.config/emacs/modules/bd--gpg.el index 83fa4c1..827d0d0 100644 --- a/.config/emacs/modules/bd--gpg.el +++ b/.config/emacs/modules/bd--gpg.el @@ -18,7 +18,7 @@ (f-files "~/.password-store" (lambda (file) (equal (f-ext file) "gpg")) t))) (defun bd/password-store-clear (id) - "Clears the most recent password copied to the kill ring." + "Clears the most recent password copied to the kill ring, printing ID." (when bd/password-store-kill-ring-pointer (setcar bd/password-store-kill-ring-pointer nil) (kill-new "") @@ -39,19 +39,10 @@ (message "Copied password for %s to the kill ring and system clipboard. Will clear in %s seconds." id bd/password-store-time-before-clear))) -(defun bd/selector-passwords () - "Selector source for password-store passwords." - (selector-source-create - "Passwords" - :candidates - (bd/password-store-list) - :actions - (list #'bd/read-password))) - (defun bd/password () "Interactively select a password-store password." (interactive) - (selector (list (bd/selector-passwords)))) + (bd/read-password (completing-read "Yank: " (bd/password-store-list)))) (use-package pinentry :defer 1 |