branch: elpa/sesman
commit 95f8354d1aea41d263f2b4c1056c9efc24a1bb45
Author: Vitalie Spinu <spinu...@gmail.com>
Commit: Vitalie Spinu <spinu...@gmail.com>
Add sesman-relevant-[link|session]-p functions
---
sesman.el | 14 ++++++++++++++
1 file changed, 14 insertions(+)
diff --git a/sesman.el b/sesman.el
index 646008f4d5..a350ca853e 100644
--- a/sesman.el
+++ b/sesman.el
@@ -794,6 +794,20 @@ buffers."
(string-match-p (concat "^" proj)
(expand-file-name default-directory))))
+(defun sesman-relevant-link-p (link &optional cxt-types)
+ "Return non-nil if LINK is relevant to the current context.
+If CXT-TYPES is non-nil, only check relevance for those contexts."
+ (when (or (null cxt-types)
+ (member (sesman--lnk-context-type lnk) cxt-types))
+ (sesman-relevant-context-p
+ (sesman--lnk-context-type link)
+ (sesman--lnk-value link))))
+
+(defun sesman-relevant-session-p (system session &optional cxt-types)
+ "Return non-nil if SYSTEM's SESSION is relevant to the current context.
+If CXT-TYPES is non-nil, only check relevance for those contexts."
+ (seq-some #'sesman-relevant-link-p
+ (sesman-links system session cxt-types)))
(provide 'sesman)
