diff options
| author | Chris Feng <chris.w.feng@gmail.com> | 2019-09-13T00·00+0000 |
|---|---|---|
| committer | Chris Feng <chris.w.feng@gmail.com> | 2019-09-13T00·00+0000 |
| commit | eb49e57f762ab47e874c821c12e0b641d3dd9d8e (patch) | |
| tree | e41e7b7c09ce50bf44596a32e3c4a109476ecb3a /exwm-layout.el | |
| parent | 48b15e25ad9009b1135db6344de156ef4154758f (diff) | |
Fix hiding floating X windows
* exwm-layout.el (exwm-layout--floating-hidden-position): A place far enough from the origin to actually hide floating X window containers. (exwm-layout--show, exwm-layout--hide): Use it.
Diffstat (limited to 'exwm-layout.el')
| -rw-r--r-- | exwm-layout.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/exwm-layout.el b/exwm-layout.el index 5644dbadc1..0b5adeb2f4 100644 --- a/exwm-layout.el +++ b/exwm-layout.el @@ -40,6 +40,9 @@ "Non-nil to allow switching to buffers on other workspaces." :type 'boolean) +(defconst exwm-layout--floating-hidden-position -101 + "Where to place hidden floating X windows.") + (defvar exwm-layout--other-buffer-exclude-buffers nil "List of buffers that should not be selected by `other-buffer'.") @@ -114,9 +117,8 @@ (when exwm--floating-frame-position (setq frame-x (elt exwm--floating-frame-position 0) frame-y (elt exwm--floating-frame-position 1) - ;; The frame was placed at (-1, -1). - x (+ x frame-x 1) - y (+ y frame-y 1)) + x (+ x frame-x (- exwm-layout--floating-hidden-position)) + y (+ y frame-y (- exwm-layout--floating-hidden-position))) (setq exwm--floating-frame-position nil)) (exwm--set-geometry (frame-parameter exwm--floating-frame 'exwm-container) @@ -152,7 +154,10 @@ :drawable container)))) (setq exwm--floating-frame-position (vector (slot-value geometry 'x) (slot-value geometry 'y))) - (exwm--set-geometry container -1 -1 1 1))) + (exwm--set-geometry container exwm-layout--floating-hidden-position + exwm-layout--floating-hidden-position + 1 + 1))) (xcb:+request exwm--connection (make-instance 'xcb:ChangeWindowAttributes :window id :value-mask xcb:CW:EventMask |