From ee9faa9df54555337738dfd88b355e23fbef6a30 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Mon, 10 Jun 2019 21:18:52 -0700 Subject: 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. --- contrib/emacs/password-store.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'contrib/emacs') diff --git a/contrib/emacs/password-store.el b/contrib/emacs/password-store.el index 0ad21ff..fe9271d 100644 --- 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 +;; Copyright (C) 2014-2019 Svend Sorensen ;; Author: Svend Sorensen -;; 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) -- cgit v1.2.3