[fix] Fix review of cloze type

Fix typos and previously used logic

1 files 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)))))