summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-07-16 14:05:17 +0300
committerThanos Apollo <[email protected]>2024-07-16 14:09:20 +0300
commit9ec7dea464f0498fbe83f14158402f753495cd77 (patch)
treebc43b1aa6622f16e4c0af548515f4e41b0b436fc /gnosis.el
parent50be722192a13bb757d27295e8f107a41ad7229a (diff)
cloze: Add gnosis-cloze-mark-false
* Mark false answers.
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el14
1 files changed, 14 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index 7d66ab5..a8dd390 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -489,6 +489,20 @@ Refer to =gnosis-db-schema-extras' for informations on images stored."
(replace-match (propertize answer 'face face) nil t)))
(buffer-string)))
+(defun gnosis-cloze-mark-false (str answers)
+ "Mark contents of STR as false for ANSWERS.
+
+First item of answers will be marked as false, while the rest unanswered."
+ (let* ((false (car answers))
+ (unanswered (cdr answers))
+ (str-with-false (and answers (gnosis-cloze-mark-answers str (list false) 'gnosis-face-false)))
+ final)
+ (if unanswered
+ (setq final (gnosis-cloze-mark-answers str-with-false (if (listp unanswered) unanswered
+ (list unanswered))
+ 'underline))
+ (setq final (or str-with-false str)))
+ final))
(defun gnosis-display-basic-answer (answer success user-input)
"Display ANSWER.