|
|
|
|
@ -988,14 +988,17 @@ |
|
|
|
|
*** Paredit |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
(autoload 'enable-paredit-mode "paredit" "Turn on |
|
|
|
|
pseudo-structural editing of Lisp code." t) |
|
|
|
|
pseudo-structural editing of Lisp code." t) |
|
|
|
|
(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode) |
|
|
|
|
(with-eval-after-load "paredit" |
|
|
|
|
(define-key-alist paredit-mode-map |
|
|
|
|
'(("C-H-l" . paredit-forward-slurp-sexp) |
|
|
|
|
("C-H-M-j" . paredit-backward-slurp-sexp) |
|
|
|
|
("C-H-j" . paredit-forward-barf-sexp) |
|
|
|
|
("C-H-M-l" . paredit-backward-barf-sexp)))) |
|
|
|
|
(define-paredit-pair ?“ ?” "pretty-quotes") |
|
|
|
|
(require 'hydra) |
|
|
|
|
(defhydra hydra-paren (global-map "C-SPC") |
|
|
|
|
"paren slurp and barf" |
|
|
|
|
("C-f" paredit-forward-slurp-sexp "slurp forward") |
|
|
|
|
("M-f" paredit-forward-barf-sexp "barf forward") |
|
|
|
|
("C-b" paredit-backward-slurp-sexp "slurp backward") |
|
|
|
|
("M-b" paredit-backward-barf-sexp "barf backward"))) |
|
|
|
|
#+END_SRC |
|
|
|
|
*** Replace last sexp |
|
|
|
|
I use this a lot to evaluate (e.g.) quick computations in files |
|
|
|
|
|