summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-05-10 14:02:11 +0300
committerThanos Apollo <[email protected]>2024-05-10 14:02:11 +0300
commit97494e078156dd4875ff37869c87e8de11fad3dc (patch)
treedd701823357d209fb65626461bb06743f95c8dce /gnosis.el
parent39a54a94c460147494b2dd079a39d2c1ce91168a (diff)
Add gnosis-get-deck-ff
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el5
1 files changed, 5 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index 3bfc4b6..dba94e5 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -494,6 +494,11 @@ If NAME is t, return name of deck."
(deck (gnosis-get 'deck-id 'notes id-clause)))
(if name (gnosis--get-deck-name deck) deck)))
+(defun gnosis-get-deck-ff (id)
+ "Return failure factor for deck of ID."
+ (let* ((id-clause `(= id ,id))
+ (deck-ff (gnosis-get 'failure-factor 'decks id-clause)))
+ deck-ff))
(cl-defun gnosis-suspend-note (id)
"Suspend note with ID."
(let ((suspended (= (gnosis-get 'suspend 'review-log `(= id ,id)) 1)))