summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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"