[nongnu] elpa/telephone-line d486eb3398 055/195: More indentation fixes

[ELPA Syncer]

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

    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)