branch: elpa/telephone-line
commit 1b52832b44b262576a5d0277eecd5d15fb1238c0
Author: Daniel Bordak <[email protected]>
Commit: Daniel Bordak <[email protected]>
Nameless indentation
---
telephone-line-utils.el | 2 ++
telephone-line.el | 16 ++++++++--------
2 files changed, 10 insertions(+), 8 deletions(-)
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 62fadf9ed6..573becafb7 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -179,6 +179,7 @@ color1 and color2."
"Define a separator named NAME, using AXIS-FUNC and PATTERN-FUNC to create
the shape, optionally forcing FORCED-WIDTH.
NOTE: Forced-width primary separators are not currently supported."
+ (declare (indent defun))
`(telephone-line--defseparator-internal ,name
(let ((height (telephone-line-separator-height))
(width (or ,forced-width (telephone-line-separator-width))))
@@ -197,6 +198,7 @@ NOTE: Forced-width primary separators are not currently
supported."
(defmacro telephone-line-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."
+ (declare (indent defun))
`(telephone-line--defseparator-internal ,name
(let* ((height (telephone-line-separator-height))
(width (or ,forced-width (telephone-line-separator-width)))
diff --git a/telephone-line.el b/telephone-line.el
index 6c901c4427..5ae382d32f 100644
--- a/telephone-line.el
+++ b/telephone-line.el
@@ -237,28 +237,28 @@ separators, as they are conditional, are evaluated
on-the-fly."
base-width)))
(defcustom telephone-line-lhs '((accent . (telephone-line-vc-segment))
- (nil . (telephone-line-minor-mode-segment
- telephone-line-buffer-segment)))
+ (nil . (telephone-line-minor-mode-segment
+ telephone-line-buffer-segment)))
"Left hand side segment alist."
:type '(alist :key-type segment-color :value-type subsegment-list)
:group 'telephone-line)
(defcustom telephone-line-rhs '((nil . (telephone-line-misc-info-segment
- telephone-line-major-mode-segment))
- (accent . (telephone-line-position-segment)))
+ telephone-line-major-mode-segment))
+ (accent . (telephone-line-position-segment)))
"Right hand side segment alist."
:type '(alist :key-type segment-color :value-type subsegment-list)
:group 'telephone-line)
(defun telephone-line--generate-mode-line-lhs ()
(telephone-line-add-separators telephone-line-lhs
- telephone-line-primary-left-separator
- telephone-line-secondary-left-separator))
+ telephone-line-primary-left-separator
+ telephone-line-secondary-left-separator))
(defun telephone-line--generate-mode-line-rhs ()
(telephone-line-add-separators telephone-line-rhs
- telephone-line-primary-right-separator
- telephone-line-secondary-right-separator))
+ telephone-line-primary-right-separator
+ telephone-line-secondary-right-separator))
(defun telephone-line--generate-mode-line ()
`(,@(telephone-line--generate-mode-line-lhs)
