Add gnosis-review-update--last-rev

1 files changed, 7 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index f05c1f2..d227252 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -198,6 +198,13 @@ SUCCESS is a binary value, 1 = success, 0 = failure."
     (gnosis-update 'review-log `(= next-rev ',(car (gnosis-review--algorithm id 1))) `(= id ,id))
     (gnosis-update 'review `(= ef ,ef) `(= id ,id))))
 
+(cl-defun gnosis-review-update--last-rev (id)
+  "Update last-rev, from review-log, for note with value of id ID.
+
+Change last-rev to current date."
+  (let ((date (gnosis-algorithm-date)))
+    (gnosis-update 'review-log `(= last-rev ',date) `(= id ,id))))
+
 (defun gnosis-review-mcq-choices (id)
   "Display multiple choice answers for question ID."
   (let ((answer (gnosis-get 'answer 'notes `(= id ,id)))