branch: externals/denote
commit dd488756f704e2e38891d51d3a21bc51982a5350
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Refine denote--directory-files
---
denote.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/denote.el b/denote.el
index 72904f2a9e..bcd1c0f738 100644
--- a/denote.el
+++ b/denote.el
@@ -155,12 +155,12 @@ trailing hyphen."
(defun denote--directory-files ()
"List `denote-directory' files, assuming flat directory."
- (seq-remove
- (lambda (file)
- ;; TODO: generalise this for more VC backends? Which ones?
- (or (string-match-p "\\.git" file)
- (file-directory-p file)))
- (directory-files (denote--directory) nil
directory-files-no-dot-files-regexp t)))
+ (let* ((dir (denote--directory))
+ (default-directory dir))
+ (seq-remove
+ (lambda (file)
+ (file-directory-p file))
+ (directory-files dir nil directory-files-no-dot-files-regexp t))))
(defun denote--keywords-in-files ()
"Produce list of keywords in `denote--directory-files'."
