gpg.lisp 179 B

1234567
  1. (in-package :stumpwm)
  2. (defun gpg-key-opened? (key)
  3. (not (= (length (run-shell-command
  4. (format nil "gpg --pinentry-mode cancel -d ~s" key) t))
  5. 0)))