From 691ca5c8bfc6cfffea912b5727636e31027f0a25 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Sun, 17 Mar 2019 08:38:17 +0100
Subject: [PATCH] Geiser/EXWM: Bind s-<backspace> to switcher

---
 .emacs.d/lisp/init-exwm.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/.emacs.d/lisp/init-exwm.el b/.emacs.d/lisp/init-exwm.el
index ef744246..a6f04658 100644
--- a/.emacs.d/lisp/init-exwm.el
+++ b/.emacs.d/lisp/init-exwm.el
@@ -88,6 +88,9 @@
   (exwm-input-set-key (kbd "S-s-<return>") #'helm-eshell-switch-other-window))
 (with-eval-after-load 'slime
   (exwm-input-set-key (kbd "s-<backspace>") #'ambrevar/slime-switch-to-repl))
+(with-eval-after-load 'geiser-impl
+  (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))
 (when (fboundp 'magit-status)
   (exwm-input-set-key (kbd "s-v") #'magit-status))
 (when (fboundp 'emms-all)