marcuskammer/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Flip content of header-line and mode-line

Browse source
This commit is contained in:
Marcus Kammer 2023-10-24 12:50:10 +02:00
parent bc0e31a91d
commit 7ef84098ad
1 changed files with 8 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
bundle/bundle--gui.el
View file

@ -34,19 +34,17 @@
(file-name-base (directory-file-name (project-root (project-current))))) (file-name-base (directory-file-name (project-root (project-current)))))
(setq-default header-line-format (setq-default header-line-format
(list "%b %*%n %l:%c %p " (list "%M"
'(:eval mode-name) " " '(:eval (my-project-name)) " "
'(:eval (my-vc-info)) '(:eval (concat system-name " " user-login-name " "))
'(:eval (if mode-line-process (concat ":" mode-line-process) ""))
'(:eval (concat (file-name-directory buffer-file-name) " "))
"-%-")) "-%-"))
(setq-default mode-line-format (setq-default mode-line-format
(list "" (list "%b %*%n %I %l:%c %p "
'(:eval (my-project-name)) " " '(:eval mode-name) " "
global-mode-string '(:eval (my-vc-info))
'(:eval (concat system-name " " user-login-name)) '(:eval (if mode-line-process (concat ":" mode-line-process " ") ""))
" " '(:eval (concat (file-name-directory buffer-file-name) " "))
"-%-")) "-%-"))
(set-face-attribute 'mode-line nil :weight 'bold) (set-face-attribute 'mode-line nil :weight 'bold)