emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote 4a95695d52 5/7: Simplify denote-link--map-over-n


From: ELPA Syncer
Subject: [elpa] externals/denote 4a95695d52 5/7: Simplify denote-link--map-over-notes
Date: Tue, 2 Aug 2022 23:57:30 -0400 (EDT)

branch: externals/denote
commit 4a95695d5252c16d622b6d51a7a117cd2bfc5fac
Author: Jean-Philippe Gagné Guay <jeanphilippe150@gmail.com>
Commit: Jean-Philippe Gagné Guay <jeanphilippe150@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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]