branch: elpa/gnosis
commit f47e48924c388ee2a37e7a7cf86ab76f54187636
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>

    header: minor aesthetic changes.
---
 gnosis.el | 35 ++++++++++++++++-------------------
 1 file changed, 16 insertions(+), 19 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index b4dcb259f3..6cef4d4bd5 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1283,32 +1283,36 @@ review result."
           (funcall func-name id))
       (error "Malformed note type: '%s'" type))))
 
-(defun gnosis-review-process-note (note note-count)
+(defun gnosis-review-process-note (note &optional note-count)
   "Process review for NOTE and update session statistics.
 
 Displays the note, processes the review result, and updates the
 header.  Returns the incremented NOTE-COUNT after processing.
 
 This is a helper function for `gnosis-review-session'."
-  (let ((success (gnosis-review--display-note note)))
+  (let ((success (gnosis-review--display-note note))
+       (note-count (or note-count 0)))
     (cl-incf note-count)
     (gnosis-review-actions success note note-count)
     (gnosis-review-update-header note-count)
     note-count))
 
-(defun gnosis-review-update-header (note-count)
+(defun gnosis-review-update-header (reviewed-count &optional remaining-reviews)
   "Update the review session header with current stats.
 
-NOTE-COUNT: Number of notes reviewed for current session."
+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*")
-    (setq-local header-line-format
-                (gnosis-center-string
-                (format "%s %s %s"
-                         (propertize (number-to-string note-count)
-                                     'face 'font-lock-type-face)
-                        (propertize "|" 'face 'font-lock-comment-face)
-                         (propertize (number-to-string gnosis-due-notes-total)
-                                     'face 'gnosis-face-false))))))
+    (let ((remaining-reviews (or remaining-reviews gnosis-due-notes-total)))
+      (setq-local header-line-format
+                  (gnosis-center-string
+                  (format "%s %s %s"
+                           (propertize (number-to-string reviewed-count)
+                                       'face 'font-lock-type-face)
+                          (propertize "|" 'face 'font-lock-comment-face)
+                           (propertize (number-to-string remaining-reviews)
+                                      'face 'gnosis-face-false)))))))
 
 (defun gnosis-review-session (notes &optional due note-count)
   "Start review session for NOTES.
@@ -1392,13 +1396,6 @@ be called with new SUCCESS value plus NOTE & NOTE-COUNT."
   (gnosis-display-next-review note success)
   (gnosis-review-actions success note note-count))
 
-;; (defun gnosis-review-action--read (id)
-;;   "Open link for note at extras."
-;;   (let* ((extras (gnosis-get 'extra-notes 'extras `(= id ,id)))
-;;      (ids (gnosis-extract-id-links extras))
-;;      ())
-;;     )
-
 (defun gnosis-review-actions (success id note-count)
   "Specify action during review of note.
 

Reply via email to