branch: elpa/gnosis
commit a30e09a3ea4a9bf9d6997b8ca2c16ee6e62717ab
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
review-process-thema: Imporve performance and update review-themata.
+ Only jump to register if it exists.
+ Update review-themata value.
---
gnosis.el | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index cc4ffd21779..bb7b9210733 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1268,8 +1268,10 @@ This is a helper function for `gnosis-review-session'."
(cl-incf thema-count)
(unless success (gnosis-monkeytype-answer thema))
(gnosis-review-actions success thema thema-count)
- (jump-to-register :gnosis-pre-image)
- (gnosis-review-update-header thema-count)
+ ;; Use jump-to-register after first review.
+ (and (not (null (get-register :gnosis-pre-image))) (jump-to-register
:gnosis-pre-image))
+ (setq gnosis-review-themata (remove thema gnosis-review-themata))
+ (gnosis-review-update-header thema-count (length gnosis-review-themata))
thema-count))
(defun gnosis-review-update-header (reviewed-count &optional remaining-reviews)
@@ -1279,7 +1281,7 @@ REVIEWED-COUNT: Total number of items that have been
reviewed in
current session.
REMAINING-REVIEWS: Total number of remaining items to be reviewed."
(with-current-buffer (get-buffer-create gnosis-review-buffer-name)
- (let ((remaining-reviews (or remaining-reviews gnosis-due-themata-total)))
+ (let ((remaining-reviews (or remaining-reviews (+1 (length
gnosis-review-themata)))))
(setq-local header-line-format
(gnosis-center-string
(format "%s %s %s"
