From 2817aeb73ad5086e92fb1bf5e3ba8bb6a4040cb6 Mon Sep 17 00:00:00 2001 From: Svend Sorensen Date: Fri, 16 May 2014 13:37:43 -0700 Subject: 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. --- contrib/emacs/password-store.el | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'contrib/emacs') 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) -- cgit v1.2.3-59-g8ed1b