From 9f86a5c875b4c43725833fcaf29a1e5efc06eef0 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 30 Dec 2023 10:03:15 +0200 Subject: Fix typos --- gnosis.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index efdba9a..7482ff7 100644 --- a/gnosis.el +++ b/gnosis.el @@ -277,7 +277,7 @@ When called with a prefix, unsuspends all notes in deck." (defun gnosis-suspend-tag () "Suspend all note(s) with tag." - (let ((notes (gnosis-select-by-tag (gnosis-prompt-tag))) + (let ((notes (gnosis-select-by-tag (gnosis-tag-prompt))) (suspend (if current-prefix-arg 0 1))) (cl-loop for note in notes do (gnosis-update 'review-log `(= suspend ,suspend) `(= id ,note))))) @@ -344,7 +344,7 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. :choices (gnosis--prompt "Choices") :correct-answer (string-to-number (read-string "Which is the correct answer (number)? ")) :extra (read-string "Extra: ") - :tags (gnosis-prompt-tag))))) + :tags (gnosis-tag-prompt))))) (cl-defun gnosis-add-note--basic (&key deck question hint answer extra (image nil) tags (suspend 0)) "Add Basic type note." @@ -360,7 +360,7 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. :answer (read-string "Answer: ") :hint (read-string "Hint: ") :extra (read-string "Extra: ") - :tags (gnosis-prompt-tag))))) + :tags (gnosis-tag-prompt))))) (cl-defun gnosis-add-note--cloze (&key deck note hint tags (suspend 0) extra (image nil)) "Add cloze type note. @@ -377,12 +377,12 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. "Add note(s) of type cloze interactively to selected deck." (interactive) (let ((deck (gnosis--get-deck-name))) - (while (y-or-n-p (format "Add note of type `basic' to `%s' deck? " deck)) + (while (y-or-n-p (format "Add note of type `cloze' to `%s' deck? " deck)) (gnosis-add-note--cloze :deck deck :note (read-string "Question: ") :hint (read-string "Hint: ") :extra (read-string "Extra: ") - :tags (gnosis-prompt-tag))))) + :tags (gnosis-tag-prompt))))) ;;;###autoload -- cgit v1.2.3