[elpa] externals/denote 7f57028c63 2/3: Merge pull request #162 from sirikid/double-negations

[ELPA Syncer]

branch: externals/denote
commit 7f57028c63cc519ed6b56d581d48f987bfaa0c0d
Merge: 1a2bc831be 7062f3fd5b
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #162 from sirikid/double-negations
    
    Get rid of negated predicates
---
 denote.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index c084059075..b7b93fe913 100644
--- a/denote.el
+++ b/denote.el
@@ -773,9 +773,8 @@ Remember that the variable `denote-directory' accepts a 
dir-local
 value, as explained in its doc string."
   (mapcar
    #'expand-file-name
-   (seq-remove
-    (lambda (f)
-      (not (denote-file-has-identifier-p f)))
+   (seq-filter
+    #'denote-file-has-identifier-p
     (denote--directory-all-files-recursively))))
 
 (defun denote-directory-text-only-files ()
@@ -897,7 +896,7 @@ This function returns duplicates.  The `denote-keywords' is 
the
 one that doesn't."
   (let ((kw (mapcan #'denote-extract-keywords-from-path 
(denote-directory-files))))
     (if-let ((regexp denote-excluded-keywords-regexp))
-        (seq-filter (lambda (k) (not (string-match-p regexp k))) kw)
+        (seq-remove (apply-partially #'string-match-p regexp) kw)
       kw)))
 
 (defun denote-keywords ()