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

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" (defvar exwm-floating-border-color "blue"
"Border color of the floating window.") "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) (defun exwm-floating--set-floating (id)
"Make window ID floating." "Make window ID floating."
(interactive) (interactive)
@ -180,7 +185,8 @@
exwm--floating-frame frame) exwm--floating-frame frame)
(set-window-buffer window (current-buffer)) ;this changes current buffer (set-window-buffer window (current-buffer)) ;this changes current buffer
(set-window-dedicated-p window t)) (set-window-dedicated-p window t))
(select-window window))) (select-window window))
(run-hooks 'exwm-floating-setup-hook))
(defun exwm-floating--unset-floating (id) (defun exwm-floating--unset-floating (id)
"Make window ID non-floating." "Make window ID non-floating."
@ -213,7 +219,8 @@
exwm--frame exwm-workspace--current)) exwm--frame exwm-workspace--current))
(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))
(defun exwm-floating-toggle-floating () (defun exwm-floating-toggle-floating ()
"Toggle the current window between floating and non-floating states." "Toggle the current window between floating and non-floating states."