From 733d50b109b3e34ca96e13bec0a09e6490d92721 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 07:34:21 +0200 Subject: Rewrite gnosis-review - Prompt user to select review sesstion type to start --- gnosis.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index b04905f..b22144c 100644 --- a/gnosis.el +++ b/gnosis.el @@ -583,6 +583,17 @@ If user-input is equal to CLOZE, return t." (when (not (y-or-n-p "Review next note?")) (cl-return))) finally (message "Review session finished. %d note(s) reviewed." note-count)))))) +;;;###autoload +(defun gnosis-review () + "Start gnosis review session." + (interactive) + (let ((review-type (completing-read "Review: " '("All due notes" + "All due notes for tag(s)" + "All notes for tag(s)")))) + (pcase review-type + ("All due notes" (gnosis-review-all-due-notes)) + ("All due notes with tag(s)" (gnosis-review-due-tags)) + ("All notes for tag(s)" (gnosis-review-all-with-tags))))) ;;; Database Schemas ;; Enable foreign_keys -- cgit v1.2.3