From 8172974e82a1c35cfdd1dfd29265ca3f41b57dd2 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Thu, 21 May 2015 01:48:11 -0400 Subject: Make hydra map for Paredit bindings --- lisp/init-elisp.el | 44 ++++++++++++++++++++++++++++++++++++++++---- 1 file changed, 40 insertions(+), 4 deletions(-) (limited to 'lisp') diff --git a/lisp/init-elisp.el b/lisp/init-elisp.el index 8ec711d..a1cc592 100644 --- a/lisp/init-elisp.el +++ b/lisp/init-elisp.el @@ -6,10 +6,46 @@ (add-hook 'emacs-lisp-mode-hook 'enable-paredit-mode) (after 'paredit - (define-key paredit-mode-map (kbd "C-,") 'paredit-forward-slurp-sexp) - (define-key paredit-mode-map (kbd "C-.") 'paredit-forward-barf-sexp) - (define-key paredit-mode-map (kbd "C-M-,") 'paredit-backward-slurp-sexp) - (define-key paredit-mode-map (kbd "C-M-.") 'paredit-backward-barf-sexp) + (define-key paredit-mode-map (kbd "C-,") + (defhydra hydra-paredit () + " +_a_: beginning of defun _j_: forward slurp +_f_: forward _k_: forward barf +_b_: backward _u_: backward slurp +_p_: backward down _i_: backward barf +_n_: forward up +_d_: forward down _w_: copy as kill +_v_: backward up _q_: indent sexp + +_c_: convolute sexp _l_: split sexp +_r_: raise _o_: join sexp +_s_: splice sexp +_R_: wrap round +" + ("j" paredit-forward-slurp-sexp nil) + ("k" paredit-forward-barf-sexp nil) + ("u" paredit-backward-slurp-sexp nil) + ("i" paredit-backward-barf-sexp nil) + + ("a" beginning-of-defun nil) + ("f" paredit-forward nil) + ("b" paredit-backward nil) + ("p" paredit-backward-down nil) + ("n" paredit-forward-up nil) + ("d" paredit-forward-down nil) + ("v" paredit-backward-up nil) + + ("c" paredit-convolute-sexp nil) + ("r" paredit-raise-sexp nil) + ("s" paredit-splice-sexp nil) + ("R" paredit-wrap-round nil) + + ("l" paredit-split-sexp nil) + ("o" paredit-join-sexps nil) + + ("w" paredit-copy-as-kill nil) + + ("q" indent-pp-sexp nil))) ;; Don't let `paredit-splice-sexp' override default 'M-s' map. (define-key paredit-mode-map (kbd "M-s") nil) -- cgit v1.2.3