emacs:(pass) Update launcher

1 files changed, 6 insertions, 7 deletions

diff --git a/.emacs.d/modules/thanos-pass.el b/.emacs.d/modules/thanos-pass.el
index e3e805d..86f1369 100644
--- a/.emacs.d/modules/thanos-pass.el
+++ b/.emacs.d/modules/thanos-pass.el
@@ -35,29 +35,28 @@
 (defun thanos/pass-launcher ()
   "Launch Emacs as a front-end for pass."
   (interactive)
-  (let ((vertico-count 100))
     (unwind-protect
 	(with-selected-frame
 	    (make-frame '((name . "thanos/pass-launcher")
 			  (fullscreen . 0)
 			  (undecorated . t)
-			  (minibuffer . only)))
+			  (minibuffer . only)
+			  (width . 70)
+			  (height . 15)))
 	  (let* ((choice (completing-read "Choose an action: "
 					  '("AUTO" "COPY PASS" "COPY USERNAME" "EDIT" "GENERATE")))
 		 (action (pcase choice
-			   ("AUTO" #'(lambda (entry)
-				       (let ((user (password-store-get-field entry "user"))
-					     (pass (password-store-get entry)))
+			   ("AUTO" #'(lambda (entry) (let ((user (password-store-get-field entry "user")) (pass (password-store-get entry)))
 					 (start-process-shell-command
 					  "xdotool" nil
 					  (format "sleep 0.3 && xdotool getactivewindow type '%s' && xdotool getactivewindow key Tab && xdotool getactivewindow type '%s'"
-						  (if user user 'thanosapollo22) pass)))))
+						  (if user user 'thanosapollo) pass)))))
 			   ("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)))
-	    (delete-frame))))))
+	    (delete-frame)))))
 
 (defun smtp-get-pass ()
   "Get password for smtp."