From 8bffbbcf0803717b4c5e9044fbce9cd7af043d5c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 19 Dec 2023 20:26:06 +0200 Subject: Add gnosis-review-update--last-rev --- gnosis.el | 7 +++++++ 1 file changed, 7 insertions(+) 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))) -- cgit v1.2.3