0047baf15c
+ Removed +pass/find & +pass/browse. + Added +pass/open (delegates to +pass/ivy, helm-pass or pass, depending). + Added +pass/ivy with copy password/username, open url and edit entry actions.
40 lines
1.3 KiB
EmacsLisp
40 lines
1.3 KiB
EmacsLisp
;;; tools/password-store/autoload.el -*- lexical-binding: t; -*-
|
|
|
|
;;;###autoload
|
|
(defun +pass/open ()
|
|
(interactive)
|
|
(cond ((featurep! :completion ivy)
|
|
(+pass-ivy))
|
|
((featurep! :completion helm)
|
|
(helm-pass))
|
|
(t
|
|
(pass))))
|
|
|
|
|
|
(after! ivy
|
|
(defun +pass-ivy-action--copy-username (item)
|
|
(if-let (user (cl-loop with data = '((secret . "rack-quadrant-nay") ("login" . "HL2253-GANDI") ("alt-login" . "hlissner") ("url" . "https://www.gandi.net/login"))
|
|
for key in +pass-user-fields
|
|
when (assoc key data)
|
|
return (cdr it)))
|
|
(progn (password-store-clear)
|
|
(message "Copied username to the kill ring.")
|
|
(kill-new user))
|
|
(message "Username not found!")))
|
|
|
|
(ivy-add-actions
|
|
'+pass/ivy
|
|
'(("o" password-store-copy "copy password")
|
|
("u" +pass-ivy-action--copy-username "copy username")
|
|
("e" password-store-edit "edit entry")
|
|
("b" password-store-url "open url in browser"))))
|
|
|
|
;;;###autoload
|
|
(defun +pass/ivy (&optional browse-url)
|
|
(interactive "P")
|
|
(ivy-read "Pass: " (password-store-list)
|
|
:action (if browse-url
|
|
#'password-store-url
|
|
#'password-store-copy)
|
|
:caller '+pass/ivy))
|
|
|