From b0eafe453cab365d1d3d5d534289eba9bfd2b46c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 23 Jul 2024 18:41:16 +0300 Subject: Rewrite review-increment-activity-log * Adjust for adding new notes on reviewed-new column * Use new variable names * Rewrite more cleanly. --- gnosis.el | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index ed45621..1435a3b 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1614,12 +1614,17 @@ If user-input is equal to CLOZE, return t." (gnosis-display-next-review id success) success)) -(defun gnosis-review-increment-activity-log (&optional date) - "Increament activity log for DATE by one." - (let* ((current-value (gnosis-get-date-total-notes)) - (new-value (cl-incf current-value)) +(defun gnosis-review-increment-activity-log (new? &optional date) + "Increament activity log for DATE by one. + +If NEW? is non-nil, increment new notes log by 1." + (let* ((current-total-value (gnosis-get-date-total-notes)) + (inc-total (cl-incf current-total-value)) + (current-new-value (gnosis-get-date-new-notes)) + (inc-new (cl-incf current-new-value)) (date (or date (gnosis-algorithm-date)))) - (gnosis-update 'activity-log `(= note-num ,new-value) `(= date ',date)))) + (gnosis-update 'activity-log `(= reviewed-total ,inc-total) `(= date ',date)) + (and new? (gnosis-update 'activity-log `(= reviewed-new ,inc-new) `(= date ',date))))) (defun gnosis-review-note (id &optional date) "Start review for note with value of id ID, if note is unsuspended. -- cgit v1.2.3