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

Run hook upon input mode change

Browse source 
* exwm-input.el (exwm-input-input-mode-change-hook): Add new hook
	for code to run upon input mode change.
	(exwm-input--grab-keyboard, exwm-input--release-keyboard): Run it.
This commit is contained in:
Adrián Medraño Calvo 2020-04-17 00:00:00 +00:00
parent 95d6aa96cf
commit ce2625d050
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
exwm-input.el
View file

@ -145,6 +145,10 @@ This value should always be overwritten.")
(defvar exwm-input--event-hook nil (defvar exwm-input--event-hook nil
"Hook to run when EXWM receives an event.") "Hook to run when EXWM receives an event.")
(defvar exwm-input-input-mode-change-hook nil
"Hook to run when an input mode changes on an `exwm-mode' buffer.
Current buffer will be the `exwm-mode' buffer when this hook runs.")
(defvar exwm-workspace--current) (defvar exwm-workspace--current)
(declare-function exwm-floating--do-moveresize "exwm-floating.el" (declare-function exwm-floating--do-moveresize "exwm-floating.el"
(data _synthetic)) (data _synthetic))
@ -793,7 +797,8 @@ button event."
(let ((buffer (exwm--id->buffer id))) (let ((buffer (exwm--id->buffer id)))
(when buffer (when buffer
(with-current-buffer buffer (with-current-buffer buffer
(setq exwm--input-mode 'line-mode)))))) (setq exwm--input-mode 'line-mode)
(run-hooks 'exwm-input-input-mode-change-hook))))))
(defun exwm-input--release-keyboard (&optional id) (defun exwm-input--release-keyboard (&optional id)
"Ungrab all key events on window ID." "Ungrab all key events on window ID."
@ -810,7 +815,8 @@ button event."
(let ((buffer (exwm--id->buffer id))) (let ((buffer (exwm--id->buffer id)))
(when buffer (when buffer
(with-current-buffer buffer (with-current-buffer buffer
(setq exwm--input-mode 'char-mode)))))) (setq exwm--input-mode 'char-mode)
(run-hooks 'exwm-input-input-mode-change-hook))))))
;;;###autoload ;;;###autoload
(defun exwm-input-grab-keyboard (&optional id) (defun exwm-input-grab-keyboard (&optional id)