lisp: Bind s-<backspace> to ambrevar/slime-switch-to-repl

.emacs.d/lisp/init-lisp.el

@@ -102,9 +102,21 @@
                       "<f6>" (lambda () (interactive) (async-byte-recompile-directory (file-name-directory (buffer-file-name)))))
 
 ;;; Common LISP.
+(defun ambrevar/slime-switch-to-repl ()
+  (interactive)
+  (pcase (length slime-net-processes)
+    (0 (slime))
+    (1 (if (eq (current-buffer) (slime-output-buffer))
+           (slime)
+         (pop-to-buffer (slime-output-buffer))))
+    (_ (if (require 'helm-slime nil 'noerror)
+           (helm-slime-mini)
+         (pop-to-buffer (slime-output-buffer))))))
+
 (setq inferior-lisp-program (or (executable-find "ccl")
                                 "sbcl --noinform"))
 (with-eval-after-load 'slime
+  (global-set-key (kbd "s-<backspace>") #'ambrevar/slime-switch-to-repl)
   (let ((slime-extra '(slime-fancy
                        ;; slime-banner
                        slime-xref-browser