branch: elpa/telephone-line
commit d70907577b2e85a1d38ffc1f08ec287a6fac5594
Author: Daniel Bordak <[email protected]>
Commit: Daniel Bordak <[email protected]>
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."
