From 5fefd3d4407bcc1c6ae02645f60cc665eca995fe Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 14 Jan 2024 11:15:22 +0200 Subject: [fix] Fix review of cloze type Fix typos and previously used logic --- gnosis.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/gnosis.el b/gnosis.el index 11b6c88..7e3e3d0 100644 --- a/gnosis.el +++ b/gnosis.el @@ -912,6 +912,7 @@ Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face." (if (equal (car input) t) ;; Reveal only one cloze (progn (gnosis-display-cloze-reveal :replace cloze) + (gnosis-review--update id 1) (setf num (1+ num))) ;; Reveal cloze for wrong input, with `gnosis-face-false' (gnosis-display-cloze-reveal :replace cloze :success nil) @@ -921,9 +922,7 @@ Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face." (when (< num clozes-num) (gnosis-review-cloze-reveal-unaswered clozes)) (gnosis-display-cloze-user-answer (cdr input)) (gnosis-review--update id 0) - (cl-return))) - finally (gnosis-review--update id 1))) - (gnosis-display--extra id)) + (cl-return))))) (gnosis-display--extra id) (gnosis-display--next-review id)) @@ -1053,7 +1052,7 @@ changes." ((and (listp value) (not (equal value nil))) (insert (format ":%s '%s\n" field (format "%s" (cl-loop for item in value - collect (format "\"%s\"" item)))))) + collect (format "\"%s\"" item)))))) ((equal value nil) (insert (format ":%s %s\n" field 'nil))) (t (insert (format ":%s \"%s\"\n" field value))))) -- cgit v1.2.3