From 97494e078156dd4875ff37869c87e8de11fad3dc Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 14:02:11 +0300 Subject: Add gnosis-get-deck-ff --- gnosis.el | 5 +++++ 1 file changed, 5 insertions(+) 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))) -- cgit v1.2.3