emacs: exwm: improve close/quit -related bindings

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 3f1c363..4102df0 100644 (file)
--- 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)
                     (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))))
                        (interactive)
                        (kill-buffer (current-buffer))))

-          ([?\s-q] . (lambda ()
+          ([?\s-Q] . (lambda ()

                        (interactive)
                        (exwm-manage--kill-client)))
           ([?\s-\'] . (lambda ()
                        (interactive)
                        (exwm-manage--kill-client)))
           ([?\s-\'] . (lambda ()


@@ -725,7 +725,10 @@ around if needed."
       ;; search
       ([?\C-s] . [?\C-f])
       ;; escape
       ;; 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
 
 (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
                              ((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])
                              ((string= exwm-class-name "URxvt")
                               (exwm-input-set-local-simulation-keys
                                '(([?\C-c ?\C-c] . [?\C-c])