From 86a1e38c677b0a94ab9679d210c5ccf547dd1699 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 04:25:58 +0200 Subject: Redo adding tags with gnosis-prompt-tag for all types --- gnosis.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnosis.el b/gnosis.el index a1318fe..0e8393a 100644 --- a/gnosis.el +++ b/gnosis.el @@ -262,7 +262,7 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. ;; NOTE: string-to-number transforms non-number strings to 0 :correct-answer (string-to-number (read-string "Which is the correct answer (number)? ")) :extra (read-string "Extra: ") - :tags (gnosis--prompt "Tags" t t))) + :tags (gnosis-prompt-tag))) (cond ((or (not (numberp correct-answer)) (equal correct-answer 0)) (error "Correct answer value must be the index number of the correct answer")) ((null tags) @@ -277,10 +277,10 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. :hint (read-string "Hint: ") :answer (read-string "Answer: ") :extra (read-string "Extra: ") - :tags (gnosis--prompt "Tags" t t))) + :tags (gnosis-prompt-tag))) (gnosis-add-note-fields deck "basic" question hint answer extra tags suspend image)) -(cl-defun gnosis-add-note-cloze (&key deck note tags (suspend 0) extra (image nil)) +(cl-defun gnosis-add-note-cloze (&key deck note hint tags (suspend 0) extra (image nil)) "Add cloze type note. `EXTRA' are extra information displayed after an answer is given. @@ -289,7 +289,7 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. (interactive (list :deck (gnosis--get-deck-name) :note (read-string "Cloze note: ") :extra (read-string "Extra: ") - :tags (gnosis--prompt "Tags" t t))) + :tags (gnosis-prompt-tag))) (let ((notags-note (gnosis-cloze-remove-tags note)) (clozes (gnosis-cloze-extract-answers note))) (cl-loop for cloze in clozes -- cgit v1.2.3