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 update the modeline on start

Browse source
This commit is contained in:
Pavel Korytov 2022-01-06 10:20:13 +03:00
parent dfd0b86133
commit 8aaa57d973
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
exwm-modeline.el
View file

@ -63,7 +63,8 @@ workspaces."
:type 'boolean :type 'boolean
:set (lambda (sym value) :set (lambda (sym value)
(set-default sym value) (set-default sym value)
(exwm-modeline-update))) (when exwm-modeline-mode
(exwm-modeline-update))))
(defcustom exwm-modeline-randr t (defcustom exwm-modeline-randr t
"When set, only show workspaces on the current monitor." "When set, only show workspaces on the current monitor."
@ -71,7 +72,8 @@ workspaces."
:type 'boolean :type 'boolean
:set (lambda (sym value) :set (lambda (sym value)
(set-default sym value) (set-default sym value)
(exwm-modeline-update))) (when exwm-modeline-mode
(exwm-modeline-update))))
(defcustom exwm-modeline-display-urgent t (defcustom exwm-modeline-display-urgent t
"When set, display the urgent status in the modeline. "When set, display the urgent status in the modeline.
@ -82,8 +84,8 @@ switch, so the number of updates is increased significantly."
:type 'boolean :type 'boolean
:set (lambda (sym value) :set (lambda (sym value)
(set-default sym value) (set-default sym value)
(exwm-modeline-update)
(when exwm-modeline-mode (when exwm-modeline-mode
(exwm-modeline-update)
(if value (if value
(progn (progn
(advice-add #'exwm--update-hints :after #'exwm-modeline--urgency-advice) (advice-add #'exwm--update-hints :after #'exwm-modeline--urgency-advice)