From 141f7441ec189842134bfeb3473bb748426fa2fa Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Fri, 28 Jun 2024 18:00:00 +0300
Subject: [fix] Adjust gnosis-center-current-line & gnosis-center-string

- Adjust for strings that exceed buffer window-width
- Use fill-region
---
 gnosis.el | 52 ++++++++++++++++++++++++++++++++++------------------
 1 file changed, 34 insertions(+), 18 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index 6d7e6c3..b6e541d 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -323,30 +323,46 @@ History is disabled."
         (overlay-put overlay 'face 'gnosis-face-separator)
         (overlay-put overlay 'display (make-string width ?\s))))))
 
-(defun gnosis-center-current-line ()
-  "Center text in the current line ignoring leading spaces."
+(defun gnosis-center-current-line (&optional center?)
+  "Centers text in the current line ignoring leading spaces.
+
+Acts only when CENTER? is t."
   (interactive)
   (let* ((start (line-beginning-position))
          (end (line-end-position))
          (text (string-trim (buffer-substring start end)))
-         (padding (max (/ (- (window-width) (length text)) 2) 0)))
-    (delete-region start end)
-    (insert (make-string padding ? ) text)))
-
-(defun gnosis-center-string (input-string)
-  "Center each line of the given INPUT-STRING in the current window width."
-  (let* ((lines (split-string input-string "\n"))
-         (window-width (window-width)))
-    (mapconcat
-     (lambda (line)
-       (let* ((text (string-trim line))
-              (padding (/ (max 0 (- window-width (length text))) 2)))
-         (concat (make-string padding ? ) text)))
-     lines
-     "\n")))
+         (padding (max (/ (- (window-width) (length text)) 2) 0))
+	 (center? (or center? gnosis-center-content)))
+    (when center?
+      (delete-region start end)
+      (insert (make-string padding ? ) text))))
+
+(defun gnosis-center-string (input-string &optional center?)
+  "Center each line of the given INPUT-STRING in the current window width.
+
+Acts only when CENTER? is t."
+  (let ((window-width (window-width))
+	(center? (or center? gnosis-center-content)))
+    (when center?
+      (mapconcat
+       (lambda (line)
+         (let* ((text (string-trim line))
+                (wrapped (with-temp-buffer
+                           (insert text)
+                           (fill-region (point-min) (point-max))
+                           (buffer-string)))
+                (lines (split-string wrapped "\n")))
+           (mapconcat
+            (lambda (line)
+              (let ((padding (max (/ (- window-width (length line)) 2) 0)))
+                (concat (make-string padding ? ) line)))
+            lines
+            "\n")))
+       (split-string input-string "\n")
+       "\n"))))
 
 (defun gnosis-apply-center-buffer-overlay (&optional point)
-  "Center text in buffer start at POINT using overlays for visual centering.
+  "Center text in buffer starting at POINT using `gnosis-center-current-line'.
 This will not be applied to sentences that start with double space."
   (save-excursion
     (goto-char (or point (point-min)))
-- 
cgit v1.2.3