From 542d6ad2cf21e6afde421c58999c8e68701301a1 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 9 Jan 2024 10:39:01 +0200 Subject: Add gnosis-review-is-due-today-p --- gnosis.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/gnosis.el b/gnosis.el index 9c8ea40..b9e7d04 100644 --- a/gnosis.el +++ b/gnosis.el @@ -757,6 +757,15 @@ Check if it's suspended, and if it's due today." (gnosis-review-is-due-today-p note-id)) t nil)) + +(defun gnosis-review-is-due-today-p (id) + "Return t if note with ID is due today. + +This function ignores if note is suspended. Refer to +`gnosis-review-is-due-p' if you need to check for suspended value as +well." + (let ((next-rev (gnosis-get 'next-rev 'review-log `(= id ,id)))) + (gnosis-past-or-present-p next-rev))) (defun gnosis-review--algorithm (id success) "Return next review date & ef for note with value of id ID. -- cgit v1.2.3