about summary refs log tree commit diff
path: root/exwm-floating.el
diff options
context:
space:
mode:
authorChris Feng <chris.w.feng@gmail.com>2016-05-24T04·30+0800
committerChris Feng <chris.w.feng@gmail.com>2016-05-24T04·30+0800
commit3dba5f156f2670f6226db80281a5879762259154 (patch)
tree0217cc3ac6e8c1afd90e0663566174ecca43bd88 /exwm-floating.el
parent1b2ae3749e98b83f94cc19cef8830ce823c63367 (diff)
Manage a certain type of undecorated X windows
* exwm-core.el (exwm--mwm-hints): Removed.
(exwm--mwm-hints-decorations): New buffer-local variable for
indicating whether the X window should have decorations.
* exwm-floating.el (exwm-floating--set-floating): Hide the mode-line
of undecorated floating X windows by default.
* exwm-manage.el (exwm-manage--update-mwm-hints):
Set exwm--mwm-hints-decorations;
(exwm-manage--manage-window): Manage an undecorated X window if its
input model is not 'No Input' or 'Globally Active'.
Diffstat (limited to 'exwm-floating.el')
-rw-r--r--exwm-floating.el6
1 files changed, 6 insertions, 0 deletions
diff --git a/exwm-floating.el b/exwm-floating.el
index b3a5b18482a2..d4f57b73d2f9 100644
--- a/exwm-floating.el
+++ b/exwm-floating.el
@@ -159,6 +159,12 @@
                                     (- (elt edges 2) (elt edges 0)))))
            (frame-height (+ height (- (frame-pixel-height frame)
                                       (- (elt edges 3) (elt edges 1))))))
+      ;; Check `exwm--mwm-hints-decorations'.
+      (unless exwm--mwm-hints-decorations
+        (setq frame-height (- frame-height (window-mode-line-height
+                                            (frame-root-window frame)))
+              exwm--mode-line-format mode-line-format
+              mode-line-format nil))
       (set-frame-size frame frame-width frame-height t)
       ;; Create the frame container as the parent of the frame and
       ;; a child of the X window container.