stumpwm/passwords.lisp @ 4f28fbfd7d63 default tip

(in-package :stumpwm-user)

(defcommand pass-personal () ()
  (let ((pass:*password-store* "/home/sjl/.password-store/")
        (pass:*pass-notification-message* t))
    (pass:pass-copy)))

(defcommand pass-um-1 () ()
  (echo "Copying UM level 1 password, touch key.")
  (run-shell-command "pass -c umich.edu/slosh"))

(defcommand pass-um-2 () ()
  (echo "Copying UM level 2 password, touch key.")
  (run-shell-command "pass -c umich.edu/l2"))

(defcommand switch-yubikeys () ()
  (echo (run-shell-command "switch-yubikeys" t)))

(defcommand generate-password () ()
  (run-shell-command "genpass | pbc")
  (message "Generated a fresh password and copied it to the clipboard."))