[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a63cbb5 04/13: Add auth-source-pass-filename option
From: |
Damien Cassou |
Subject: |
[Emacs-diffs] master a63cbb5 04/13: Add auth-source-pass-filename option |
Date: |
Mon, 24 Jun 2019 03:22:45 -0400 (EDT) |
branch: master
commit a63cbb56dfc6074189407e9e182e807ce058e618
Author: galaunay <address@hidden>
Commit: Damien Cassou <address@hidden>
Add auth-source-pass-filename option
* lisp/auth-source-pass.el (auth-source-pass)
(auth-source-pass-filename): Add option to specify a customized
password-store path.
(auth-source-pass--read-entry)
(auth-source-pass-entries): Use the new option instead of hard-coded
`~/.password-store'.
---
lisp/auth-source-pass.el | 15 +++++++++++++--
1 file changed, 13 insertions(+), 2 deletions(-)
diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el
index 4fcb101..1fda698 100644
--- a/lisp/auth-source-pass.el
+++ b/lisp/auth-source-pass.el
@@ -38,6 +38,17 @@
(require 'auth-source)
(require 'url-parse)
+(defgroup auth-source-pass nil
+ "password-store integration within auth-source."
+ :prefix "auth-source-pass-"
+ :group 'auth-source
+ :version "27.1")
+
+(defcustom auth-source-pass-filename "~/.password-store"
+ "Filename of the password-store folder."
+ :type 'directory
+ :version "27.1")
+
(cl-defun auth-source-pass-search (&rest spec
&key backend type host user port
&allow-other-keys)
@@ -121,7 +132,7 @@ key2: value2"
(with-temp-buffer
(insert-file-contents (expand-file-name
(format "%s.gpg" entry)
- "~/.password-store"))
+ auth-source-pass-filename))
(buffer-substring-no-properties (point-min) (point-max))))
(defun auth-source-pass-parse-entry (entry)
@@ -188,7 +199,7 @@ often."
;; in Emacs
(defun auth-source-pass-entries ()
"Return a list of all password store entries."
- (let ((store-dir (expand-file-name "~/.password-store/")))
+ (let ((store-dir (expand-file-name auth-source-pass-filename)))
(mapcar
(lambda (file) (file-name-sans-extension (file-relative-name file
store-dir)))
(directory-files-recursively store-dir "\\.gpg$"))))
- [Emacs-diffs] master updated (b9ac4f8 -> 157fced), Damien Cassou, 2019/06/24
- [Emacs-diffs] master 527efaf 01/13: Fix auth-source-pass to return nil if no entry found, Damien Cassou, 2019/06/24
- [Emacs-diffs] master a63cbb5 04/13: Add auth-source-pass-filename option,
Damien Cassou <=
- [Emacs-diffs] master 9574565 03/13: * lisp/auth-source-pass.el (auth-source-pass-get): Add autoload, Damien Cassou, 2019/06/24
- [Emacs-diffs] master ba11be0 02/13: * lisp/auth-source-pass.el: Version 4.0.2, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 94c9eb8 06/13: Fix auth-source-pass to search for hostname:port/username, Damien Cassou, 2019/06/24
- [Emacs-diffs] master e6fc02f 11/13: * lisp/auth-source-pass.el: Version 5.0.0, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 57e763a 07/13: Split out the attribute retrieval form auth-source-pass-get, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 736f78b 09/13: * lisp/auth-source-pass.el: Add Keith Amidon to authors, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 34f01eb 12/13: * etc/NEWS: Describe changes to auth-source-pass, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 157fced 13/13: * doc/misc/auth.texi (The Unix password store): Complete rewrite, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 0a580c1 08/13: Minimize entry parsing in auth-source-pass, Damien Cassou, 2019/06/24
- [Emacs-diffs] master 2a0a057 05/13: Add auth-source-pass-port-separator option, Damien Cassou, 2019/06/24