From 4cb80ac12ad21eb13a48e2b54edb3c3d91600514 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 07:33:08 +0200 Subject: Add gnosis-review-all-with-tags --- gnosis.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 82284cc..17fcf3c 100644 --- a/gnosis.el +++ b/gnosis.el @@ -553,10 +553,14 @@ If user-input is equal to CLOZE, return t." ("cloze" (gnosis-review-cloze id)) (_ (error "Malformed note type"))))) -;;;###autoload -(defun gnosis-review () - "Start gnosis session." - (interactive) +(defun gnosis-review-all-with-tags () + "Review all note(s) with specified tag(s)." + (let ((notes (gnosis-select-by-tag (gnosis-prompt-tag)))) + (cl-loop for note in notes + do (progn (gnosis-review-note note) + (while (y-or-n-p "Review next note?") + (gnosis-review-note note))) + finally (message "Review session finished")))) (let* ((due-notes (gnosis-review-get-due-notes)) (note-count 0) (total-notes (length due-notes))) -- cgit v1.2.3