diff options
| -rw-r--r-- | contrib/emacs/password-store.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el index 4bfa290..cdecad4 100644 --- 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) |