From f662bb72b378d6879715a97496f390313291d75e Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Sat, 3 Oct 2015 04:56:52 -0400
Subject: [PATCH] Tweak modeline design

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

diff --git a/core/core-ui.el b/core/core-ui.el
index 9c759b7ee..824299f8a 100644
--- a/core/core-ui.el
+++ b/core/core-ui.el
@@ -165,9 +165,10 @@
     "Version control info"
     (let ((vc (vc-working-revision buffer-file-name)))
       (when vc
-        (format "%s %s%s" (char-to-string #xe0a0) vc
+        (format " %s %s%s " (char-to-string #xe0a0) vc
                 (case (vc-state buffer-file-name) ('edited "+") ('conflict "!!!") (t "")))))
-    :when (and active vc-mode))
+    :when (and active vc-mode)
+    :tight t)
 
   (spaceline-define-segment narf-hud
     "A HUD that shows which part of the buffer is currently visible."
@@ -192,13 +193,16 @@
    ;; Left side
    '((narf-buffer-dir :face other-face)
      (narf-buffer-path remote-host)
-     (narf-vc)
-     ((flycheck-error flycheck-warning flycheck-info) :face other-face :when active))
+     narf-vc
+     ((flycheck-error flycheck-warning flycheck-info) :when active))
    ;; Right side
    '(selection-info
      narf-env-version
      narf-buffer-encoding-abbrev
-     (major-mode (minor-modes :separator " ") process :when active)
+     ((" " :tight t)
+      major-mode
+      (minor-modes :separator " ")
+      process :when active)
      (global :when active)
      narf-buffer-position
      narf-hud)))