commit 2817aeb73ad5086e92fb1bf5e3ba8bb6a4040cb6 parent 6a2dc51b5d84c4bf76664cab5afed066cb9b48db Author: Svend Sorensen <svend@ciffer.net> Date: Fri, 16 May 2014 13:37:43 -0700 emacs: Use PASSWORD_STORE_CLIP_TIME env variable Timeout password after PASSWORD_STORE_CLIP_TIME seconds, if set. Otherwise timeout after 45 seconds. These are the setting used by pass. Diffstat:
| M | contrib/emacs/password-store.el | | | 11 | +++++++---- |
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el @@ -42,8 +42,11 @@ (defconst password-store-password-length 8 "Default password length.") -(defconst password-store-timeout 45 - "Number of seconds to wait before clearing the password.") +(defun password-store-timeout () + "Number of seconds to wait before clearing the password." + (if (getenv "PASSWORD_STORE_CLIP_TIME") + (string-to-number (getenv "PASSWORD_STORE_CLIP_TIME")) + 45)) (defun password-store--run (&rest args) "Run pass with ARGS. @@ -181,8 +184,8 @@ after `password-store-timeout' seconds." (password-store-clear) (kill-new password) (setq password-store-kill-ring-pointer kill-ring-yank-pointer) - (message "Copied %s to the kill ring. Will clear in %s seconds." entry password-store-timeout) - (run-at-time password-store-timeout nil 'password-store-clear))) + (message "Copied %s to the kill ring. Will clear in %s seconds." entry (password-store-timeout)) + (run-at-time (password-store-timeout) nil 'password-store-clear))) ;;;###autoload (defun password-store-init (gpg-id)