Improve bc80eefe
* exwm-layout.el (exwm-layout--set-frame-fullscreen):
* exwm-randr.el (exwm-randr--refresh):
* exwm-workspace.el (exwm-workspace--resize-minibuffer):
(exwm-workspace-switch):
* exwm.el (exwm--on-ClientMessage):
Calling `exwm-workspace-switch' in bc80eefe does not work correctly
sometimes. This commit improves it by directly specify the geometry info
rather than getting it from Emacs frame.
This commit is contained in:
parent
bc80eefe3f
commit
97daba20ad
4 changed files with 37 additions and 27 deletions
|
|
@ -103,6 +103,8 @@
|
|||
(frame-parameter frame
|
||||
'exwm-workspace)
|
||||
x y width height)
|
||||
(when (eq frame exwm-workspace--current)
|
||||
(exwm-workspace--resize-minibuffer width height))
|
||||
(setq workareas
|
||||
(nconc workareas (list x y width (- height
|
||||
workarea-offset)))
|
||||
|
|
@ -116,9 +118,7 @@
|
|||
(make-instance 'xcb:ewmh:set-_NET_DESKTOP_VIEWPORT
|
||||
:window exwm--root
|
||||
:data (vconcat viewports)))
|
||||
(xcb:flush exwm--connection))
|
||||
;; Force update workspace settings.
|
||||
(exwm-workspace-switch exwm-workspace-current-index t))
|
||||
(xcb:flush exwm--connection)))
|
||||
|
||||
(defvar exwm-randr-screen-change-hook nil
|
||||
"Normal hook run when screen changes.")
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue