From 349760402b26534bed22fe593da5a061404f2ddc Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 25 Dec 2024 00:36:49 -0700 Subject: better icomplete defaults, use icomplete for passwords, bookmarks --- .config/emacs/modules/bd--gpg.el | 13 ++----------- 1 file changed, 2 insertions(+), 11 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 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 -- cgit v1.2.3