summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-12-28 04:25:58 +0200
committerThanos Apollo <[email protected]>2023-12-28 04:25:58 +0200
commit86a1e38c677b0a94ab9679d210c5ccf547dd1699 (patch)
tree00c3b8e0ebf9cf2b0c6bfe55690cf60c4f808cd9 /gnosis.el
parent297338ffb376be27b60ff2c58ed54575222d39b2 (diff)
Redo adding tags with gnosis-prompt-tag for all types
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el8
1 files 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