(dolist (i (append
;; Change these to wherever you keep your extensions.
;; Do the same for the directories mentioned below.
(list "~/.local/slime/site" "~/.emacs.d")
(directory-files "~/.emacs.d/site-lisp" t "[0-9]$")))
(add-to-list 'load-path i))
(defun my-backward-kill-line ()
(interactive)
;; It would be nice to use an appropriate paredit command, but there
;; isn't one. 'paredit-kill just invokes regular kill-line if
;; there's a numeric argument.
(kill-line 0))
(defun my-slime-repl-backward-kill-line ()
(interactive)
;; Surely there is a better way to do this.
(let ((bol (my-get-repl-or-paredit-bol)))
(while (< bol (point))
(paredit-backward-delete))))
"Enable paredit in the minibuffer when editing an eval expression."
(add-hook 'minibuffer-setup-hook
(lambda ()
(if (eq this-command 'eval-expression)
(paredit-mode +1))))