shell: add ~/.Xmodmap file

[~bandali/configs] / .emacs.d / init.el

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index d6c94f8..eb0606a 100644 (file)
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -582,7 +582,7 @@ For disabling the behaviour for certain buffers and/or modes."
 
 (use-feature exwm-input
   :demand
 
 (use-feature exwm-input
   :demand

-  :after exwm
+  :after exwm-workspace

   :config
   (defun b/exwm-ws-prev-index ()
     "Return the index for the previous EXWM workspace, wrapping
   :config
   (defun b/exwm-ws-prev-index ()
     "Return the index for the previous EXWM workspace, wrapping


@@ -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-q] . [?\C-w])
+                                 ([?\s-q] . [?\C-q])))))))))
+

 (use-feature exwm-randr
   :demand
   :after exwm
 (use-feature exwm-randr
   :demand
   :after exwm