New function: get-tag-notes.

* Return note-ids for TAG.

1 files changed, 5 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 3a021fe..1496d1e 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1271,6 +1271,11 @@ If DUE, return only due notes."
 		     (if due (gnosis-review-is-due-p id) t))
            collect id))
 
+(defun gnosis-get-tag-notes (tag)
+  "Return note ids for TAG."
+  (let ((notes (gnosis-select 'id 'notes `(like tags ',(format "%%\"%s\"%%" tag)) t)))
+    notes))
+
 (defun gnosis-suspended-p (id)
   "Return t if note with ID is suspended."
   (= (gnosis-get 'suspend 'review-log `(= id ,id)) 1))