Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-27 06:48:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

Manage non-floating windows without decorations

Browse source 
* exwm-manage.el (exwm-manage--manage-window): Should manage non-floating
  windows without decorations.
This commit is contained in:
Chris Feng 2015-09-19 17:52:04 +08:00
parent b35430429e
commit 81478de9e6
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
exwm-manage.el
View file

@ -79,6 +79,8 @@ corresponding buffer.")
(setq exwm--id id)
(exwm--update-window-type id)
(exwm--update-class id)
(exwm--update-transient-for id)
(exwm--update-normal-hints id)
(exwm-manage--update-geometry id)
(exwm-manage--update-mwm-hints id)
;; No need to manage (please check OverrideRedirect outside)
@ -93,7 +95,13 @@ corresponding buffer.")
(and exwm--mwm-hints
(/= 0 (logand (elt exwm--mwm-hints 0) ;MotifWmHints.flags
2)) ;MWM_HINTS_DECORATIONS
(= 0 (elt exwm--mwm-hints 2)))) ;MotifWmHints.decorations
(= 0 (elt exwm--mwm-hints 2)) ;MotifWmHints.decorations
;; Floating windows only
(or exwm-transient-for exwm--fixed-size
(memq xcb:Atom:_NET_WM_WINDOW_TYPE_UTILITY
exwm-window-type)
(memq xcb:Atom:_NET_WM_WINDOW_TYPE_DIALOG
exwm-window-type))))
(exwm--log "No need to manage #x%x" id)
;; Remove all events
(xcb:+request-checked+request-check exwm--connection
@ -153,8 +161,6 @@ corresponding buffer.")
:data (vconcat (mapcar #'car exwm--id-buffer-alist))))
(xcb:flush exwm--connection)
(exwm--update-title id)
(exwm--update-transient-for id)
(exwm--update-normal-hints id)
(exwm--update-hints id)
(exwm--update-protocols id)
(exwm--update-state id)