EXWM: Bind s-backspace by default

master
Pierre Neidhardt 2019-04-02 10:47:22 +02:00
parent 0a8bc9be74
commit 2548b77d8b
1 changed files with 2 additions and 1 deletions

View File

@ -116,6 +116,8 @@
(when (fboundp 'helm-pass)
(exwm-input-set-key (kbd "s-p") #'helm-pass))
(autoload 'ambrevar/slime-to-repl "lisp")
(exwm-input-set-key (kbd "s-<backspace>") #'ambrevar/slime-switch-to-repl)
(defun ambrevar/repl-switcher ()
"Switch between Geiser and SLIME REPLs."
(interactive)
@ -126,7 +128,6 @@
(exwm-input-set-key (kbd "s-<backspace>") #'helm-geiser-repl-switch)
(exwm-input-set-key (kbd "S-s-<backspace>") #'helm-geiser-repl-switch-other-window))
("slime"
(autoload 'ambrevar/slime-to-repl "lisp")
(exwm-input-set-key (kbd "s-<backspace>") #'ambrevar/slime-switch-to-repl))))
(exwm-input-set-key (kbd "s-C-<backspace>") #'ambrevar/repl-switcher)