From 962048711ceb5ccc9ad68fafe6e2bc849f5ebd8e Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 07:33:30 +0200 Subject: Rewrite gnosis-review-all-due-notes --- gnosis.el | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) diff --git a/gnosis.el b/gnosis.el index 17fcf3c..fb36bf6 100644 --- a/gnosis.el +++ b/gnosis.el @@ -561,19 +561,21 @@ If user-input is equal to CLOZE, return t." (while (y-or-n-p "Review next note?") (gnosis-review-note note))) finally (message "Review session finished")))) +(defun gnosis-review-all-due-notes () + "Review all due notes." (let* ((due-notes (gnosis-review-get-due-notes)) (note-count 0) (total-notes (length due-notes))) (if (null due-notes) (message "No due notes.") - (cl-loop for note in due-notes - do (progn - (gnosis-review-note (car note)) - (setf note-count (+ note-count 1)) - (when (and (< note-count total-notes) - (not (y-or-n-p "Review next note?"))) - (cl-return))) - finally (message "Review session finished. %d note(s) reviewed." note-count))))) + (when (y-or-n-p (format "You have %s total notes for review, start session?" total-notes)) + (cl-loop for note in due-notes + do (progn + (gnosis-review-note (car note)) + (setf note-count (+ note-count 1)) + (when (not (y-or-n-p "Review next note?")) + (cl-return))) + finally (message "Review session finished. %d note(s) reviewed." note-count)))))) ;;; Database Schemas ;; Enable foreign_keys -- cgit v1.2.3