From 11b83045922aa63784db98c49b3e896fd719d9ff Mon Sep 17 00:00:00 2001
From: zhenhua-wang <wang_zhenhua1996@icloud.com>
Date: Sat, 9 Sep 2023 16:24:59 -0500
Subject: [PATCH] fix frame height after calling
exwm-workspace-detach-minibuffer
---
exwm-workspace.el | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/exwm-workspace.el b/exwm-workspace.el
index c78089c..a612202 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -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)