From: Amin Bandali <bandali@gnu.org>
Date: Fri, 6 Sep 2019 17:22:45 +0000 (-0400)
Subject: exwm: add local simulation keys for urxvt and abrowser
X-Git-Url: https://git.shemshak.org/~bandali/configs/commitdiff_plain/305e08d65aab8b56783d8190f041cfc219b9cc6f?hp=b0b341898d6649882e3d9f9dbdc5af1937168af8

exwm: add local simulation keys for urxvt and abrowser

note: it seems that some composite keys (e.g. C-S-w) don’t work when
pressing the caps that was remapped to ctrl using setxkbmap or xmodmap
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index d6c94f8..f7afe3c 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -711,6 +711,23 @@ around if needed."
       ;; escape
       ([?\C-g] . [escape]))))
 
+(use-feature exwm-manage
+  :demand
+  :after exwm
+  :hook
+  (exwm-manage-finish . (lambda ()
+                          (when exwm-class-name
+                            (cond
+                             ((string= exwm-class-name "URxvt")
+                              (exwm-input-set-local-simulation-keys
+                               nil))
+                             ((string= exwm-class-name "Abrowser")
+                              (exwm-input-set-local-simulation-keys
+                               `(,@exwm-input-simulation-keys
+                                 ([?\C-\S-d] . [?\C-d])
+                                 ([?\C-\S-w] . [?\C-w])
+                                 ([?\C-\S-q] . [?\C-q])))))))))
+
 (use-feature exwm-randr
   :demand
   :after exwm