From f90f72b2bdf5713190711bbb921b58f1314e7e6c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 11 Aug 2024 23:03:54 +0300 Subject: New function: review-get-due-notes--no-overdue. * Return due notes, without overdue ones. --- gnosis.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index b46a8a2..8ebb158 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1471,6 +1471,14 @@ Optionally, provide NOTE-IDS of which the overdue ones will be returned." (cl-loop for note in (or note-ids (gnosis-review-get-due-notes)) when (gnosis-review-note-overdue-p note) collect note)) + +(defun gnosis-review-get-due-notes--no-overdue (&optional note-ids) + "Return due notes, without overdue. + +Optionally, provide a list for due NOTE-IDS." + (let ((note-ids (or note-ids (length (gnosis-review-get-due-notes))))) + (cl-set-difference note-ids (gnosis-review-get-overdue-notes note-ids)))) + (defun gnosis-review-get-due-tags () "Return a list of due note tags." (let ((due-notes (gnosis-review-get-due-notes))) -- cgit v1.2.3