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