gnosis-add-note-mcq: Add suspend key with default value of 0

When importing/sharing notes, the default value should be 1

This will be used in the future for new functions to add export/import
functionality

1 files changed, 5 insertions, 4 deletions

diff --git a/gnosis.el b/gnosis.el
index c89e0cc..ee42cbb 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -130,7 +130,7 @@ Set SPLIT to t to split all input given."
   (gnosis--delete 'decks `(= name ,deck))
   (message "Deleted deck %s" deck))
 
-(cl-defun gnosis-add-note-mcq (&key deck question choices correct-answer extra tags)
+(cl-defun gnosis-add-note-mcq (&key deck question choices correct-answer extra tags (suspend 0))
   "Create a NOTE with a list of multiple CHOICES.
 
 MCQ type consists of a main `QUESTION' that is displayed to the user.
@@ -138,8 +138,9 @@ The user will be prompted to select the correct answer from a list of
 `CHOICES'. The `CORRECT-ANSWER' should be the index of the correct
 choice in the `CHOICES' list. Each note must correspond to one `DECK'.
 
-EXTRA are extra information displayed after an answer is given.
-TAGS are used to organize questions."
+`EXTRA' are extra information displayed after an answer is given.
+`TAGS' are used to organize questions.
+`SUSPEND' is a binary value, where 1 is for suspend."
   (interactive
    (list :deck (gnosis--get-deck-name)
 	 :question (read-string "Question: ")
@@ -154,7 +155,7 @@ TAGS are used to organize questions."
 	 (setq tags 'untagged)))
   (gnosis--insert-into 'notes `([nil "mcq" ,question ,choices ,correct-answer ,tags ,(gnosis--get-deck-id deck)]))
   (gnosis--insert-into 'review `([nil ,gnosis-algorithm-ef ,gnosis-algorithm-ff ,gnosis-algorithm-interval]))
-  (gnosis--insert-into 'review-log `([nil ,(gnosis-algorithm-date) ,(gnosis-algorithm-date) 0 0 0]))
+  (gnosis--insert-into 'review-log `([nil ,(gnosis-algorithm-date) ,(gnosis-algorithm-date) 0 ,suspend 0]))
   (gnosis--insert-into 'extras `([nil ,extra nil])))
 
 (defun gnosis-add-note (type)