Fix paredit-mode bindings in SLIME's REPL

I could (a) put these in a different place (in the `setup slime' form, for
example), or (b) streamlined funcitons or ... something, but I did it this way
and it works fine so that's that.  Oh, I also wrote a longish docstring.

1 files changed, 19 insertions, 6 deletions

@@ -719,12 +719,25 @@ if ripgrep is installed, otherwise `consult-grep'."
               ielm-mode
               lisp-mode
               lisp-interaction-mode
-              scheme-mode)
-
-  (defun disable-electric-pair-local-mode ()
-    (electric-pair-local-mode -1))
-
-  (:hook disable-electric-pair-local-mode)
+              scheme-mode
+              slime-repl-mode)
+
+  (defun paredit-disable-electric-pair-local-mode ()
+    "Disable `electric-pair-local-mode' when `paredit-mode' is enabled."
+    (electric-indent-local-mode (if paredit-mode -1 +1)))
+
+  (defun paredit-properly-bind-backspace ()
+    "Properly bind DEL and C-d in `paredit-mode'.
+
+`paredit-mode''s DEL binding is shadowed by that for
+`lisp-mode-shared-map', so in this hook I remove the binding I
+don't want."
+    (define-key lisp-mode-shared-map (kbd "DEL") nil)
+    (define-key paredit-mode-map (kbd "DEL") #'paredit-backward-delete)
+    (define-key paredit-mode-map (kbd "C-d") #'paredit-forward-delete))
+  
+  (:hook paredit-disable-electric-pair-local-mode
+         paredit-properly-bind-backspace)
   
   (require 'eldoc)
   (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))