From 7ef84098ad951e34e311bc4a5e75adf88b2649ad Mon Sep 17 00:00:00 2001 From: Marcus Kammer Date: Tue, 24 Oct 2023 12:50:10 +0200 Subject: [PATCH] Flip content of header-line and mode-line --- bundle/bundle--gui.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/bundle/bundle--gui.el b/bundle/bundle--gui.el index b931510e..f4950516 100644 --- a/bundle/bundle--gui.el +++ b/bundle/bundle--gui.el @@ -34,19 +34,17 @@ (file-name-base (directory-file-name (project-root (project-current))))) (setq-default header-line-format - (list "%b %*%n %l:%c %p " - '(:eval mode-name) " " - '(:eval (my-vc-info)) - '(:eval (if mode-line-process (concat ":" mode-line-process) "")) - '(:eval (concat (file-name-directory buffer-file-name) " ")) + (list "%M" + '(:eval (my-project-name)) " " + '(:eval (concat system-name " " user-login-name " ")) "-%-")) (setq-default mode-line-format - (list "" - '(:eval (my-project-name)) " " - global-mode-string - '(:eval (concat system-name " " user-login-name)) - " " + (list "%b %*%n %I %l:%c %p " + '(:eval mode-name) " " + '(:eval (my-vc-info)) + '(: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)