mcq: Update display of correct answer

1 files changed, 9 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 35d8432..72f300d 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -110,6 +110,15 @@ Example:
 		      (propertize answer 'face 'gnosis-face-correct-answer)
 		      "\nYour answer: "
 		      (propertize user-choice 'face 'gnosis-face-user-choice))))))
+(defun gnosis-display--correct-answer-mcq (answer user-choice)
+  "Display correct ANSWER & USER-CHOICE for MCQ note."
+  (with-current-buffer
+      (switch-to-buffer
+       (get-buffer-create "*gnosis*"))
+    (insert (concat "\n\nCorrect answer: "
+		    (propertize answer 'face 'gnosis-face-correct-answer)
+		    "\nYour answer: "
+		    (propertize user-choice 'face 'gnosis-face-user-choice)))))
 
 (defun gnosis-display--extra (id)
   "Display extra information for note ID."