gnosis-display: Update basic answer faces

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"