sqrtminusone/exwm-modeline
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/exwm-modeline.git synced 2025-12-10 14:35:14 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: do not inherit & override faces at the same time

Browse source
This commit is contained in:
Pavel Korytov 2021-12-29 00:35:38 +03:00
parent 90ebfb5df2
commit 27c5706f92
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.org
View file

@ -33,7 +33,7 @@ Then put a call to =exwm-modeline-mode= somewhere after the moment when EXWM has
* Customization
Set =exwm-modeline-randr= to nil to turn off filtering of workspaces by monitor.
Set =exwm-modeline-short= to display only the current workspace in the modeline.
Set =exwm-modeline-short= to =t= display only the current workspace in the modeline.
* Credits
[[https://github.com/nex3/perspective-el][perspective.el]] by [[https://github.com/nex3][@nex3]] was extremely instructive on how to make a modeline segment individual to a particular frame and avoid recalculating it too often.

8
exwm-modeline.el
View file

@ -6,7 +6,7 @@
;; Author: Korytov Pavel <thexcloud@gmail.com>
;; Maintainer: Korytov Pavel <thexcloud@gmail.com>
;; Version: 0.1.0
;; Version: 0.1.1
;; Package-Requires: ((emacs "27.1") (exwm "0.26"))
;; Homepage: https://github.com/SqrtMinusOne/pomm.el
@ -66,7 +66,9 @@ workspaces."
:type 'boolean)
(defface exwm-modeline-current-workspace
'((t (:inherit warning :weight bold)))
;; I'd rather :inherit warning there, but that could lead to
;; unexpected effects.
`((t :foreground ,(face-foreground 'warning) :weight bold))
"Face for the current workspace. "
:group 'exwm-modeline)
@ -81,7 +83,7 @@ workspaces."
:group 'exwm-modeline)
(defface exwm-modeline-urgent-workspace
'((t (:inherit error :weight bold)))
'((t (:inherit custom-invalid)))
"Face for any workspace that is tagged as urgent by X."
:group 'exwm-modeline)