summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index 7d51378..93c261e 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1351,6 +1351,11 @@ SECOND-IMAGE: Image to display after user-input"
"Return a list of ID vlaues for each note with value of deck-id DECK."
(gnosis-select 'id 'notes `(= deck-id ,deck) t))
+(defun gnosis-get-ef-increase (id)
+ "Return ef-increase for note with value of id ID."
+ (let ((ef-increase (gnosis-get 'ef-increase 'decks `(= id ,(gnosis-get 'deck-id 'notes `(= id ,id))))))
+ (or ef-increase gnosis-algorithm-ef-increase)))
+
(cl-defun gnosis-export-note (id &optional (export-for-deck nil))
"Export fields for note with value of id ID.