|
|
|
|
@ -1705,23 +1705,23 @@ |
|
|
|
|
(defun hydra-paren/post () |
|
|
|
|
(highlight-parentheses-mode -1) |
|
|
|
|
(makunbound 'hydra-paren/hpm)) |
|
|
|
|
(global-set-key |
|
|
|
|
(kbd "C-SPC") |
|
|
|
|
(defhydra hydra-paren |
|
|
|
|
(:pre hydra-paren/pre :post hydra-paren/post) |
|
|
|
|
"paren slurp and barf" |
|
|
|
|
("l" (progn |
|
|
|
|
(paredit-forward-slurp-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "slurp forward") |
|
|
|
|
("n" (progn |
|
|
|
|
(paredit-forward-barf-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "barf forward") |
|
|
|
|
("r" (progn |
|
|
|
|
(paredit-backward-slurp-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "slurp backward") |
|
|
|
|
("t" (progn |
|
|
|
|
(paredit-backward-barf-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "barf backward"))) |
|
|
|
|
|
|
|
|
|
(defhydra hydra-paren |
|
|
|
|
(:pre hydra-paren/pre :post hydra-paren/post) |
|
|
|
|
"paren slurp and barf" |
|
|
|
|
("l" (progn |
|
|
|
|
(paredit-forward-slurp-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "slurp forward") |
|
|
|
|
("n" (progn |
|
|
|
|
(paredit-forward-barf-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "barf forward") |
|
|
|
|
("r" (progn |
|
|
|
|
(paredit-backward-slurp-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "slurp backward") |
|
|
|
|
("t" (progn |
|
|
|
|
(paredit-backward-barf-sexp) |
|
|
|
|
(hydra-paren/hl-paren-force-fix)) "barf backward")) |
|
|
|
|
(global-set-key (kbd "C-c C-SPC") #'hydra-paren/body) |
|
|
|
|
#+end_src |
|
|
|
|
*** Replace last sexp |
|
|
|
|
I use this a lot to evaluate (e.g.) quick computations in files |
|
|
|
|
@ -2606,7 +2606,7 @@ |
|
|
|
|
(avy-setup-default) |
|
|
|
|
(global-set-key-alist |
|
|
|
|
'(("C-c C-j" . avy-resume) |
|
|
|
|
("C-c SPC" . avy-goto-word-or-subword-1) |
|
|
|
|
("C-SPC" . avy-goto-word-or-subword-1) |
|
|
|
|
("M-s" . avy-goto-word-or-subword-1) |
|
|
|
|
("M-g M-g" . avy-goto-line) |
|
|
|
|
("M-g g" . avy-goto-line))) |
|
|
|
|
|