password-store

commit ee9faa9df54555337738dfd88b355e23fbef6a30
parent 0ee5ab3c5267faeafe6f95271ad7d5c59e15c90f
Author: Tino Calancha <tino.calancha@gmail.com>
Date:   Mon, 10 Jun 2019 21:18:52 -0700

emacs: Delete duplicate entries from password-store-list

Emacs backup files add a duplicate entry, that is, if you have the two files,
foo.bar and foo.bar~, then you'd get two entries for `foo'.

* password-store.el (password-store-list): Delete duplicate entries. Bump
version to 2.0.2. Update Copyright notice.

Diffstat:
M
contrib/emacs/password-store.el
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el
@@ -1,9 +1,9 @@
 ;;; password-store.el --- Password store (pass) support  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2014-2018 Svend Sorensen <svend@svends.net>
+;; Copyright (C) 2014-2019 Svend Sorensen <svend@svends.net>
 
 ;; Author: Svend Sorensen <svend@svends.net>
-;; Version: 2.0.1
+;; Version: 2.0.2
 ;; URL: https://www.passwordstore.org/
 ;; Package-Requires: ((emacs "25") (f "0.11.0") (s "1.9.0") (with-editor "2.5.11"))
 ;; Keywords: tools pass password password-store
@@ -186,8 +186,9 @@ Nil arguments are ignored.  Output is discarded."
   (unless subdir (setq subdir ""))
   (let ((dir (f-join (password-store-dir) subdir)))
     (if (f-directory? dir)
-        (mapcar 'password-store--file-to-entry
-                (f-files dir (lambda (file) (equal (f-ext file) "gpg")) t)))))
+        (delete-dups
+         (mapcar 'password-store--file-to-entry
+                 (f-files dir (lambda (file) (equal (f-ext file) "gpg")) t))))))
 
 ;;;###autoload
 (defun password-store-edit (entry)