From 3aa99b120a16882c26617e4775689b2d52c1b567 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 25 Dec 2023 05:01:58 +0200 Subject: 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 --- gnosis.el | 17 +++++++++++------ 1 file 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 -- cgit v1.2.3