Browse Source

narrower mode-lines

flycheck-not-required 3.6
Nicolas Petton 5 years ago
parent
commit
0c662244a7
Signed by: nico GPG Key ID: 233587A47C207910
1 changed files with 9 additions and 6 deletions
  1. +9
    -6
      zerodark-theme.el

+ 9
- 6
zerodark-theme.el View File

@ -673,15 +673,15 @@ The result is cached for one second to avoid hiccups."
(defvar zerodark-modeline-bar '(:eval (propertize " "
'display
(pl/percent-xpm 30 100 0 0 0 10 nil nil))))
(pl/percent-xpm 20 100 0 0 0 10 nil nil))))
(defvar zerodark-modeline-bar-alt '(:eval (propertize " "
'display
(if (zerodark--active-window-p)
(if buffer-read-only
(pl/percent-xpm 30 100 0 0 0 6 "#0088CC" "#0088CC")
(pl/percent-xpm 30 100 0 0 0 6 "#c678dd" "#c678dd"))
(pl/percent-xpm 30 100 0 0 0 6 nil nil)))))
(pl/percent-xpm 20 100 0 0 0 6 "#0088CC" "#0088CC")
(pl/percent-xpm 20 100 0 0 0 6 "#c678dd" "#c678dd"))
(pl/percent-xpm 20 100 0 0 0 6 nil nil)))))
;;;###autoload
(defun zerodark-setup-modeline-format ()
@ -747,10 +747,13 @@ The result is cached for one second to avoid hiccups."
;; Mode line faces
`(mode-line ((,class (:background ,mode-line
:height 0.9
:foreground ,light))))
:foreground ,light
:box ,(list :line-width 1
:color comment)))))
`(mode-line-inactive ((,class (:background ,mode-line
:height 0.9
:foreground ,comment))))
:foreground ,comment
:box 1))))
`(anzu-mode-line ((,class :inherit mode-line :foreground ,purple :weight bold :inverse-video t)))
))


Loading…
Cancel
Save