From 64a848cd000572caebf7068fe17728e6c0c3bf53 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 25 Dec 2023 07:06:05 +0200 Subject: Update gnosis-review with gnosis-display & remove unnecessary delays --- gnosis.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gnosis.el b/gnosis.el index 1fb7814..0fb7ca8 100644 --- a/gnosis.el +++ b/gnosis.el @@ -111,7 +111,7 @@ Set DOWNCASE to t to downcase all input given. Set SPLIT to t to split all input given." (cl-loop with input = nil for response = (read-string (concat prompt " (q for quit): ")) - do (if downcase (setq response (downcase response))) + do (if downcase (setf response (downcase response))) for response-parts = (if split (split-string response " ") (list response)) if (member "q" response-parts) return (nreverse input) do (cl-loop for part in response-parts @@ -162,7 +162,7 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'. (cond ((or (not (numberp correct-answer)) (equal correct-answer 0)) (error "Correct answer value must be the index number of the correct answer")) ((null tags) - (setq tags 'untagged))) + (setf 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 ,suspend 0])) @@ -241,8 +241,8 @@ Returns a list of the form (ef-increase ef-decrease ef)." (progn (gnosis-review--success id) (message "Correct!")) (message "False"))) - (gnosis-display--extra id) - (sit-for 0.5)) + (gnosis-display--correct-answer-mcq id) + (gnosis-display--extra id)) (defun gnosis-review-note (id) "Start review for note with value of id ID." -- cgit v1.2.3