summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-14 11:15:22 +0200
committerThanos Apollo <[email protected]>2024-01-14 11:15:40 +0200
commit5fefd3d4407bcc1c6ae02645f60cc665eca995fe (patch)
tree5bc76eb1756de0b21a05f5879845728f5fac2cda /gnosis.el
parent70e8633c6406d6df3d96e648dbaf4f97c73d7b55 (diff)
[fix] Fix review of cloze type
Fix typos and previously used logic
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el7
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)))))