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

Compare commits

base: exot:9f52c576b287f0fe009cd65cd8a55734993fc2c9
Branches Tags
exot:master
..
compare: exot:ffe7eaf727ffb58b1c7b93705b2950d630594e46
Branches Tags
exot:master

3 Commits
9f52c576b2 ... ffe7eaf727

Author SHA1 Message Date
Daniel Borchmann
ffe7eaf727
Minor identation fix 
Done automatically, not fighting it.
 2024-12-30 10:39:46 +01:00
Daniel Borchmann
ae5657fcc9
Add small utility to zoom into dedicated window 
Taken from prot, see comment.
 2024-12-30 10:39:29 +01:00
Daniel Borchmann
d2ae0e1bf5
Show minor modes in mode-line again 
Seeing active minor modes directly might be informative.  Try to reduce
the list of shown minor modes to only interesting ones using the (still
existing) diminish configuration.  Remove now obsolete configuration of
the minions package.
 2024-12-30 10:34:16 +01:00
3 changed files with 19 additions and 10 deletions
Show Stats Expand all files Collapse all files

1
.gitignore vendored
View File

@ -1,7 +1,6 @@
*.elc *.elc
/elpa/* /elpa/*
!/elpa/diminish-[0-9]*
!/elpa/bind-key-[0-9]* !/elpa/bind-key-[0-9]*
!/elpa/dash-[0-9]* !/elpa/dash-[0-9]*
!/elpa/hydra-[0-9]* !/elpa/hydra-[0-9]*

12
init.el
View File

@ -389,6 +389,9 @@
db/define-feature-shortcuts-hydra db/define-feature-shortcuts-hydra
hydra-feature-shortcuts/body)) hydra-feature-shortcuts/body))
(use-package diminish
:ensure t)
(use-package exec-path-from-shell (use-package exec-path-from-shell
:pin "melpa-stable" :pin "melpa-stable"
:commands (exec-path-from-shell-copy-envs)) :commands (exec-path-from-shell-copy-envs))
@ -1934,11 +1937,6 @@ Note that this workaround is incomplete, as explained in this comment."
sml/name-width 30) sml/name-width 30)
:commands (sml/setup)) :commands (sml/setup))
(use-package minions
:ensure t
:commands (minions-mode)
:init (setq minions-mode-line-lighter "…"))
(use-package moody (use-package moody
:ensure t :ensure t
:commands (moody-replace-mode-line-buffer-identification :commands (moody-replace-mode-line-buffer-identification
@ -2984,14 +2982,12 @@ eventuelly be set to nil, however)."
minibuffer-depth-indicate-mode minibuffer-depth-indicate-mode
ace-window-display-mode ace-window-display-mode
key-chord-mode key-chord-mode
minions-mode
which-key-mode which-key-mode
projectile-mode projectile-mode
yas-global-mode yas-global-mode
global-git-commit-mode global-git-commit-mode
marginalia-mode marginalia-mode
vertico-mode vertico-mode))
))
(with-demoted-errors "Cannot activate mode: %s" (with-demoted-errors "Cannot activate mode: %s"
(funcall mode +1))) (funcall mode +1)))

14
site-lisp/db-utils.el
View File

@ -637,6 +637,20 @@ quite sure whether something like this exists already?"
(funcall entry) (funcall entry)
entry))) entry)))
;; From https://protesilaos.com/codelog/2020-08-03-emacs-custom-functions-galore/, where it has been
;; based on `windower' by Pierre Neidhardt (ambrevar on GitLab); pointer by
;; https://sachachua.com/blog/2024/12/emacs-tv/
(let (saved-window-configuration)
(define-minor-mode db/window-single-toggle
"Toggle between multiple windows and single window."
:lighter " Z"
:global nil
(if (one-window-p)
(when saved-window-configuration
(set-window-configuration saved-window-configuration))
(setq saved-window-configuration (current-window-configuration))
(delete-other-windows))))
;;; Base45 Decoding ;;; Base45 Decoding