From 8a857c2e7b0935d5f6213525bef027a4ea097ef8 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 6 Aug 2024 20:45:57 +0300 Subject: New function: get-tag-notes. * Return note-ids for TAG. --- gnosis.el | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- cgit v1.2.3