From a335e3cf62cd97b150165823f6b68b38bbc985c6 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sun, 5 Jun 2016 00:56:57 -0400
Subject: [PATCH] Polish mode-line (and taller)

---
 core/core-ui.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/core/core-ui.el b/core/core-ui.el
index 09f0c26d1..5a21f538f 100644
--- a/core/core-ui.el
+++ b/core/core-ui.el
@@ -184,7 +184,7 @@
   :init
   (defvar-local doom--env-version nil)
   (defvar-local doom--env-command nil)
-  (defvar powerline-height 26)
+  (defvar powerline-height 30)
   (defvar powerline-default-separator nil)
 
   :config
@@ -234,14 +234,13 @@
             (let ((start (window-start))
                   (end (window-end))
                   (pend (point-max)))
-              (if (and (eq start 1)
-                       (eq end pend))
+              (if (and (= start 1)
+                       (= end pend))
                   ":All"
                 (let ((perc (/ end 0.01 pend)))
                   (cond ((= start 1) ":Top")
                         ((>= perc 100) ":Bot")
-                        (t (format ":%d%%%%" perc))))))
-            " "))
+                        (t (format ":%d%%%%" perc))))))))
 
   (defface mode-line-vcs-info nil '((t (:inherit warning))))
   (defface mode-line-vcs-warning nil '((t (:inherit warning))))
@@ -386,8 +385,7 @@ anzu to be enabled."
                         (if fw (propertize (format " ⚠%s " fw)
                                            'face (if active
                                                      'doom-flycheck-warning
-                                                   'mode-line)))))))))
-    :tight t)
+                                                   'mode-line))))))))))
 
   (spaceline-define-segment *pad
     "Padding, to ensure the mode-line is `powerline-height' pixels tall"
@@ -397,7 +395,8 @@ anzu to be enabled."
   (spaceline-compile
    'main
    '(*pad
-     ((*macro-recording *anzu *iedit *evil-substitute *flycheck *selection-info)
+     ((*macro-recording *anzu *iedit
+       *evil-substitute *selection-info *flycheck)
       :skip-alternate t
       :tight t)
      *buffer-path)
@@ -406,7 +405,8 @@ anzu to be enabled."
      *env-version
      *buffer-encoding-abbrev
      (global :when active)
-     *buffer-position))
+     *buffer-position
+     ))
 
   ;;
   (spaceline-define-segment *default-dir