From e2614e8da710608bb6b9739d9edead25f9daeb0a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 27 Dec 2023 10:55:19 +0200 Subject: Rename gnosis-face-cloze-false/correct to gnosis-face-correct/false --- gnosis-faces.el | 4 ++-- 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) diff --git a/gnosis.el b/gnosis.el index 7ff38fa..e843abc 100644 --- a/gnosis.el +++ b/gnosis.el @@ -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." -- cgit v1.2.3