branch: externals/denote-sequence
commit e30275c3e5019254ca699e46825b1f27acd6c7cd
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Add function denote-sequence-user-selected-scheme-p
---
denote-sequence.el | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/denote-sequence.el b/denote-sequence.el
index c9499b76df..8bf6c2e606 100644
--- a/denote-sequence.el
+++ b/denote-sequence.el
@@ -110,6 +110,13 @@ zx (z is 26 and x is 25)."
(not (string-match-p "=" sequence)))
sequence))
+(defun denote-sequence-user-selected-scheme-p (sequence)
+ "Return SEQUENCE if it is consistent with `denote-sequence-scheme'.
+Also see `denote-sequence-alphanumeric-p' and `denote-sequence-numeric-p'."
+ (pcase denote-sequence-scheme
+ ('numeric (denote-sequence-numeric-p sequence))
+ ('alphanumeric (denote-sequence-alphanumeric-p sequence))))
+
(defun denote-sequence-p (sequence)
"Return SEQUENCE string is of a supported scheme.
Also see `denote-sequence-numeric-p' and `denote-sequence-alphanumeric-p'."
