awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

Polish mode-line (and taller)

Browse Source
This commit is contained in:
Henrik Lissner
2016-06-05 00:56:57 -04:00
parent d73292d4bd
commit a335e3cf62
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
core/core-ui.el
View File

@ -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