emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-15 09:46:24 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Get rid of negated predicates

Browse source
This commit is contained in:
Ivan Sokolov 2023-08-11 21:36:19 +03:00
parent 1a2bc831be
commit 7062f3fd5b
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
denote.el
View file

@ -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 ()