From 5383fd14d4b0aa5d693055e8d203220495d27c24 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 27 Aug 2023 09:07:17 +0300 Subject: emacs: Update pass launcher --- emacs.org | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'emacs.org') diff --git a/emacs.org b/emacs.org index 2c9e70d..7a1fd17 100755 --- a/emacs.org +++ b/emacs.org @@ -244,10 +244,11 @@ Generate a random password between 20 and 40 characters (internal-border-width . 10) (width . 80) (height . 11))) - (let* ((choice (completing-read "Choose an action: " '("AUTO" "COPY" "EDIT" "GENERATE"))) + (let* ((choice (completing-read "Choose an action: " '("AUTO" "COPY PASS" "COPY USERNAME" "EDIT" "GENERATE"))) (action (pcase choice ("AUTO" #'pass-autotype) - ("COPY" #'password-store-copy) + ("COPY PASS" #'password-store-copy) + ("COPY USERNAME" #'(lambda (entry) (password-store-copy-field entry "user"))) ("EDIT" #'password-store-edit) ("GENERATE" #'password-store-generate)))) (funcall action (completing-read "Search: " (password-store-list))) -- cgit v1.2.3