branch: externals/denote
commit 220d9876a6c1bc6ab4915bfa6c92012536a70726
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Define denote-sequence-file-p to streamline some procedures
---
denote-sequence.el | 19 ++++++++-----------
1 file changed, 8 insertions(+), 11 deletions(-)
diff --git a/denote-sequence.el b/denote-sequence.el
index bd0db08217..bde75c6b04 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -61,6 +61,12 @@
(not (string-suffix-p "=" sequence)))
sequence))
+(defun denote-sequence-file-p (file)
+ "Return non-nil if Denote signature of FILE is a sequence.
+A sequence is string that matches `denote-sequence-regexp'."
+ (when-let* ((signature (denote-retrieve-filename-signature file)))
+ (denote-sequence-p signature)))
+
(defun denote-sequence-split (sequence)
"Split the SEQUENCE string into a list.
SEQUENCE conforms with `denote-sequence-p'."
@@ -76,23 +82,14 @@ For example, 1=2=1 is three levels deep."
(defun denote-sequence-get-all-files ()
"Return all files in variable `denote-directory' with a sequence.
A sequence is a Denote signature that conforms with `denote-sequence-p'."
- (seq-filter
- (lambda (file)
- (when-let* ((signature (denote-retrieve-filename-signature file)))
- (denote-sequence-p signature)))
- (denote-directory-files)))
+ (seq-filter #'denote-sequence-file-p (denote-directory-files)))
(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)))
- (or files (denote-directory-files)))))
+ (delq nil (mapcar #'denote-sequence-file-p (or files
(denote-directory-files)))))
(defun denote-sequence-get-all-sequences-with-prefix (sequence &optional
sequences)
"Get all sequences which extend SEQUENCE.
