diff options
author | Thanos Apollo <[email protected]> | 2024-07-21 16:01:49 +0300 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2024-07-21 16:01:49 +0300 |
commit | edcd36b912009573307446b5ce97b77fff955fff (patch) | |
tree | adbe2b446ee1ce9e9455af88802a8bf2a9794b8e /gnosis.el | |
parent | 56d9ecb057327d43372c48dc5cffbd77ae0c79b1 (diff) |
[fix] gnosis-review: Encapsulate update of db.
* All updates of the db should be done within gnosis-review--update.
Diffstat (limited to 'gnosis.el')
-rw-r--r-- | gnosis.el | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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)))) |