Add gnosis-faces

1 files changed, 4 insertions, 2 deletions

diff --git a/gnosis.el b/gnosis.el
index 025d9b7..c89e0cc 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -36,6 +36,7 @@
 (require 'emacsql-sqlite)
 (require 'cl-lib)
 (require 'gnosis-algorithm)
+(require 'gnosis-faces)
 
 (defgroup gnosis nil
   "Spaced repetition learning tool."
@@ -81,13 +82,14 @@ Example:
 	(switch-to-buffer
 	 (get-buffer-create "*gnosis*"))
       (erase-buffer)
-      (fill-paragraph (insert question)))))
+      (fill-paragraph (insert (propertize question 'face 'gnosis-face-main))))))
 
 (defun gnosis-display--extra (id)
   "Display extra information for note ID."
   (let ((extras (gnosis-get 'extra-notes 'extras `(= id ,id))))
     (with-current-buffer (switch-to-buffer (get-buffer-create "*gnosis*"))
-      (fill-paragraph (insert (concat "\n\n" extras))))))
+      (insert (propertize "\n\n-----\n" 'face 'gnosis-face-seperator))
+      (fill-paragraph (insert (concat "\n" (propertize extras 'face 'gnosis-face-extra)))))))
 
 (cl-defun gnosis--prompt (prompt &optional (downcase nil) (split nil))
   "PROMPT user for input until `q' is given.