From: Amin Bandali 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/~bandali/configs/commitdiff_plain/e587ce789ef6d6586b697ba83120d1e656950ec2?ds=inline 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])