New function: get-date-new-notes.

* Get new notes for date.

1 files changed, 9 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 1a425cc..bd27619 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -2043,6 +2043,15 @@ Defaults to current date."
 	  (gnosis--insert-into 'activity-log `([,date 0]))
 	  0))))
 
+(defun gnosis-get-date-new-notes (&optional date)
+  "Return total notes reviewed for DATE.
+
+Defaults to current date."
+  (cl-assert (listp date) nil "Date must be a list.")
+  (let* ((date (or date (gnosis-algorithm-date)))
+	 (reviewed-new (or (car (gnosis-select 'reviewed-new 'activity-log `(= date ',date) t)) 0)))
+    reviewed-new))
+
 (cl-defun gnosis-export-note (id &optional (export-for-deck nil))
   "Export fields for note with value of id ID.