From e587ce789ef6d6586b697ba83120d1e656950ec2 Mon Sep 17 00:00:00 2001 From: Amin Bandali Date: Sun, 8 Sep 2019 23:26:39 -0400 Subject: [PATCH 1/1] emacs: exwm: improve close/quit -related bindings --- .emacs.d/init.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) 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]) -- 2.20.1