exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Clean up mode line

Browse Source 
Inspired by (the first minutes of) [Emacs: write a custom mode line][1].  Nice!

[1]: https://protesilaos.com/codelog/2023-07-29-emacs-custom-modeline-tutorial/
This commit is contained in:
Daniel Borchmann 2025-10-09 13:25:56 +02:00
parent 77c79127f3
commit 2c8dd43bb8
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 20 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
init.el
View File

@ -642,6 +642,7 @@ split horizontally again, but this extra work should not matter much."
:init (setq-default olivetti-body-width 0.618034)) :init (setq-default olivetti-body-width 0.618034))
(use-package outline (use-package outline
:diminish outline-minor-mode
:init (setopt outline-minor-mode-use-buttons 'in-margins)) :init (setopt outline-minor-mode-use-buttons 'in-margins))
(use-package outline-indent (use-package outline-indent
@ -2174,29 +2175,29 @@ Note that this workaround is incomplete, as explained in this comment."
cursor-in-non-selected-windows nil cursor-in-non-selected-windows nil
font-lock-maximum-decoration '((t . t))) font-lock-maximum-decoration '((t . t)))
(setopt mode-line-format '((ace-window-display-mode (setopt mode-line-percent-position nil
mode-line-format '((ace-window-display-mode
(:eval (window-parameter (selected-window) 'ace-window-path))) (:eval (window-parameter (selected-window) 'ace-window-path)))
"%e" "%e"
mode-line-front-space mode-line-front-space
("" (:eval (if (mode-line-window-selected-p)
'(""
mode-line-mule-info mode-line-mule-info
mode-line-client
mode-line-modified mode-line-modified
mode-line-remote mode-line-remote
mode-line-window-dedicated) mode-line-window-dedicated
mode-line-frame-identification
(:eval (if (mode-line-window-selected-p)
mode-line-buffer-identification
(list (propertize (car mode-line-buffer-identification)
'face nil))))
" " " "
mode-line-position (:propertize "%b" face mode-line-buffer-id)
"@(%l,%c)"
(project-mode-line project-mode-line-format) (project-mode-line project-mode-line-format)
(vc-mode vc-mode) (vc-mode vc-mode)
" " " "
mode-line-modes mode-line-modes)
mode-line-misc-info (list "%b "
mode-line-end-spaces)) "(" mode-name ")")))
mode-line-format-right-align
(:eval (if (mode-line-window-selected-p)
mode-line-misc-info))))
(use-package solarized-theme (use-package solarized-theme
:ensure t :ensure t
@ -3073,7 +3074,6 @@ Note that this workaround is incomplete, as explained in this comment."
(appt-activate +1) (appt-activate +1)
(savehist-mode +1) (savehist-mode +1)
(size-indication-mode +1)
(display-battery-mode -1) (display-battery-mode -1)
(electric-pair-mode +1) (electric-pair-mode +1)
@ -3081,7 +3081,6 @@ Note that this workaround is incomplete, as explained in this comment."
(recentf-mode +1) (recentf-mode +1)
(tab-bar-history-mode +1) (tab-bar-history-mode +1)
(global-auto-revert-mode -1) (global-auto-revert-mode -1)
(which-function-mode +1)
(global-eldoc-mode +1) (global-eldoc-mode +1)
(global-visual-wrap-prefix-mode +1) (global-visual-wrap-prefix-mode +1)