algorithm: Use consecutive successful reviews

Use consecutive successful to calculate next interval, for now just
the first 2.

1 files changed, 4 insertions, 4 deletions

diff --git a/gnosis.el b/gnosis.el
index 4ae140e..eee497e 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -271,18 +271,18 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'.
 						     new string)))
   string)
 ;; Review
+;;;;;;;;;;
 (defun gnosis-review--algorithm (id success)
   "Get next review date & ef for note with value of id ID.
 
 SUCCESS is a binary value, 1 = success, 0 = failure.
 Returns a list of the form ((yyyy mm dd) ef)."
   (let ((ff gnosis-algorithm-ff)
-	(ef (nth 2 (gnosis-get 'ef 'review `(= id ,id)))))
+	(ef (nth 2 (gnosis-get 'ef 'review `(= id ,id))))
+	(c-success (gnosis-get 'c-success 'review-log `(= id ,id))))
     (gnosis-algorithm-next-interval (gnosis-review--get-offset id)
 				    (gnosis-get 'n 'review-log `(= id ,id))
-				    ef
-				    success
-				    ff)))
+				    ef success ff c-success)))
 
 (defun gnosis-review-get-due-notes ()
   "Get due notes id for current date.