summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-01 13:02:25 +0200
committerThanos Apollo <[email protected]>2024-01-01 13:02:25 +0200
commite1f1ddba4618ed04115e8368e6c439c49ee6b819 (patch)
tree6c9b61c88019a09605438d853153b8c284b5c56d
parent850c4a94a01471b18bdeee0e9d074ab162cab390 (diff)
When reviewing by tag, check if note id is suspended
-rw-r--r--gnosis.el3
1 files changed, 2 insertions, 1 deletions
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)