New variable: Add custom--valid-values.

* List of valid custom keyword values.

1 files changed, 4 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index 6b396e3..2860464 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -217,11 +217,15 @@ When nil, review new notes last."
 (defvar gnosis-review-notes nil
   "Review notes.")
 
+;; TODO: Make this as a defcustom
 (defvar gnosis-custom-values
   '((:deck "demo" (:proto (0 1 3) :anagnsois 3 :epignosis 0.5 :agnoia 0.3 :amnesia 0.5 :lethe 3))
     (:tag "demo" (:proto (1 2) :anagnosis 3 :epignosis 0.5 :agnoia 0.3 :amnesia 0.45 :lethe 3)))
   "Custom review values for adjusting gnosis algorithm.")
 
+(defvar gnosis-custom--valid-values
+  '(:proto :anagnosis :epignosis :agnoia :amnesia :lethe))
+
 ;;; Faces
 
 (defgroup gnosis-faces nil