summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-07-21 16:01:49 +0300
committerThanos Apollo <[email protected]>2024-07-21 16:01:49 +0300
commitedcd36b912009573307446b5ce97b77fff955fff (patch)
treeadbe2b446ee1ce9e9455af88802a8bf2a9794b8e
parent56d9ecb057327d43372c48dc5cffbd77ae0c79b1 (diff)
[fix] gnosis-review: Encapsulate update of db.
* All updates of the db should be done within gnosis-review--update.
-rw-r--r--gnosis.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/gnosis.el b/gnosis.el
index 1c3881d..bee4d15 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1450,6 +1450,8 @@ Returns a list of the form ((yyyy mm dd) (ef-increase ef-decrease ef-total))."
SUCCESS is a boolean value, t for success, nil for failure."
(let ((ef (cadr (gnosis-review-algorithm id success)))
(next-rev (car (gnosis-review-algorithm id success))))
+ ;; Update activity-log
+ (gnosis-review-increment-activity-log)
;; Update review-log
(gnosis-update 'review-log `(= last-rev ',(gnosis-algorithm-date)) `(= id ,id))
(gnosis-update 'review-log `(= next-rev ',next-rev) `(= id ,id))
@@ -1595,8 +1597,7 @@ DATE: Date to log the note review on the activity-log."
(progn
(pop-to-buffer-same-window (get-buffer-create "*gnosis*"))
(gnosis-mode)
- (funcall func-name id)
- (gnosis-review-increment-activity-log date))
+ (funcall func-name id))
(error "Malformed note type: '%s'" type))))