gnosis-review: Add y-or-n-p for review next note

Prompt user for y or n to review next note
- Give time to read extra section

1 files changed, 11 insertions, 6 deletions

diff --git a/gnosis.el b/gnosis.el
index 256d2a7..0a6fb0e 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -239,14 +239,19 @@ Returns a list of the form (ef-increase ef-decrease ef)."
 (defun gnosis-review ()
   "Start gnosis session."
   (interactive)
-  (let ((due-notes (gnosis-review-get-due-notes))
-	(note-count 0))
+  (let* ((due-notes (gnosis-review-get-due-notes))
+         (note-count 0)
+         (total-notes (length due-notes)))
     (if (null due-notes)
-	(message "No 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)))
-	       finally (message "Review session finished. %d note(s) reviewed." note-count)))))
+               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)))))
 
 ;;; Database Schemas
 ;; Enable foreign_keys