summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-17 03:29:30 +0200
committerThanos Apollo <[email protected]>2024-01-18 03:46:38 +0200
commitbaf0e4a9eb30a5929fcd18daad2e425edbbaa851 (patch)
tree99fc7721f256eb0d0be1e9c4e75a5fe71ef0d222 /gnosis.el
parent53ad378397cf9558ea273d64592bda551199d59d (diff)
Rename gnosis-cloze-char to gnosis-cloze-string
Change suggested by Nicholas Vollmer
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/gnosis.el b/gnosis.el
index 211a5d6..564b3dc 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -56,7 +56,7 @@
:type 'directory
:group 'gnosis)
-(defcustom gnosis-cloze-char "__"
+(defcustom gnosis-cloze-string "__"
"Gnosis cloze character."
:type 'string
:group 'gnosis)
@@ -229,7 +229,7 @@ FACE-FOR-INFO is the face used to display info for option."
(fill-paragraph
(insert
(concat "\n"
- (gnosis-cloze-replace-words sentence clozes (propertize gnosis-cloze-char 'face 'gnosis-face-cloze)))))))
+ (gnosis-cloze-replace-words sentence clozes (propertize gnosis-cloze-string 'face 'gnosis-face-cloze)))))))
(defun gnosis-display--basic-answer (answer success user-input)
"Display ANSWER.
@@ -271,7 +271,7 @@ SUCCESS is t when user-input is correct, else nil"
(propertize "\n\n-----\n" 'face 'gnosis-face-seperator)
(propertize hint 'face 'gnosis-face-hint)))))
-(cl-defun gnosis-display-cloze-reveal (&key (cloze-char gnosis-cloze-char) replace (success t) (face nil))
+(cl-defun gnosis-display-cloze-reveal (&key (cloze-char gnosis-cloze-string) replace (success t) (face nil))
"Replace CLOZE-CHAR with REPLACE.
If FACE nil, propertize replace using `gnosis-face-correct', or