[nongnu] elpa/gnosis 56f3d11d93 047/110: [fix] cloze-create: Preserve white space.

[ELPA Syncer]

branch: elpa/gnosis
commit 56f3d11d93828853951e7e1d1ddf6618375a40fe
Author: Thanos Apollo <public@thanosapollo.org>
Commit: Thanos Apollo <public@thanosapollo.org>

    [fix] cloze-create: Preserve white space.
    
    + Preserve white space for clozes
---
 gnosis.el | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index 30ad1eaf27..a2068becee 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -413,16 +413,22 @@ If FILL-PARAGRAPH-P, insert question using 
`fill-paragraph'."
   (string-remove-prefix "\"" (string-remove-suffix "\"" str)))
 
 (defun gnosis-cloze-create (str clozes &optional cloze-string)
-  "Replace CLOZES in STR with CLOZE-STRING."
+  "Replace CLOZES in STR with CLOZE-STRING, preserving whitespace pattern."
   (cl-assert (listp clozes) nil "Adding clozes: Clozes need to be a list.")
   (let ((cloze-string (or cloze-string gnosis-cloze-string)))
     (with-temp-buffer
       (insert str)
-      (goto-char (point-min))
       (dolist (cloze clozes)
-        (when (search-forward
-              (gnosis-trim-quotes cloze) nil t)
-          (replace-match (propertize cloze-string 'face 'gnosis-face-cloze) 
nil t)))
+        (let* ((cloze-text (gnosis-trim-quotes cloze))
+               (replacement (concat
+                             (and (string-match "^\\s-+" cloze-text)
+                                 (match-string 0 cloze-text))
+                             (propertize cloze-string 'face 'gnosis-face-cloze)
+                             (and (string-match "\\s-+$" cloze-text)
+                                 (match-string 0 cloze-text)))))
+          (goto-char (point-min))
+          (when (search-forward cloze-text nil t)
+            (replace-match replacement t t))))
       (buffer-string))))
 
 (defun gnosis-cloze-add-hints (str hints &optional cloze-string)