summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index ee42cbb..1fb7814 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -84,6 +84,16 @@ Example:
(erase-buffer)
(fill-paragraph (insert (propertize question 'face 'gnosis-face-main))))))
+(defun gnosis-display--correct-answer-mcq (id)
+ "Display correct answer for MCQ note type with ID."
+ (let* ((correct-answer (gnosis-get 'answer 'notes `(= id ,id)))
+ (options (gnosis-get 'options 'notes `(= id ,id)))
+ (answer (nth correct-answer options)))
+ (with-current-buffer
+ (switch-to-buffer
+ (get-buffer-create "*gnosis*"))
+ (insert (concat "\n\nCorrect answer: " (propertize answer 'face 'gnosis-face-correct-answer))))))
+
(defun gnosis-display--extra (id)
"Display extra information for note ID."
(let ((extras (gnosis-get 'extra-notes 'extras `(= id ,id))))