diff options
| author | Thanos Apollo <[email protected]> | 2023-12-27 10:55:19 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2023-12-27 10:55:19 +0200 |
| commit | e2614e8da710608bb6b9739d9edead25f9daeb0a (patch) | |
| tree | 606c4c2d8e6db4edf12a56aa297183973db8d65d | |
| parent | d2db3be0e3d4ad4b5b2b24802bc468dd5498032d (diff) | |
Rename gnosis-face-cloze-false/correct to gnosis-face-correct/false
| -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." |