Add gnosis-display--hint

1 files changed, 7 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index f954d29..9a61325 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -125,6 +125,13 @@ else use `gnosis-face-false'"
 							'gnosis-face-correct
 						      'gnosis-face-false))))))
 
+(defun gnosis-display--hint (hint)
+  "Display HINT."
+  (with-gnosis-buffer
+   (goto-char (point-max))
+   (insert (concat "\n\nHint: "
+		   (propertize hint 'face 'gnosis-face-hint)))))
+
 (defun gnosis-display--cloze-correct (cloze-chars correct)
   "Replace CLOZE-CHARS with CORRECT."
   (with-gnosis-buffer