Add gnosis-review-cloze-reveal-unanswered

This is just a rewritten version of the previous
gnosi-review-cloze-reveal.

Loop for clozes, and 'reveal them' with gnosis-face-cloze-unanswered

1 files changed, 6 insertions, 3 deletions

diff --git a/gnosis.el b/gnosis.el
index e4bc8d2..5cf87df 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -587,9 +587,12 @@ If user-input is equal to CLOZE, return t."
   (let ((user-input (read-string "Answer: ")))
     (cons (gnosis-compare-strings user-input cloze) user-input)))
 
-(defun gnosis-review-cloze--reveal (clozes success)
-  "Reveal CLOZES."
-  (cl-loop for cloze in clozes do (gnosis-display--cloze-reveal gnosis-cloze-char cloze success)))
+(defun gnosis-review-cloze-reveal-unaswered (clozes)
+  "Reveal CLOZES.
+
+Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face."
+  (cl-loop for cloze in clozes do (gnosis-display-cloze-reveal :replace cloze
+							       :face 'gnosis-face-cloze-unanswered)))
 
 (defun gnosis-review-cloze (id)
   "Review cloze type note for ID."