summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el7
1 files changed, 7 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index 9708fdb..b46a8a2 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1464,6 +1464,13 @@ well."
(append (cl-subseq new-notes 0 gnosis-new-notes-limit) old-notes)
(append old-notes (cl-subseq new-notes 0 gnosis-new-notes-limit)))))
+(defun gnosis-review-get-overdue-notes (&optional note-ids)
+ "Return overdue notes for current DATE.
+
+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-tags ()
"Return a list of due note tags."
(let ((due-notes (gnosis-review-get-due-notes)))