From bd120c8edf4c9f56534917bff1aba7fcd0d4e1c3 Mon Sep 17 00:00:00 2001 From: Marek Paśnikowski Date: Sun, 14 Jan 2024 11:23:24 +0100 Subject: Disable the other rating keys for the TN algorithm --- org-fc-algo-tn.el | 5 +++-- org-fc-review.el | 14 +++++++------- 2 files changed, 10 insertions(+), 9 deletions(-) diff --git a/org-fc-algo-tn.el b/org-fc-algo-tn.el index 44583c6..9b547d4 100644 --- a/org-fc-algo-tn.el +++ b/org-fc-algo-tn.el @@ -4,8 +4,9 @@ (defun nth-tn (n) "The mathematical formula for the Nth triangular number." - (/ (* n (1+ n)) - 2)) + (- (/ (* n (1+ n)) + 2) + 0.5)) (defun org-fc-algo-tn-next-parameters (ease box interval rating) "Calculate the next parameters of a card, based on the review RATING. diff --git a/org-fc-review.el b/org-fc-review.el index c96a159..0ad8de7 100644 --- a/org-fc-review.el +++ b/org-fc-review.el @@ -516,7 +516,7 @@ removed." (defvar org-fc-review-flip-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "RET") 'org-fc-review-flip) + (define-key map (kbd "f") 'org-fc-review-flip) (define-key map (kbd "q") 'org-fc-review-quit) (define-key map (kbd "p") 'org-fc-review-edit) (define-key map (kbd "s") 'org-fc-review-suspend-card) @@ -542,12 +542,12 @@ removed." (defvar org-fc-review-rate-mode-map (let ((map (make-sparse-keymap))) - (define-key map (kbd "i") 'org-fc-review-rate-incorrect) - (define-key map (kbd "c") 'org-fc-review-rate-correct) - (define-key map (kbd "a") 'org-fc-review-rate-again) - (define-key map (kbd "h") 'org-fc-review-rate-hard) - (define-key map (kbd "g") 'org-fc-review-rate-good) - (define-key map (kbd "e") 'org-fc-review-rate-easy) + (define-key map (kbd "r") 'org-fc-review-rate-incorrect) + (define-key map (kbd "v") 'org-fc-review-rate-correct) + ;; (define-key map (kbd "a") 'org-fc-review-rate-again) + ;; (define-key map (kbd "h") 'org-fc-review-rate-hard) + ;; (define-key map (kbd "g") 'org-fc-review-rate-good) + ;; (define-key map (kbd "e") 'org-fc-review-rate-easy) (define-key map (kbd "s") 'org-fc-review-suspend-card) (define-key map (kbd "p") 'org-fc-review-edit) (define-key map (kbd "q") 'org-fc-review-quit) -- cgit v1.2.3