Add gnosis-display--cloze-correct

1 files changed, 7 insertions, 1 deletions

diff --git a/gnosis.el b/gnosis.el
index 3a41e58..a7a2967 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -113,6 +113,12 @@ Example:
    (fill-paragraph (insert
 		    (gnosis-cloze-replace-words sentence clozes gnosis-cloze-char)))))
 
+(defun gnosis-display--cloze-correct (cloze-chars correct)
+  "Replace CLOZE-CHARS with CORRECT."
+  (with-gnosis-buffer
+   (goto-char (point-min))
+   (search-forward cloze-chars nil t)
+   (replace-match (propertize correct 'face 'gnosis-face-cloze-correct))))
 (defun gnosis-display--correct-answer-mcq (answer user-choice)
   "Display correct ANSWER & USER-CHOICE for MCQ note."
   (with-gnosis-buffer
@@ -362,7 +368,7 @@ SUCCESS is a binary value, 1 is for successful review."
 	       (message "Correct!"))
       (gnosis-review--update id 0)
       (message "False"))
-    (sit-for 0.5)
+    (sit-for 0.3)
     (gnosis-display--correct-answer-mcq answer user-choice)
     (gnosis-display--extra id)))