From 5034063ffa17f795ed35bfdacc8a484506c7b4f7 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 19 Dec 2023 20:22:59 +0200 Subject: Add gnosis-review--success --- gnosis.el | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 8a25f06..f05c1f2 100644 --- a/gnosis.el +++ b/gnosis.el @@ -190,6 +190,14 @@ SUCCESS is a binary value, 1 = success, 0 = failure." (if (equal success 1) (nth 0 ef) (nth 1 ef)))) + +(defun gnosis-review--success (id) + "Update review-log for note with value of id ID." + (let ((ef (gnosis-review--new-ef id 1))) + ;; (gnosis-update 'review-log `(= last-rev ',(gnosis-algorithm-date)) `(= id ,id)) + (gnosis-update 'review-log `(= next-rev ',(car (gnosis-review--algorithm id 1))) `(= id ,id)) + (gnosis-update 'review `(= ef ,ef) `(= 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