change binding for avy-jump

and replace the binding for hydra-parens
master
Jacopo De Simoi 4 years ago
parent e2526f7a5d
commit a64aa34a3d
  1. 36
      global.org

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

Loading…
Cancel
Save