From 07015f7b67243009dfc317548c14e8bcf48eb548 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Sat, 20 Jul 2024 16:58:44 +0300
Subject: review: Update activity log for every note review.

* New function: gnosis-get-date-total-notes.
  * Return total notes reviewed for date.
* New function: Add gnosis-review-increment-log.
  * Update total notes reviewed for current date.
---
 gnosis.el | 36 ++++++++++++++++++++++++++++++------
 1 file changed, 30 insertions(+), 6 deletions(-)

(limited to 'gnosis.el')

diff --git a/gnosis.el b/gnosis.el
index d98af59..6ff4bf0 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1566,18 +1566,29 @@ If user-input is equal to CLOZE, return t."
     (gnosis-display-next-review id success)
     success))
 
-(defun gnosis-review-note (id)
-  "Start review for note with value of id ID, if note is unsuspended."
+(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))
+	 (date (or date (gnosis-algorithm-date))))
+    (gnosis-update 'activity-log `(= note-num ,new-value) `(= date ',date))))
+
+(defun gnosis-review-note (id &optional date)
+  "Start review for note with value of id ID, if note is unsuspended.
+
+DATE: Date to log the note review on the activity-log."
   (when (gnosis-suspended-p id)
     (message "Suspended note with id: %s" id)
     (sit-for 0.3)) ;; this should only occur in testing/dev cases
   (let* ((type (gnosis-get 'type 'notes `(= id ,id)))
-         (func-name (intern (format "gnosis-review-%s" (downcase type)))))
+         (func-name (intern (format "gnosis-review-%s" (downcase type))))
+	 (date (or date (gnosis-algorithm-date))))
     (if (fboundp func-name)
         (progn
 	  (pop-to-buffer-same-window (get-buffer-create "*gnosis*"))
           (gnosis-mode)
-          (funcall func-name id))
+          (funcall func-name id)
+	  (gnosis-review-increment-activity-log date))
       (error "Malformed note type: '%s'" type))))
 
 
@@ -1696,14 +1707,15 @@ To customize the keybindings, adjust `gnosis-review-keybindings'."
   "Start review session for NOTES.
 
 NOTES: List of note ids"
-  (let ((note-count 0))
+  (let ((note-count 0)
+	(date (gnosis-algorithm-date)))
     (if (null notes)
 	(message "No notes for review.")
       (when (y-or-n-p (format "You have %s total notes for review, start session?" (length notes)))
 	(setf gnosis-review-notes notes)
 	(catch 'stop-loop
 	  (cl-loop for note in notes
-		   do (let ((success (gnosis-review-note note)))
+		   do (let ((success (gnosis-review-note note date)))
 			(cl-incf note-count)
 			(gnosis-review-actions success note note-count))
 		   finally (gnosis-review-commit note-count)))))))
@@ -1962,6 +1974,18 @@ SUSPEND: Suspend note, 0 for unsuspend, 1 for suspend"
   (let ((deck-id (gnosis-get 'deck-id 'notes `(= id ,id))))
     (gnosis-get-deck-initial-interval deck-id)))
 
+(defun gnosis-get-date-total-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)))
+	 (note-num (car (gnosis-select 'note-num 'activity-log `(= date ',date) t))))
+    (or note-num
+	(progn
+	  (gnosis--insert-into 'activity-log `([,date 0]))
+	  0))))
+
 (cl-defun gnosis-export-note (id &optional (export-for-deck nil))
   "Export fields for note with value of id ID.
 
-- 
cgit v1.2.3