review: Get unsuspended due notes directly with emacsql

* Improve performance.

1 files changed, 7 insertions, 3 deletions

diff --git a/gnosis.el b/gnosis.el
index bee4d15..81907a4 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1386,11 +1386,15 @@ well."
 
 (defun gnosis-review-get-due-notes ()
   "Return a list due notes id for current date."
-  (let* ((old-notes (cl-loop for note in (gnosis-select 'id 'review-log '(> n 0) t)
+  (let* ((old-notes (cl-loop for note in (gnosis-select 'id 'review-log '(and (> n 0)
+									      (= suspend 0))
+							t)
 			     when (gnosis-review-is-due-p note)
 			     collect note))
-	 (new-notes (cl-loop for note in (gnosis-select 'id 'review-log '(= n 0) t)
-			     when (gnosis-review-is-due-p note)
+	 (new-notes (cl-loop for note in (gnosis-select 'id 'review-log '(and (= n 0)
+									      (= suspend 0))
+							t)
+			     when (gnosis-review-is-due-today-p note)
 			     collect note)))
     (append (cl-subseq new-notes 0 gnosis-new-notes-limit) old-notes)))