summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis-faces.el4
-rw-r--r--gnosis.el8
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."