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.