mirror of
https://github.com/emacs-exwm/exwm.git
synced 2024-11-27 06:48:00 +01:00
Disable irrelevant mode-line elements in EXWM buffers
* exwm-core (exwm-mode): disable mode-line-position, mode-line-modified, mode-line-mule-info, and mode-line-remote in EXWM buffers.
This commit is contained in:
parent
1485fcf064
commit
68c3e7019a
1 changed files with 6 additions and 1 deletions
|
@ -402,6 +402,7 @@ One of `line-mode' or `char-mode'.")
|
||||||
;; Redirect events when executing keyboard macros.
|
;; Redirect events when executing keyboard macros.
|
||||||
(push `(executing-kbd-macro . ,exwm--kmacro-map)
|
(push `(executing-kbd-macro . ,exwm--kmacro-map)
|
||||||
minor-mode-overriding-map-alist)
|
minor-mode-overriding-map-alist)
|
||||||
|
(make-local-variable 'mode-line-position)
|
||||||
(setq mode-name '(:eval (exwm--mode-name))
|
(setq mode-name '(:eval (exwm--mode-name))
|
||||||
buffer-read-only t
|
buffer-read-only t
|
||||||
cursor-type nil
|
cursor-type nil
|
||||||
|
@ -409,7 +410,11 @@ One of `line-mode' or `char-mode'.")
|
||||||
right-margin-width nil
|
right-margin-width nil
|
||||||
left-fringe-width 0
|
left-fringe-width 0
|
||||||
right-fringe-width 0
|
right-fringe-width 0
|
||||||
vertical-scroll-bar nil))
|
vertical-scroll-bar nil
|
||||||
|
mode-line-position nil
|
||||||
|
mode-line-modified nil
|
||||||
|
mode-line-mule-info nil
|
||||||
|
mode-line-remote nil))
|
||||||
|
|
||||||
(defmacro exwm--global-minor-mode-body (name &optional init exit)
|
(defmacro exwm--global-minor-mode-body (name &optional init exit)
|
||||||
"Global minor mode body for mode with NAME.
|
"Global minor mode body for mode with NAME.
|
||||||
|
|
Loading…
Reference in a new issue