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

Skip global keys unavailable in X server

Browse source 
* exwm-input.el (exwm-input--grab-global-prefix-keys): Some global
keys might not be available in X server (perhaps due to
misconfiguration).
This commit is contained in:
Chris Feng 2019-09-22 00:00:00 +00:00
parent 988f983233
commit 9c85f172e5
1 changed files with 21 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

39
exwm-input.el
View file

@ -488,24 +488,27 @@ ARGS are additional arguments to CALLBACK."
:keyboard-mode xcb:GrabMode:Async))
keysyms keycode alt-modifier)
(dolist (k exwm-input--global-prefix-keys)
(setq keysyms (xcb:keysyms:event->keysyms exwm--connection k)
keycode (xcb:keysyms:keysym->keycode exwm--connection
(caar keysyms)))
(exwm--log "Grabbing key=%s (keysyms=%s keycode=%s)"
(single-key-description k) keysyms keycode)
(dolist (keysym keysyms)
(setf (slot-value req 'modifiers) (cdr keysym)
(slot-value req 'key) keycode)
;; Also grab this key with num-lock mask set.
(when (and (/= 0 xcb:keysyms:num-lock-mask)
(= 0 (logand (cdr keysym) xcb:keysyms:num-lock-mask)))
(setf alt-modifier (logior (cdr keysym) xcb:keysyms:num-lock-mask)))
(dolist (xwin xwins)
(setf (slot-value req 'grab-window) xwin)
(xcb:+request exwm--connection req)
(when alt-modifier
(setf (slot-value req 'modifiers) alt-modifier)
(xcb:+request exwm--connection req)))))
(setq keysyms (xcb:keysyms:event->keysyms exwm--connection k))
(if (not keysyms)
(warn "Key unavailable: %s" (key-description (vector k)))
(setq keycode (xcb:keysyms:keysym->keycode exwm--connection
(caar keysyms)))
(exwm--log "Grabbing key=%s (keysyms=%s keycode=%s)"
(single-key-description k) keysyms keycode)
(dolist (keysym keysyms)
(setf (slot-value req 'modifiers) (cdr keysym)
(slot-value req 'key) keycode)
;; Also grab this key with num-lock mask set.
(when (and (/= 0 xcb:keysyms:num-lock-mask)
(= 0 (logand (cdr keysym) xcb:keysyms:num-lock-mask)))
(setf alt-modifier (logior (cdr keysym)
xcb:keysyms:num-lock-mask)))
(dolist (xwin xwins)
(setf (slot-value req 'grab-window) xwin)
(xcb:+request exwm--connection req)
(when alt-modifier
(setf (slot-value req 'modifiers) alt-modifier)
(xcb:+request exwm--connection req))))))
(xcb:flush exwm--connection)))
(defun exwm-input--set-key (key command)