From b919351d70d70e3d5c3dc7a16ccaf4e703f16b7f Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 10 May 2024 14:02:24 +0300 Subject: Add gnosis-get-note-ff --- gnosis.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/gnosis.el b/gnosis.el index dba94e5..a951664 100644 --- a/gnosis.el +++ b/gnosis.el @@ -499,6 +499,15 @@ If NAME is t, return name of deck." (let* ((id-clause `(= id ,id)) (deck-ff (gnosis-get 'failure-factor 'decks id-clause))) deck-ff)) + +(defun gnosis-get-note-ff (id) + "Return failure factor for note ID.." + (let ((deck-ff (gnosis-get-deck-ff (gnosis-get-deck--note id))) + (note-ff (gnosis-get 'ff 'review `(= id ,id)))) + deck-ff + ;; (max deck-ff note-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