From e33f25e15e48f7872499018d73c5224a004c8eb9 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 29 Dec 2023 04:57:51 +0200 Subject: 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 --- gnosis.el | 9 ++++++--- 1 file 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." -- cgit v1.2.3