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

Modeline: polish hud; clean up narf-buffer-path

Browse source
This commit is contained in:
Henrik Lissner 2015-09-28 19:51:16 -04:00
parent 811b1f0c59
commit 4bfa148b7f
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
core/core-ui.el
View file

@ -113,7 +113,8 @@
(let ((l (length path))) (substring path (- l max-length) l)))) (let ((l (length path))) (substring path (- l max-length) l))))
path))) path)))
(powerline-buffer-id))) (powerline-buffer-id)))
(if (buffer-modified-p) (propertize "*" 'font-lock-face '(:inherit mode-line :foreground "orange"))) (if (buffer-modified-p)
(propertize "*" 'font-lock-face '(:inherit other-face :foreground "orange")))
" ") " ")
:tight-right t) :tight-right t)
@ -141,6 +142,11 @@
(replace-regexp-in-string (regexp-quote (symbol-name (vc-deduce-backend))) "" (s-trim (powerline-vc)) t t) (replace-regexp-in-string (regexp-quote (symbol-name (vc-deduce-backend))) "" (s-trim (powerline-vc)) t t)
:when (powerline-vc)) :when (powerline-vc))
(spaceline-define-segment narf-hud
"A HUD that shows which part of the buffer is currently visible."
(powerline-hud highlight-face default-face)
:tight t)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(spaceline-install (spaceline-install
@ -150,13 +156,12 @@
:when active) :when active)
(narf-vc :face other-face :when active)) (narf-vc :face other-face :when active))
;; Right side ;; Right side
'((battery :when active) '(selection-info
selection-info
narf-buffer-encoding-abbrev narf-buffer-encoding-abbrev
(major-mode (minor-modes process :when active)) (major-mode (minor-modes process :when active))
(global :when active) (global :when active)
(narf-line-column narf-buffer-position :face powerline-border) (narf-line-column narf-buffer-position :face powerline-border)
hud))) narf-hud)))
(provide 'core-ui) (provide 'core-ui)
;;; core-ui.el ends here ;;; core-ui.el ends here