Modify mode-line-format

This commit is contained in:
Marcus Kammer 2024-12-17 14:13:49 +01:00
parent 19587bae22
commit 18ab6b0358
Signed by: marcuskammer
GPG key ID: C374817BE285268F

14
init.el
View file

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