branch: externals/denote
commit 451872b094c2a8b967964fed01237758dedb28b2
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make denote-sequence-get-all-sequences accept optional FILES argument
---
denote-sequence.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index 2a329307e2..1999232b9e 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -82,15 +82,17 @@ A sequence is a Denote signature that conforms with
`denote-sequence-p'."
(denote-sequence-p signature)))
(denote-directory-files)))
-(defun denote-sequence-get-all-sequences ()
- "Return all sequences in the variable `denote-directory'.
-A sequence is a Denote signature that conforms with `denote-sequence-p'."
+(defun denote-sequence-get-all-sequences (&optional files)
+ "Return all sequences in `denote-directory-files'.
+A sequence is a Denote signature that conforms with `denote-sequence-p'.
+
+With optional FILES return all sequences among them instead."
(delq nil
(mapcar
(lambda (file)
(when-let* ((signature (denote-retrieve-filename-signature file)))
(denote-sequence-p signature)))
- (denote-directory-files))))
+ (or files (denote-directory-files)))))
(defun denote-sequence-get-all-sequences-with-prefix (sequence &optional
sequences)
"Get all sequences which extend SEQUENCE.
