New function: get-custom-values: Return custom review values.

* Returns custom values to adjust gnosis algorithm for each deck and tag

1 files changed, 14 insertions, 0 deletions

diff --git a/gnosis.el b/gnosis.el
index a39d08b..6c69b98 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1977,6 +1977,20 @@ SUSPEND: Suspend note, 0 for unsuspend, 1 for suspend"
 		     (gnosis-update 'notes `(= ,field ',value) `(= id ,id)))
 		    (t (gnosis-update 'notes `(= ,field ,value) `(= id ,id))))))
 
+(defun gnosis-get-custom-values (key search-value &optional values)
+  "Return SEARCH-VALUE for KEY from VALUES.
+
+VALUES: Defaults to `gnosis-custom-values'."
+  (cl-assert (or (eq key :deck) (eq key :tag)) nil "Key value must be either :tag or :deck")
+  (cl-assert (stringp search-value) nil "Search-value must be a string, the name of tag or deck.")
+  (let ((results)
+	(values (or values gnosis-custom-values)))
+    (dolist (rule values)
+      (when (and (plist-get rule key)
+                 (equal (plist-get rule key) search-value))
+        (setq results (append results (nth 2 rule)))))
+    results))
+
 
 (defun gnosis-get-date-total-notes (&optional date)
   "Return total notes reviewed for DATE.