stumpwm/passwords.lisp @ 7cb0e1e6a217

(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."))

(stumpwm:defcommand add-clipboard-history-ignore-base64 (string) (:string)
  (clipboard-history:add-clipboard-history-ignore (base64:base64-decode string)))