From 8d20fc3183ab2ce486d76df452144d3b1ea7edda Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 23 Jul 2024 18:44:59 +0300 Subject: New function: get-date-new-notes. * Get new notes for date. --- gnosis.el | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'gnosis.el') 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. -- cgit v1.2.3