From 4bfa148b7f336afd2276d24be21ee5ea6f0f9e46 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 28 Sep 2015 19:51:16 -0400 Subject: [PATCH] Modeline: polish hud; clean up narf-buffer-path --- core/core-ui.el | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/core/core-ui.el b/core/core-ui.el index a97d911c3..d7b1d0003 100644 --- a/core/core-ui.el +++ b/core/core-ui.el @@ -113,7 +113,8 @@ (let ((l (length path))) (substring path (- l max-length) l)))) path))) (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) @@ -141,6 +142,11 @@ (replace-regexp-in-string (regexp-quote (symbol-name (vc-deduce-backend))) "" (s-trim (powerline-vc)) t t) :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 @@ -150,13 +156,12 @@ :when active) (narf-vc :face other-face :when active)) ;; Right side - '((battery :when active) - selection-info + '(selection-info narf-buffer-encoding-abbrev (major-mode (minor-modes process :when active)) (global :when active) (narf-line-column narf-buffer-position :face powerline-border) - hud))) + narf-hud))) (provide 'core-ui) ;;; core-ui.el ends here