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 93c261e..90adb10 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1356,6 +1356,11 @@ SECOND-IMAGE: Image to display after user-input"
(let ((ef-increase (gnosis-get 'ef-increase 'decks `(= id ,(gnosis-get 'deck-id 'notes `(= id ,id))))))
(or ef-increase gnosis-algorithm-ef-increase)))
+(defun gnosis-get-ef-decrease (id)
+ "Return ef-decrease for note with value of id ID."
+ (let ((ef-decrease (gnosis-get 'ef-decrease 'decks `(= id ,(gnosis-get 'deck-id 'notes `(= id ,id))))))
+ (or ef-decrease gnosis-algorithm-ef-decrease)))
+
(cl-defun gnosis-export-note (id &optional (export-for-deck nil))
"Export fields for note with value of id ID.