dotfiles/dot_stumpwm.d/password.lisp

(in-package :stumpwm)

(defun password-store-show (password)
    (run-shell-command (format nil "gpg -d ~a/.password-store/~a.gpg 2>/dev/null"
                               (getenv "HOME") password)
     t))

(defcommand passmenu () ()
  (run-shell-command "/home/oleg/.local/share/chezmoi/dot_local/bin/executable_passmenu"))

(defcommand random-password (length) ((:string "Password length: "))
  (window-send-string (run-shell-command (format nil "bash -i -c 'random-password ~a'" length) t)))