From bd403d64412301323f7ebe610773382fbdadb9c2 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 20 Jul 2024 06:50:04 +0300 Subject: review: Add gnosis-get-new-notes. * Get new notes for review. --- gnosis.el | 4 ++++ 1 file changed, 4 insertions(+) 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." -- cgit v1.2.3