diff options
| author | Thanos Apollo <[email protected]> | 2024-01-17 03:29:30 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-01-18 03:46:38 +0200 |
| commit | baf0e4a9eb30a5929fcd18daad2e425edbbaa851 (patch) | |
| tree | 99fc7721f256eb0d0be1e9c4e75a5fe71ef0d222 | |
| parent | 53ad378397cf9558ea273d64592bda551199d59d (diff) | |
Rename gnosis-cloze-char to gnosis-cloze-string
Change suggested by Nicholas Vollmer
| -rw-r--r-- | gnosis.el | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |