From 5f51fa5efe1f78b5eda98145c17c8af9372d855a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 14 May 2024 06:51:06 +0300 Subject: gnosis-get-note-ff: Use deck-ff over note-ff --- gnosis.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/gnosis.el b/gnosis.el index 5931dfc..27c57e8 100644 --- a/gnosis.el +++ b/gnosis.el @@ -501,12 +501,12 @@ If NAME is t, return name of deck." deck-ff)) (defun gnosis-get-note-ff (id) - "Return failure factor for note 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) - )) + (if (and deck-ff (> deck-ff note-ff)) + deck-ff + note-ff))) (cl-defun gnosis-suspend-note (id) "Suspend note with ID." @@ -1873,7 +1873,8 @@ DASHBOARD-TYPE: either 'Notes' or 'Decks' to display the respective dashboard." ("notes" (gnosis-dashboard-output-notes (gnosis-collect-note-ids))) ("decks" (gnosis-dashboard-output-decks)) ("tags" (gnosis-dashboard-output-notes (gnosis-collect-note-ids :tags t))) - ("search" (gnosis-dashboard-output-notes (gnosis-collect-note-ids :query (read-string "Search for note: ")))))) + ("search" (gnosis-dashboard-output-notes + (gnosis-collect-note-ids :query (read-string "Search for note: ")))))) (tabulated-list-print t))) (defun gnosis-db-init () -- cgit v1.2.3