From e1f1ddba4618ed04115e8368e6c439c49ee6b819 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Mon, 1 Jan 2024 13:02:25 +0200
Subject: When reviewing by tag, check if note id is suspended

---
 gnosis.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gnosis.el b/gnosis.el
index abe9dfb..c5d3da7 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -533,7 +533,8 @@ Optionally, add cusotm PROMPT."
   (unless (listp input-tags)
     (error "`input-tags' need to be a list"))
   (cl-loop for (id tags) in (emacsql gnosis-db [:select [id tags] :from notes])
-           when (cl-every (lambda (tag) (member tag tags)) input-tags)
+           when (and (cl-every (lambda (tag) (member tag tags)) input-tags)
+		     (not (gnosis-suspended-p id)))
            collect id))
 
 (defun gnosis-suspended-p (id)
-- 
cgit v1.2.3