emacs: Update pass launcher

1 files changed, 3 insertions, 2 deletions

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)))