feat: padding segment

Author: chenanton

echo-bar-render.el

@@ -107,7 +107,8 @@ Returns (\"\" . \"\") when no segments have content."
     ;; A trailing space separates the left group from any message that
     ;; Emacs writes as buffer text in the echo area.
     (when has-left
-      (let* ((lead  (propertize " " 'display '(space :align-to 0)))
+      (let* ((lead  (propertize " " 'display
+                                    `(space :align-to ,echo-bar-left-padding)))
              (result (concat lead left-str " ")))
         (add-face-text-property 0 (length result) 'echo-bar-default t result)
         (setq before-str result)))
@@ -140,7 +141,8 @@ Returns (\"\" . \"\") when no segments have content."
              ;; cover it.  When a left group exists the before-string
              ;; already covers the anchor.
              (lead (unless has-left
-                     (propertize " " 'display '(space :align-to 0))))
+                     (propertize " " 'display
+                                 `(space :align-to ,echo-bar-left-padding))))
              (trail (propertize " " 'display '(space :align-to right-fringe)))
              (pieces (append (if lead (list lead) nil)
                              inner

echo-bar.el

@@ -61,6 +61,11 @@ Example layouts:
   :type 'string
   :group 'echo-bar)
 
+(defcustom echo-bar-left-padding 0
+  "Characters of padding between the left edge and the first segment."
+  :type 'integer
+  :group 'echo-bar)
+
 (defcustom echo-bar-right-padding 1
   "Characters of padding between the right group and the right edge."
   :type 'integer

test/echo-bar-test.el

@@ -32,6 +32,7 @@ variables are isolated so nothing leaks between tests."
   (declare (indent 0) (debug t))
   `(let ((echo-bar-layout '(:right ("buffer-name")))
          (echo-bar-separator " ")
+         (echo-bar-left-padding 0)
          (echo-bar-right-padding 1)
          (echo-bar-center-right-gap 4)
          (echo-bar-message-max-width 30)
@@ -78,11 +79,11 @@ Returns a list of values in order of appearance."
 
 (defun echo-bar-test--extract-content-align-to (str)
   "Extract content :align-to values, excluding bookend spacers.
-Strips the leading (align-to 0) and trailing (align-to right-fringe)
+Strips the leading (align-to <left-padding>) and trailing (align-to right-fringe)
 that `echo-bar--render' adds for full-width background coverage."
   (let ((all (echo-bar-test--extract-all-align-to str)))
-    ;; Drop leading 0
-    (when (and all (equal 0 (car all)))
+    ;; Drop leading left-padding spacer
+    (when (and all (equal echo-bar-left-padding (car all)))
       (setq all (cdr all)))
     ;; Drop trailing right-fringe
     (when (and all (equal 'right-fringe (car (last all))))