From 3102de141e433729ae330d1ca5b6f8e7cab5439e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 25 Dec 2023 18:00:23 +0200 Subject: gnosis-review-get-due-notes: Update to not include suspended notes --- gnosis.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 7120e24..da4848b 100644 --- a/gnosis.el +++ b/gnosis.el @@ -225,8 +225,13 @@ Returns a list of the form ((yyyy mm dd) ef)." ff))) (defun gnosis-review-get-due-notes () - "Get due notes for current date." - (gnosis--select 'id 'review-log `(<= next-rev ',(gnosis-algorithm-date)))) + "Get due notes id for current date. + +Select notes where: + - Next review schedulated date <= current date + - Not suspended." + (emacsql gnosis-db [:select [id] :from review-log :where (and (<= next-rev ',(gnosis-algorithm-date)) + (not suspend))])) (defun gnosis-review--get-offset (id) "Get offset for note with value of id ID." -- cgit v1.2.3