From baf0e4a9eb30a5929fcd18daad2e425edbbaa851 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 17 Jan 2024 03:29:30 +0200 Subject: Rename gnosis-cloze-char to gnosis-cloze-string Change suggested by Nicholas Vollmer --- gnosis.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gnosis.el') 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 -- cgit v1.2.3