summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-12-28 13:32:00 +0200
committerThanos Apollo <[email protected]>2023-12-28 13:32:00 +0200
commita6dd907bfceeda0e7aecc91baa505f0db6cf2f7f (patch)
tree0383d820c7c638f7a4815cab58d9a3690488a11e /gnosis.el
parentadf6d236a198e9d06f6bd0d1a992f5cf2c1a52b8 (diff)
gnosis-display: Update basic answer faces
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/gnosis.el b/gnosis.el
index 8b00253..edd7c4e 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -118,12 +118,13 @@ Example:
(defun gnosis-display--basic-answer (answer success user-input)
"Display ANSWER.
-Depending on the value of SUCCESS, display it using different faces.
-If success t, use `gnsois-face-correct'
-else use `gnosis-face-false'"
+When SUCCESS nil, display USER-INPUT as well"
(with-gnosis-buffer
(insert
- (concat "\n\nAnswer: " (propertize answer 'face (if success 'gnosis-face-correct 'gnosis-face-false))))
+ (concat "\n\n"
+ (propertize "Answer:" 'face 'gnosis-face-directions)
+ " "
+ (propertize answer 'face 'gnosis-face-correct)))
;; Insert user wrong answer
(when (not success)
(insert (concat "\n"