From e1e7781c8d0ba419e9b9b3553957fbf05f9d0421 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 27 Dec 2023 10:02:18 +0200 Subject: Add while loop for adding notes --- gnosis.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 979b592..7bfb9cc 100644 --- a/gnosis.el +++ b/gnosis.el @@ -237,8 +237,8 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. "Create note as TYPE." (interactive (list (completing-read "Type: " '(MCQ Cloze Basic) nil t))) (pcase type - ("MCQ" (call-interactively 'gnosis-add-note-mcq)) - ("Cloze" (call-interactively 'gnosis-add-note-cloze)) + ("MCQ" (while (y-or-n-p "Add MCQ note? ") (call-interactively 'gnosis-add-note-mcq))) + ("Cloze" (while (y-or-n-p "Add cloze note? ") (call-interactively 'gnosis-add-note-cloze))) ("Basic" (message "Not ready yet.")) (_ (message "No such type.")))) -- cgit v1.2.3