review: Add gnosis-get-new-notes.

* Get new notes for review.

1 files changed, 4 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 52fc45b..0e3ca1d 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1379,6 +1379,10 @@ well."
     (cl-loop for note in notes
 	     when (gnosis-review-is-due-p note)
 	     collect note)))
+(defun gnosis-get-new-notes (notes)
+  "Get new notes from NOTES."
+  (cl-assert (listp notes) nil "Notes must be a list.")
+  (cl-intersection notes (gnosis-select 'id 'review-log '(= n 0) t)))
 
 (defun gnosis-review-get-due-tags ()
   "Return a list of due note tags."