From 00adb72afc14021909ecad668fbba892ebf5e03a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 21 Jul 2024 16:03:19 +0300 Subject: review: Get unsuspended due notes directly with emacsql * Improve performance. --- gnosis.el | 10 +++++++--- 1 file 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))) -- cgit v1.2.3