From 6267dd0904cb2dec4b6e2d23f6d86e3657890ce9 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 25 Dec 2023 07:04:56 +0200 Subject: Add gnosis-display--correct-answer-mcq --- gnosis.el | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'gnosis.el') 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)))) -- cgit v1.2.3