summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-12-25 05:55:30 +0200
committerThanos Apollo <[email protected]>2023-12-25 07:03:43 +0200
commit85ccf0ccfae4aa5dd4505332b5c4fc8e3ea9067c (patch)
tree2111317a755145b44d8604031a18baf9e7a34c11 /gnosis.el
parent83caf73c16a195d4507be3a14f957baa34378890 (diff)
Add gnosis-faces
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el6
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.