mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ensure floating hooks are run in the right context

Browse source 
* exwm-floating.el (exwm-floating-setup-hook, exwm-floating-exit-hook):
Fix doc string.
(exwm-floating--set-floating, exwm-floating--unset-floating): Set the
context.
This commit is contained in:
Chris Feng 2016-08-09 13:20:36 +08:00
parent 06c1b0485a
commit 6e0b944c2d
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
exwm-floating.el
View file

@ -34,9 +34,11 @@
"Border color of the floating window.") "Border color of the floating window.")
(defvar exwm-floating-setup-hook nil (defvar exwm-floating-setup-hook nil
"Normal hook run when a window has been made floating.") "Normal hook run when an X window has been made floating, in the
context of the corresponding buffer.")
(defvar exwm-floating-exit-hook nil (defvar exwm-floating-exit-hook nil
"Normal hook run when a window has exited floating state.") "Normal hook run when an X window has exited floating state, in the
context of the corresponding buffer.")
;; Cursors for moving/resizing a window ;; Cursors for moving/resizing a window
(defvar exwm-floating--cursor-move nil) (defvar exwm-floating--cursor-move nil)
@ -252,7 +254,8 @@
xcb:ConfigWindow:Y) xcb:ConfigWindow:Y)
:x 0 :y 0)) :x 0 :y 0))
(xcb:flush exwm--connection))) (xcb:flush exwm--connection)))
(run-hooks 'exwm-floating-setup-hook) (with-current-buffer (exwm--id->buffer id)
(run-hooks 'exwm-floating-setup-hook))
;; Redraw the frame. ;; Redraw the frame.
(redisplay)) (redisplay))
@ -324,7 +327,8 @@
(let ((window (frame-selected-window exwm-workspace--current))) (let ((window (frame-selected-window exwm-workspace--current)))
(set-window-buffer window buffer) (set-window-buffer window buffer)
(select-window window)))) (select-window window))))
(run-hooks 'exwm-floating-exit-hook)) (with-current-buffer (exwm--id->buffer id)
(run-hooks 'exwm-floating-exit-hook)))
;;;###autoload ;;;###autoload
(defun exwm-floating-toggle-floating () (defun exwm-floating-toggle-floating ()