branch: elpa/telephone-line
commit d486eb33985380908a91f44cbec12300faa8a213
Author: Daniel Bordak <[email protected]>
Commit: Daniel Bordak <[email protected]>
More indentation fixes
---
telephone-line-segments.el | 16 +++++++---------
telephone-line-utils.el | 4 ++--
2 files changed, 9 insertions(+), 11 deletions(-)
diff --git a/telephone-line-segments.el b/telephone-line-segments.el
index f7dff06d84..0b132d60e1 100644
--- a/telephone-line-segments.el
+++ b/telephone-line-segments.el
@@ -24,6 +24,8 @@
(require 'telephone-line-utils)
+(require 's)
+
(telephone-line-defsegment telephone-line-vc-segment
vc-mode)
@@ -85,17 +87,13 @@ mouse-3: Toggle minor modes"
(eval-after-load 'evil
'(telephone-line-defsegment* telephone-line-evil-tag-segment
- (let ((tag
- (if (evil-visual-state-p)
- (cond
+ (let ((tag (cond
+ ((not (evil-visual-state-p)) (upcase (symbol-name
evil-state)))
((eq evil-visual-selection 'block)
- (if telephone-line-evil-use-short-tag "VB"
- "V-BLOCK"))
+ (if telephone-line-evil-use-short-tag "VB" "V-BLOCK"))
((eq evil-visual-selection 'line)
- (if telephone-line-evil-use-short-tag "VL"
- "V-LINE"))
- (t "VISUAL"))
- (upcase (symbol-name evil-state)))))
+ (if telephone-line-evil-use-short-tag "VL" "V-LINE"))
+ (t "VISUAL"))))
(if telephone-line-evil-use-short-tag
(s-left 2 tag)
tag))))
diff --git a/telephone-line-utils.el b/telephone-line-utils.el
index 573becafb7..9a2457f6dd 100644
--- a/telephone-line-utils.el
+++ b/telephone-line-utils.el
@@ -230,8 +230,8 @@ Segment is not precompiled."
`(defun ,name (face)
(telephone-line-raw
(mapcar (lambda (plist)
- (plist-put plist 'face face))
- ,plists))))
+ (plist-put plist 'face face))
+ ,plists))))
:autoload
(defun telephone-line-raw (str &optional compiled)
