diff options
| -rw-r--r-- | gnosis-faces.el | 4 | ||||
| -rw-r--r-- | gnosis.el | 8 |
2 files changed, 6 insertions, 6 deletions
diff --git a/gnosis-faces.el b/gnosis-faces.el index 0d00946..116c90f 100644 --- a/gnosis-faces.el +++ b/gnosis-faces.el @@ -60,12 +60,12 @@ "Face for user choice." :group 'gnosis-face) -(defface gnosis-face-cloze-correct +(defface gnosis-face-correct '((t :inherit homoglyph)) "Face for user choice." :group 'gnosis-face) -(defface gnosis-face-cloze-false +(defface gnosis-face-false '((t :inherit error)) "Face for user choice." :group 'gnosis-face) @@ -118,17 +118,17 @@ Example: (with-gnosis-buffer (goto-char (point-min)) (search-forward cloze-chars nil t) - (replace-match (propertize correct 'face 'gnosis-face-cloze-correct)))) + (replace-match (propertize correct 'face 'gnosis-face-correct)))) (cl-defun gnosis-display--cloze-user-answer (user-input &optional (false nil)) "Display USER-INPUT answer for cloze note. -If FALSE t, use gnosis-face-cloze-false face" +If FALSE t, use gnosis-face-false face" (with-gnosis-buffer (goto-char (point-max)) (insert (concat "\nYour answer: " (propertize user-input 'face (if false - 'gnosis-face-cloze-false - 'gnosis-face-cloze-correct)))))) + 'gnosis-face-false + 'gnosis-face-correct)))))) (defun gnosis-display--correct-answer-mcq (answer user-choice) "Display correct ANSWER & USER-CHOICE for MCQ note." |