Mirrors/exwm
2
0
Fork 0
mirror of https://github.com/ch11ng/exwm.git synced 2024-11-23 19:47:58 +01:00
Code Issues Projects Releases Packages Wiki Activity

Show moved window by default

Browse source
This commit is contained in:
Chris Feng 2015-08-08 20:39:05 +08:00
parent 63402b0efc
commit 42f4ec6db5
1 changed files with 13 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
exwm-workspace.el
View file

@ -180,12 +180,15 @@ The optional FORCE option is for internal use only."
(concat " " (replace-regexp-in-string "^\\s-*" "" (buffer-name))))
(if exwm--floating-frame
;; Move the floating frame is enough
(xcb:+request exwm--connection
(make-instance 'xcb:ReparentWindow
:window (frame-parameter exwm--floating-frame
'exwm-outer-id)
:parent (frame-parameter frame 'exwm-window-id)
:x 0 :y 0))
(progn
(xcb:+request exwm--connection
(make-instance 'xcb:ReparentWindow
:window (frame-parameter exwm--floating-frame
'exwm-outer-id)
:parent (frame-parameter frame
'exwm-window-id)
:x 0 :y 0))
(xcb:flush exwm--connection))
;; Move the window itself
(bury-buffer)
(exwm-layout--hide id)
@ -196,8 +199,10 @@ The optional FORCE option is for internal use only."
(make-instance 'xcb:ReparentWindow
:window id
:parent (frame-parameter frame 'exwm-window-id)
:x 0 :y 0)))))
(xcb:flush exwm--connection)
:x 0 :y 0))
(xcb:flush exwm--connection)
(set-window-buffer (frame-first-window frame)
(exwm--id->buffer id)))))
(exwm-workspace--update-switch-history)))
(defun exwm-workspace-rename-buffer (newname)