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

Provide hooks run when the floating state of a window changes (close #28)

Browse source
This commit is contained in:
Chris Feng 2015-08-16 19:00:42 +08:00
parent 7bfd429d52
commit d998b42b89
1 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
exwm-floating.el
View file

@ -36,6 +36,11 @@
(defvar exwm-floating-border-color "blue"
"Border color of the floating window.")
(defvar exwm-floating-setup-hook nil
"Normal hook run when a window has been made floating.")
(defvar exwm-floating-exit-hook nil
"Normal hook run when a window has exited floating state.")
(defun exwm-floating--set-floating (id)
"Make window ID floating."
(interactive)
@ -180,7 +185,8 @@
exwm--floating-frame frame)
(set-window-buffer window (current-buffer)) ;this changes current buffer
(set-window-dedicated-p window t))
(select-window window)))
(select-window window))
(run-hooks 'exwm-floating-setup-hook))
(defun exwm-floating--unset-floating (id)
"Make window ID non-floating."
@ -213,7 +219,8 @@
exwm--frame exwm-workspace--current))
(let ((window (frame-selected-window exwm-workspace--current)))
(set-window-buffer window buffer)
(select-window window))))
(select-window window)))
(run-hooks 'exwm-floating-exit-hook))
(defun exwm-floating-toggle-floating ()
"Toggle the current window between floating and non-floating states."