dotfiles-misc/protesilaos.dotfiles
1
0
Fork 0
mirror of https://github.com/protesilaos/dotfiles.git synced 2026-09-10 07:16:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

emacs: tweak the prot-modeline faces that set a background

Browse source
This commit is contained in:
Protesilaos Stavrou 2026-01-13 06:47:07 +02:00
parent 24913de72b
commit dcf744d223
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
2 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
emacs/.emacs.d/prot-emacs-modules/prot-emacs-modeline.el
View file

@ -41,12 +41,12 @@
`(prot-modeline-indicator-blue ((,c :foreground ,blue)))
`(prot-modeline-indicator-magenta ((,c :foreground ,magenta)))
`(prot-modeline-indicator-cyan ((,c :foreground ,cyan)))
`(prot-modeline-indicator-red-bg ((,c :background ,bg-red-intense :foreground ,fg-main)))
`(prot-modeline-indicator-green-bg ((,c :background ,bg-green-intense :foreground ,fg-main)))
`(prot-modeline-indicator-yellow-bg ((,c :background ,bg-yellow-intense :foreground ,fg-main)))
`(prot-modeline-indicator-blue-bg ((,c :background ,bg-blue-intense :foreground ,fg-main)))
`(prot-modeline-indicator-magenta-bg ((,c :background ,bg-magenta-intense :foreground ,fg-main)))
`(prot-modeline-indicator-cyan-bg ((,c :background ,bg-cyan-intense :foreground ,fg-main))))))
`(prot-modeline-indicator-red-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-red-intense :foreground ,fg-main)))
`(prot-modeline-indicator-green-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-green-intense :foreground ,fg-main)))
`(prot-modeline-indicator-yellow-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-yellow-intense :foreground ,fg-main)))
`(prot-modeline-indicator-blue-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-blue-intense :foreground ,fg-main)))
`(prot-modeline-indicator-magenta-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-magenta-intense :foreground ,fg-main)))
`(prot-modeline-indicator-cyan-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-cyan-intense :foreground ,fg-main))))))
(prot/modeline-set-faces)
@ -56,7 +56,7 @@
(defun prot/modeline-spacious-indicators ()
"Set box attribute to `'prot-modeline-indicator-button' if spacious-padding is enabled."
(if (bound-and-true-p spacious-padding-mode)
(set-face-attribute 'prot-modeline-indicator-button nil :box t)
(set-face-attribute 'prot-modeline-indicator-button nil :box '(:style flat-button))
(set-face-attribute 'prot-modeline-indicator-button nil :box 'unspecified)))
;; Run it at startup and then afterwards whenever

14
emacs/.emacs.d/prot-emacs.org
View file

@ -3811,12 +3811,12 @@ as soon as the given package/feature is loaded.
`(prot-modeline-indicator-blue ((,c :foreground ,blue)))
`(prot-modeline-indicator-magenta ((,c :foreground ,magenta)))
`(prot-modeline-indicator-cyan ((,c :foreground ,cyan)))
`(prot-modeline-indicator-red-bg ((,c :background ,bg-red-intense :foreground ,fg-main)))
`(prot-modeline-indicator-green-bg ((,c :background ,bg-green-intense :foreground ,fg-main)))
`(prot-modeline-indicator-yellow-bg ((,c :background ,bg-yellow-intense :foreground ,fg-main)))
`(prot-modeline-indicator-blue-bg ((,c :background ,bg-blue-intense :foreground ,fg-main)))
`(prot-modeline-indicator-magenta-bg ((,c :background ,bg-magenta-intense :foreground ,fg-main)))
`(prot-modeline-indicator-cyan-bg ((,c :background ,bg-cyan-intense :foreground ,fg-main))))))
`(prot-modeline-indicator-red-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-red-intense :foreground ,fg-main)))
`(prot-modeline-indicator-green-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-green-intense :foreground ,fg-main)))
`(prot-modeline-indicator-yellow-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-yellow-intense :foreground ,fg-main)))
`(prot-modeline-indicator-blue-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-blue-intense :foreground ,fg-main)))
`(prot-modeline-indicator-magenta-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-magenta-intense :foreground ,fg-main)))
`(prot-modeline-indicator-cyan-bg ((,c :inherit (bold prot-modeline-indicator-button) :background ,bg-cyan-intense :foreground ,fg-main))))))
(prot/modeline-set-faces)
@ -3826,7 +3826,7 @@ as soon as the given package/feature is loaded.
(defun prot/modeline-spacious-indicators ()
"Set box attribute to `'prot-modeline-indicator-button' if spacious-padding is enabled."
(if (bound-and-true-p spacious-padding-mode)
(set-face-attribute 'prot-modeline-indicator-button nil :box t)
(set-face-attribute 'prot-modeline-indicator-button nil :box '(:style flat-button))
(set-face-attribute 'prot-modeline-indicator-button nil :box 'unspecified)))
;; Run it at startup and then afterwards whenever