swarsel/.dotfiles
1
0
Fork 0
mirror of https://github.com/Swarsel/.dotfiles.git synced 2025-12-06 09:07:21 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: use emacs echo area for modeline

Browse source
This commit is contained in:
Swarsel 2024-12-15 15:04:00 +01:00
parent f85d3dd18e
commit 303222320d
Signed by: swarsel
GPG key ID: 26A54C31F2A4FD84
2 changed files with 70 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

44
SwarselSystems.org
View file

@ -10808,18 +10808,58 @@ This minor mode allows mixing fixed and variable pitch fonts within the same buf
Here I set up the modeline with some information that I find useful. Specficially I am using the doom modeline. Most informations I disable for it, except for the cursor information (row + column) as well as a widget for =mu4e= and git information. Here I set up the modeline with some information that I find useful. Specficially I am using the doom modeline. Most informations I disable for it, except for the cursor information (row + column) as well as a widget for =mu4e= and git information.
I have currently disabled this in favor of [[#h:80ed2431-9c9a-4bfc-a3c0-08a2a058d208][mini-modeline]].
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package doom-modeline (use-package doom-modeline
:init :init
(doom-modeline-mode) ;; (doom-modeline-mode)
(column-number-mode) ;; (column-number-mode)
:custom :custom
((doom-modeline-height 22) ((doom-modeline-height 22)
(doom-modeline-indent-info nil) (doom-modeline-indent-info nil)
(doom-modeline-buffer-encoding nil))) (doom-modeline-buffer-encoding nil)))
#+end_src
*** mini-modeline
:PROPERTIES:
:CUSTOM_ID: h:80ed2431-9c9a-4bfc-a3c0-08a2a058d208
:END:
I have found that the doom-modeline, while very useful, consumes too much screen space for my liking. This modeline takes a more minimalistic approach.
#+begin_src emacs-lisp
(use-package mini-modeline
:after smart-mode-line
:config
(mini-modeline-mode t)
(setq mini-modeline-display-gui-line nil)
(setq mini-modeline-enhance-visual nil)
(setq mini-modeline-truncate-p nil)
(setq mini-modeline-l-format nil)
(setq mini-modeline-right-padding 5)
(setq window-divider-mode t)
(setq window-divider-default-places t)
(setq window-divider-default-bottom-width 1)
(setq window-divider-default-right-width 1)
(setq mini-modeline-r-format '("%e" mode-line-front-space mode-line-mule-info mode-line-client
mode-line-modified mode-line-remote mode-line-frame-identification
mode-line-buffer-identification " " mode-line-position " " mode-name evil-mode-line-tag ))
)
(use-package smart-mode-line
:config
(sml/setup)
(add-to-list 'sml/replacer-regexp-list '("^~/Documents/Work/" ":WK:"))
(add-to-list 'sml/replacer-regexp-list '("^~/Documents/Private/" ":PR:"))
(add-to-list 'sml/replacer-regexp-list '("^~/.dotfiles/" ":D:") t)
)
#+end_src #+end_src
*** Helper Modes *** Helper Modes

30
programs/emacs/init.el
View file

@ -701,13 +701,39 @@ create a new one."
(use-package doom-modeline (use-package doom-modeline
:init :init
(doom-modeline-mode) ;; (doom-modeline-mode)
(column-number-mode) ;; (column-number-mode)
:custom :custom
((doom-modeline-height 22) ((doom-modeline-height 22)
(doom-modeline-indent-info nil) (doom-modeline-indent-info nil)
(doom-modeline-buffer-encoding nil))) (doom-modeline-buffer-encoding nil)))
(use-package mini-modeline
:after smart-mode-line
:config
(mini-modeline-mode t)
(setq mini-modeline-display-gui-line nil)
(setq mini-modeline-enhance-visual nil)
(setq mini-modeline-truncate-p nil)
(setq mini-modeline-l-format nil)
(setq mini-modeline-right-padding 5)
(setq window-divider-mode t)
(setq window-divider-default-places t)
(setq window-divider-default-bottom-width 1)
(setq window-divider-default-right-width 1)
(setq mini-modeline-r-format '("%e" mode-line-front-space mode-line-mule-info mode-line-client
mode-line-modified mode-line-remote mode-line-frame-identification
mode-line-buffer-identification " " mode-line-position " " mode-name evil-mode-line-tag ))
)
(use-package smart-mode-line
:config
(sml/setup)
(add-to-list 'sml/replacer-regexp-list '("^~/Documents/Work/" ":WK:"))
(add-to-list 'sml/replacer-regexp-list '("^~/Documents/Private/" ":PR:"))
(add-to-list 'sml/replacer-regexp-list '("^~/.dotfiles/" ":D:") t)
)
(setq read-buffer-completion-ignore-case t (setq read-buffer-completion-ignore-case t
read-file-name-completion-ignore-case t read-file-name-completion-ignore-case t
completion-ignore-case t) completion-ignore-case t)