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 position for exwm-workspace-detach-minibuffer

Browse source
This commit is contained in:
zhenhua-wang 2023-09-09 16:45:47 -05:00
parent 11b8304592
commit d3483cbe55
1 changed files with 11 additions and 7 deletions

18
exwm-workspace.el
View file

@ -1107,13 +1107,17 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first."
'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))))))
(let* ((minibuffer-pixel-height (frame-pixel-height exwm-workspace--minibuffer))
(y (if (eq exwm-workspace-minibuffer-position 'top)
(- y minibuffer-pixel-height)
y))
(height (+ height minibuffer-pixel-height)))
(set-frame-parameter f 'exwm-geometry
(make-instance 'xcb:RECTANGLE
:x x
:y y
:width width
:height height)))))
(setq exwm-workspace--id-struts-alist
(assq-delete-all container exwm-workspace--id-struts-alist))
(exwm-workspace--update-struts)