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

Also send a WM_TAKE_FOCUS when setting focus with SetInputFocus

Browse source 
* exwm-input.el (exwm-input--set-focus): Send an extra WM_TAKE_FOCUS
event to workaround the key replay issue with Xorg 1.20 when keyboard
is grabbed.
This commit is contained in:
Chris Feng 2018-07-15 00:00:00 +08:00
parent 4bb2d87a8d
commit 6be729847e
1 changed files with 21 additions and 30 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
exwm-input.el
View file

@ -158,16 +158,14 @@ This value should always be overwritten.")
"Set input focus to window ID in a proper way." "Set input focus to window ID in a proper way."
(when (exwm--id->buffer id) (when (exwm--id->buffer id)
(with-current-buffer (exwm--id->buffer id) (with-current-buffer (exwm--id->buffer id)
(cond
((and (not exwm--hints-input)
(memq xcb:Atom:WM_TAKE_FOCUS exwm--protocols))
(when (= (frame-parameter nil 'exwm-id)
(slot-value (xcb:+request-unchecked+reply exwm--connection
(make-instance 'xcb:GetInputFocus))
'focus))
(exwm--log "Focus on #x%x with WM_TAKE_FOCUS" id)
(exwm-input--update-timestamp (exwm-input--update-timestamp
(lambda (timestamp id) (lambda (timestamp id send-input-focus)
(when send-input-focus
(xcb:+request exwm--connection
(make-instance 'xcb:SetInputFocus
:revert-to xcb:InputFocus:Parent
:focus id
:time timestamp)))
(let ((event (make-instance 'xcb:icccm:WM_TAKE_FOCUS (let ((event (make-instance 'xcb:icccm:WM_TAKE_FOCUS
:window id :window id
:time timestamp))) :time timestamp)))
@ -175,19 +173,12 @@ This value should always be overwritten.")
(xcb:+request exwm--connection (xcb:+request exwm--connection
(make-instance 'xcb:icccm:SendEvent (make-instance 'xcb:icccm:SendEvent
:destination id :destination id
:event event)) :event event)))
(exwm-input--set-active-window id) (exwm-input--set-active-window id)
(xcb:flush exwm--connection))) (xcb:flush exwm--connection))
id))) id
(t (or exwm--hints-input
(exwm--log "Focus on #x%x with SetInputFocus" id) (not (memq xcb:Atom:WM_TAKE_FOCUS exwm--protocols)))))))
(xcb:+request exwm--connection
(make-instance 'xcb:SetInputFocus
:revert-to xcb:InputFocus:Parent
:focus id
:time xcb:Time:CurrentTime))
(exwm-input--set-active-window id)
(xcb:flush exwm--connection))))))
(defun exwm-input--update-timestamp (callback &rest args) (defun exwm-input--update-timestamp (callback &rest args)
"Fetch the latest timestamp from the server and feed it to CALLBACK. "Fetch the latest timestamp from the server and feed it to CALLBACK.