diff options
| author | Amin Bandali <bandali@gnu.org> | 2019-09-08 23:26:39 -0400 |
|---|---|---|
| committer | Amin Bandali <bandali@gnu.org> | 2019-09-08 23:26:39 -0400 |
| commit | e587ce789ef6d6586b697ba83120d1e656950ec2 (patch) | |
| tree | 0bd14097787d75989df90b7b51b654c0412d54cb /.emacs.d/init.el | |
| parent | bff00f789429361109c5272977857a5b340341a6 (diff) | |
| download | configs-e587ce789ef6d6586b697ba83120d1e656950ec2.tar.gz configs-e587ce789ef6d6586b697ba83120d1e656950ec2.tar.xz configs-e587ce789ef6d6586b697ba83120d1e656950ec2.zip | |
emacs: exwm: improve close/quit -related bindings
Diffstat (limited to '.emacs.d/init.el')
| -rw-r--r-- | .emacs.d/init.el | 13 |
1 files 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]) |