[nongnu] elpa/telephone-line d70907577b 022/195: More formatting.

[ELPA Syncer]

branch: elpa/telephone-line
commit d70907577b2e85a1d38ffc1f08ec287a6fac5594
Author: Daniel Bordak <dbordak@fastmail.fm>
Commit: Daniel Bordak <dbordak@fastmail.fm>

    More formatting.
---
 telephone-line-utils.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index ab6a951435..678a0aa4a0 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -179,6 +179,15 @@ NOTE: Forced-width primary separators are not currently 
supported."
        (telephone-line-create-body width height ,axis-func ,pattern-func))
      (char-to-string ,alt-char)))
 
+(defun -pad-body (body char-width)
+  (let* ((body-width (length (car body)))
+         (padding-width (- (* char-width (frame-char-width)) body-width))
+         (left-padding (make-list (floor padding-width 2) 1))
+         (right-padding (make-list (ceiling padding-width 2) 1)))
+    (mapcar (lambda (row)
+              (append left-padding row right-padding))
+            body)))
+
 (defmacro defsubseparator (name axis-func pattern-func &optional alt-char 
forced-width)
   "Define a subseparator named NAME, using AXIS-FUNC and PATTERN-FUNC to 
create the shape, optionally forcing FORCED-WIDTH."
   `(telephone-line--defseparator-internal ,name
@@ -186,20 +195,11 @@ NOTE: Forced-width primary separators are not currently 
supported."
             (width (or ,forced-width (telephone-line-separator-width)))
             (char-width (+ (ceiling width (frame-char-width))
                            telephone-line-separator-extra-padding)))
-        (telephone-line-pad-body
+        (telephone-line--pad-body
          (telephone-line-create-body width height ,axis-func ,pattern-func)
          char-width))
      (string ?  ,alt-char ? )))
 
-(defun pad-body (body char-width)
-  (let* ((body-width (length (car body)))
-         (padding-width (- (* char-width (frame-char-width)) body-width))
-         (left-padding (make-list (floor padding-width 2) 1))
-         (right-padding (make-list (ceiling padding-width 2) 1)))
-    (mapcar (lambda (row)
-              (append left-padding row right-padding))
-            body)))
-
 :autoload
 (defmacro defsegment (name body)
   "Create function NAME by wrapping BODY with telephone-line padding and 
propertization."