exwm: add local simulation keys for urxvt and abrowser
authorAmin Bandali <bandali@gnu.org>
Fri, 6 Sep 2019 17:22:45 +0000 (13:22 -0400)
committerAmin Bandali <bandali@gnu.org>
Fri, 6 Sep 2019 17:45:52 +0000 (13:45 -0400)
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

index d6c94f8..f7afe3c 100644 (file)
@@ -711,6 +711,23 @@ around if needed."
       ;; escape
       ([?\C-g] . [escape]))))
 
       ;; 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
 (use-feature exwm-randr
   :demand
   :after exwm