[PATCH] emacs: Add variable password-store-file-extension.

[Nicolas Graves]

Hi !

I don't have an answer to this patch, can someone review this?

Thanks in advance,

Nicolas Graves

 
On 2022-10-13 23:31, Nicolas Graves wrote:

> ---
>  contrib/emacs/password-store.el | 9 +++++++--
>  1 file changed, 7 insertions(+), 2 deletions(-)
>
> diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el
> index 6561eb1..72aee3e 100644
> --- a/contrib/emacs/password-store.el
> +++ b/contrib/emacs/password-store.el
> @@ -66,6 +66,9 @@
>  (defvar password-store-timeout-timer nil
>    "Timer for clearing clipboard.")
>  
> +(defvar password-store-file-extension ".gpg"
> +  "File extension to expect in the password store.")
> +
>  (defun password-store-timeout ()
>    "Number of seconds to wait before clearing the password.
>  
> @@ -187,7 +190,8 @@ Nil arguments are ignored.  Output is discarded."
>  
>  (defun password-store--entry-to-file (entry)
>    "Return file name corresponding to ENTRY."
> -  (concat (expand-file-name entry (password-store-dir)) ".gpg"))
> +  (concat (expand-file-name entry (password-store-dir))
> +          password-store-file-extension))
>  
>  (defun password-store--file-to-entry (file)
>    "Return entry name corresponding to FILE."
> @@ -218,7 +222,8 @@ ENTRY is the name of a password-store entry."
>      (if (file-directory-p dir)
>          (delete-dups
>           (mapcar 'password-store--file-to-entry
> -                 (directory-files-recursively dir ".+\\.gpg\\'"))))))
> +                 (directory-files-recursively
> +                  dir (concat ".+\\" password-store-file-extension "\\'")))))))
>  
>  ;;;###autoload
>  (defun password-store-edit (entry)

-- 
Best regards,
Nicolas Graves