diff options
| -rwxr-xr-x | emacs.org | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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))) |