From 305e08d65aab8b56783d8190f041cfc219b9cc6f Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Fri, 6 Sep 2019 13:22:45 -0400
Subject: exwm: add local simulation keys for urxvt and abrowser
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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
---
 .emacs.d/init.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

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
-- 
cgit v1.2.3-60-g2f50