From: Amin Bandali <bandali@gnu.org>
Date: Mon, 9 Sep 2019 03:26:39 +0000 (-0400)
Subject: emacs: exwm: improve close/quit -related bindings
X-Git-Url: https://git.shemshak.org/gitweb.cgi/~bandali/configs/commitdiff_plain/e587ce789ef6d6586b697ba83120d1e656950ec2?ds=inline;hp=bff00f789429361109c5272977857a5b340341a6

emacs: exwm: improve close/quit -related bindings
---

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 3f1c363..4102df0 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -656,10 +656,10 @@ around if needed."
                     (number-sequence 0 (1- exwm-workspace-number)))
           ([?\s-t] . exwm-floating-toggle-floating)
           ([?\s-f] . exwm-layout-toggle-fullscreen)
-          ([?\s-w] . (lambda ()
+          ([?\s-W] . (lambda ()
                        (interactive)
                        (kill-buffer (current-buffer))))
-          ([?\s-q] . (lambda ()
+          ([?\s-Q] . (lambda ()
                        (interactive)
                        (exwm-manage--kill-client)))
           ([?\s-\'] . (lambda ()
@@ -725,7 +725,10 @@ around if needed."
       ;; search
       ([?\C-s] . [?\C-f])
       ;; escape
-      ([?\C-g] . [escape]))))
+      ([?\C-g] . [escape])
+      ;; window
+      ([?\s-w] . [?\C-w])
+      ([?\s-q] . [?\C-q]))))
 
 (use-feature exwm-manage
   :demand
@@ -737,9 +740,7 @@ around if needed."
                              ((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]))))
+                                 ([?\C-\S-d] . [?\C-d]))))
                              ((string= exwm-class-name "URxvt")
                               (exwm-input-set-local-simulation-keys
                                '(([?\C-c ?\C-c] . [?\C-c])