Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2025-04-03 01:35:29 +02:00
Code Issues Projects Releases Packages Wiki Activity

fix frame height after calling exwm-workspace-detach-minibuffer

Browse source
This commit is contained in:
zhenhua-wang 2023-09-09 16:24:59 -05:00
parent 381637aa1c
commit 11b8304592
1 changed files with 9 additions and 0 deletions

9
exwm-workspace.el
View file

@ -1105,6 +1105,15 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
(setq exwm-workspace--attached-minibuffer-height 0)
(let ((container (frame-parameter exwm-workspace--minibuffer
'exwm-container)))
(dolist (f exwm-workspace--list)
(with-slots (_ _ x y width height) (exwm-workspace--get-geometry f)
(set-frame-parameter f 'exwm-geometry
(make-instance 'xcb:RECTANGLE
:x x
:y y
:width width
:height (+ height (frame-pixel-height
exwm-workspace--minibuffer))))))
(setq exwm-workspace--id-struts-alist
(assq-delete-all container exwm-workspace--id-struts-alist))
(exwm-workspace--update-struts)