From 345748cf07f13f0f489edec5d3a9d6b69288ee6b Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 19 Dec 2023 20:20:39 +0200 Subject: Update addition of notes for new schemas --- gnosis.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'gnosis.el') 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.")) -- cgit v1.2.3