summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/gnosis.el b/gnosis.el
index e0d05d4..4660333 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -139,13 +139,13 @@ TAGS are used to organize questions."
(gnosis--insert-into 'notes `([nil "mcq" ,question ,choices ,correct-answer ,tags ,deck]))
;; Get last inserted note-id
(let ((note-id (caar (last (gnosis--select 'id 'notes))))
- (date (gnosis-date-current)))
- (gnosis--insert-into 'review `([,note-id ,gnosis-ef ,gnosis-ff 0 0]))
- (gnosis--insert-into 'review-log `([,note-id 0 ,date 0 0]))))
+ (date (gnosis-algorithm-date)))
+ (gnosis--insert-into 'review `([,note-id ,gnosis-algorithm-ef ,gnosis-algorithm-ff ,gnosis-algorithm-interval]))
+ (gnosis--insert-into 'review-log `([,note-id ,date ,date 0 0 0]))))
(defun gnosis-add-note (type)
"Create note as TYPE."
- (interactive (list (completing-read "Type: " '(MCQ Cloze Basic))))
+ (interactive (list (completing-read "Type: " '(MCQ Cloze Basic) nil t)))
(pcase type
("MCQ" (call-interactively 'gnosis-add-note-mcq))
("Cloze" (message "Not ready yet."))