diff options
| -rw-r--r-- | gnosis.el | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -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)))) |