summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-12-27 10:02:18 +0200
committerThanos Apollo <[email protected]>2023-12-27 10:02:18 +0200
commite1e7781c8d0ba419e9b9b3553957fbf05f9d0421 (patch)
tree9944836a5b10ef47e756f6ddd1f7b3afe5a5382a /gnosis.el
parent200e4f4a10eff98b24d24dcdc69446627bf0f3e1 (diff)
Add while loop for adding notes
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el4
1 files changed, 2 insertions, 2 deletions
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."))))