Modify mode-line-format
This commit is contained in:
parent
19587bae22
commit
18ab6b0358
1 changed files with 9 additions and 5 deletions
14
init.el
14
init.el
|
@ -166,12 +166,16 @@
|
|||
|
||||
;; (load "bundle--gui")
|
||||
|
||||
(setq-default mode-line-format
|
||||
'("%e" mode-line-front-space "%Z" " " "%b %*%n %I %l:%c %p" (vc-mode vc-mode) " " mode-line-modes mode-line-misc-info mode-line-end-spaces))
|
||||
(defvar-local mk/mode-line-format
|
||||
'("%e" mode-line-front-space "%Z" " " "%b %*%n %I %l:%c %p" (vc-mode vc-mode) " " mode-line-modes mode-line-misc-info mode-line-end-spaces))
|
||||
|
||||
(unless (memq 'hs-headline mode-line-format)
|
||||
(setq mode-line-format
|
||||
(append '("-" hs-headline) mode-line-format)))
|
||||
(setq-default mode-line-format mk/mode-line-format)
|
||||
|
||||
(add-hook 'after-init-hook
|
||||
(lambda ()
|
||||
(unless (memq 'hs-headline mode-line-format)
|
||||
(setq mode-line-format
|
||||
(append '("-" hs-headline) mode-line-format)))))
|
||||
|
||||
(set-face-attribute 'mode-line nil
|
||||
:slant 'italic
|
||||
|
|
Loading…
Add table
Reference in a new issue