Add gnosis-review-due-notes--with-tags

1 files changed, 9 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 7420252..82284cc 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -437,6 +437,15 @@ Select notes where:
   (emacsql gnosis-db `[:select [id] :from review-log :where (and (<= next-rev ',(gnosis-algorithm-date))
 								 (= suspend 0))]))
 
+(defun gnosis-review-due-notes--with-tags ()
+  "Return a list of due note tags."
+  (let ((due-notes (gnosis-review-get-due-notes)))
+    (cl-remove-duplicates
+     (cl-mapcan (lambda (note-id)
+                  (gnosis-get-note-tags (car note-id)))
+	        due-notes)
+     :test 'equal)))
+
 (defun gnosis-review--get-offset (id)
   "Get offset for note with value of id ID."
   (let ((last-rev (gnosis-get 'last-rev 'review-log `(= id ,id))))