From 525cc7613fec31aa6a76f08d2f9ca085b177b04b Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 14 Dec 2023 12:23:33 +0200 Subject: Update gnosis-add-note-mcq - If tags is nil, default to 'untagged - Insert values to review table --- gnosis.el | 21 ++++++++++++--------- 1 file changed, 12 insertions(+), 9 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index fd4c27c..88cb4e8 100644 --- a/gnosis.el +++ b/gnosis.el @@ -106,29 +106,32 @@ the returns the list of inputs in reverse order." (interactive (list (gnosis--get-deck-id))) (gnosis--delete 'decks `(= id ,id))) -(cl-defun gnosis-create-mcq-question (&key deck question choices correct-answer tags) - "Create a QUESTION with a list of multiple CHOICES,,, DECK. - -MCQ type questions consist of a main `QUESTION', which is displayed & -the user will be prompted to find the `CORRECT-ANSWER', which is the -correct number choice of `CHOICES'. +(cl-defun gnosis-add-note-mcq (&key deck question choices correct-answer tags) + "Create a NOTE with a list of multiple CHOICES. +MCQ type consists of a main `QUESTION' that is displayed to the user. +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'. TAGS are used to organize questions." (interactive (list :deck (gnosis--get-deck-id) :question (read-string "Question: ") :choices (gnosis--ask-input "Choices") :correct-answer (string-to-number (read-string "Which is the correct answer (number)? ")) - :tags (gnosis--ask-input "Tags"))) + :tags (when (equal (gnosis--ask-input "Tags") nil) 'untagged))) (when (equal (numberp correct-answer) nil) (error "The correct answer must be the number of the correct answer")) - (gnosis--insert-into 'notes `([nil "mcq" ,question ,choices ,correct-answer ,tags, nil nil nil ,deck]))) + (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))))) + (gnosis--insert-into 'review `([,note-id ,gnosis-ef ,gnosis-ff 0 0 0])))) (defun gnosis-add-note (type) "Create note as TYPE." (interactive (list (completing-read "Type: " '(MCQ Cloze Basic)))) (pcase type - ("MCQ" (call-interactively 'gnosis-add-mcq-question)) + ("MCQ" (call-interactively 'gnosis-add-note-mcq)) ("Cloze" (message "Not ready yet.")) ("Basic" (message "Not ready yet.")) (_ (message "No such type.")))) -- cgit v1.2.3