summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el14
1 files changed, 6 insertions, 8 deletions
diff --git a/gnosis.el b/gnosis.el
index fcd4fb2..4878680 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -349,16 +349,14 @@ SUCCESS is a binary value, 1 is for successful review."
(gnosis-display--correct-answer-mcq answer user-choice)
(gnosis-display--extra id)))
-(defun gnosis-review-cloze--input (id answer)
+(defun gnosis-review-cloze--input (cloze)
"Prompt for user input during cloze review.
-If user-input is equal to ANSWER, update card ID for successful review."
- (let ((user-input (downcase (read-string "Answer: "))))
- (if (string= user-input (downcase answer))
- (progn (gnosis-review--update id 1)
- (message "Correct!"))
- (gnosis-review--update id 0)
- (message "Fail"))))
+If user-input is equal to CLOZE, return t."
+ (let ((user-input (read-string "Cloze: ")))
+ (if (string= user-input cloze)
+ t
+ nil)))
(defun gnosis-review-cloze (id)
"Review cloze type note for ID."