branch: externals/denote
commit 4a95695d5252c16d622b6d51a7a117cd2bfc5fac
Author: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe...@gmail.com>
Simplify denote-link--map-over-notes
---
denote.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/denote.el b/denote.el
index 8e3def84a4..57acd21cf6 100644
--- a/denote.el
+++ b/denote.el
@@ -1853,13 +1853,11 @@ inserts links with just the identifier."
(defun denote-link--map-over-notes ()
"Return list of `denote--only-note-p' from Dired marked items."
- (delq nil
- (mapcar
- (lambda (f)
- (when (and (denote--only-note-p f)
- (denote--dir-in-denote-directory-p default-directory))
- f))
- (dired-get-marked-files))))
+ (seq-filter
+ (lambda (f)
+ (and (denote--only-note-p f)
+ (denote--dir-in-denote-directory-p default-directory)))
+ (dired-get-marked-files)))
;;;###autoload
(defun denote-link-dired-marked-notes (files buffer &optional id-only)
