diff options
Diffstat (limited to 'org-fc-review.el')
-rw-r--r-- | org-fc-review.el | 16 |
1 files changed, 7 insertions, 9 deletions
diff --git a/org-fc-review.el b/org-fc-review.el index e0e882b..c96a159 100644 --- a/org-fc-review.el +++ b/org-fc-review.el @@ -477,15 +477,13 @@ removed." (defun org-fc-review-add-rating (session rating) "Store RATING in the review history of SESSION." (with-slots (ratings) session - (if (eq org-fc-algorithm 'tn) - (cl-case rating - ('incorrect (cl-incf (cl-getf ratings :incorrect) 1)) - ('correct (cl-incf (cl-getf ratings :correct) 1))) - (cl-case rating - ('again (cl-incf (cl-getf ratings :again) 1)) - ('hard (cl-incf (cl-getf ratings :hard) 1)) - ('good (cl-incf (cl-getf ratings :good) 1)) - ('easy (cl-incf (cl-getf ratings :easy) 1)))) + (cl-case rating + ;; ('incorrect (cl-incf (cl-getf ratings :incorrect) 1)) + ;; ('correct (cl-incf (cl-getf ratings :correct) 1)) + ('again (cl-incf (cl-getf ratings :again) 1)) + ('hard (cl-incf (cl-getf ratings :hard) 1)) + ('good (cl-incf (cl-getf ratings :good) 1)) + ('easy (cl-incf (cl-getf ratings :easy) 1))) (cl-incf (cl-getf ratings :total 1)))) ;;; Header Line |