emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Tweak modeline design

Browse source
This commit is contained in:
Henrik Lissner 2015-10-03 04:56:52 -04:00
parent a51fb5753a
commit f662bb72b3
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/core-ui.el
View file

@ -165,9 +165,10 @@
"Version control info" "Version control info"
(let ((vc (vc-working-revision buffer-file-name))) (let ((vc (vc-working-revision buffer-file-name)))
(when vc (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 ""))))) (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 (spaceline-define-segment narf-hud
"A HUD that shows which part of the buffer is currently visible." "A HUD that shows which part of the buffer is currently visible."
@ -192,13 +193,16 @@
;; Left side ;; Left side
'((narf-buffer-dir :face other-face) '((narf-buffer-dir :face other-face)
(narf-buffer-path remote-host) (narf-buffer-path remote-host)
(narf-vc) narf-vc
((flycheck-error flycheck-warning flycheck-info) :face other-face :when active)) ((flycheck-error flycheck-warning flycheck-info) :when active))
;; Right side ;; Right side
'(selection-info '(selection-info
narf-env-version narf-env-version
narf-buffer-encoding-abbrev 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) (global :when active)
narf-buffer-position narf-buffer-position
narf-hud))) narf-hud)))