summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el57
1 files changed, 55 insertions, 2 deletions
diff --git a/gnosis.el b/gnosis.el
index 26e2754..abda991 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -34,8 +34,6 @@
(require 'cl-lib)
(require 'gnosis-algorithm)
-(require 'gnosis-faces)
-
(defgroup gnosis nil
"Spaced repetition learning tool."
@@ -67,6 +65,61 @@ WARNING: Do not change this value!")
(defconst gnosis-db-version 1
"Gnosis database version.")
+;;; Faces
+
+(defgroup gnosis-faces nil
+ "Faces used by gnosis."
+ :group 'gnosis
+ :tag "Gnosis Faces"
+ :prefix 'gnosis-face)
+
+(defface gnosis-face-extra
+ '((t :inherit markdown-italic-face))
+ "Face for extra-notes from note."
+ :group 'gnosis-faces)
+
+(defface gnosis-face-main
+ '((t :inherit default))
+ "Face for main section from note."
+ :group 'gnosis-face-faces)
+
+(defface gnosis-face-seperator
+ '((t :inherit warning))
+ "Face for section seperator."
+ :group 'gnosis-face)
+
+(defface gnosis-face-directions
+ '((t :inherit underline))
+ "Face for gnosis directions."
+ :group 'gnosis-face)
+
+(defface gnosis-face-correct
+ '((t :inherit match))
+ "Face for user choice."
+ :group 'gnosis-face)
+
+(defface gnosis-face-cloze
+ '((t :inherit cursor))
+ "Face for clozes."
+ :group 'gnosis-face)
+
+(defface gnosis-face-false
+ '((t :inherit error))
+ "Face for user choice."
+ :group 'gnosis-face)
+
+(defface gnosis-face-hint
+ '((t :inherit warning))
+ "Face for user choice."
+ :group 'gnosis-face)
+
+(defface gnosis-face-cloze-unanswered
+ '((t :inherit underline))
+ "Face for user choice."
+ :group 'gnosis-face)
+
+
+
(cl-defun gnosis-select (value table &optional (restrictions '1=1))
"Select VALUE from TABLE, optionally with RESTRICTIONS."
(gnosis-db-init)