dotfiles/emacs
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add hydra for manual mc cursor adding

Browse Source 
Also rebinds hydra-mc to 'C-,' and hydra-mc-manual to 'C-c c'
This commit is contained in:
Adam Goldsmith 2016-01-20 21:39:49 -05:00
parent 76e68d3a6a
commit 3eb0cea8b7
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
.emacs.d/init-hydra.el
View File

@ -45,7 +45,7 @@
Mark Bulk: _a_ll _s_ymbols _r_egex Mark Bulk: _a_ll _s_ymbols _r_egex
Edit: _l_ines _e_nds Edit: _l_ines _e_nds
Misc: _n_umbers _S_ort Misc: _n_umbers _S_ort
Mark (+S=unmark): _<up>_:prev _<down>_:next _<left>_:skip prev _<right>_:skip next " Mark (+S=unmark): _<up>_:prev _<down>_:next _<left>_:skip prev _<right>_:skip next"
("a" mc/mark-all-dwim) ("a" mc/mark-all-dwim)
("s" mc/mark-all-symbols-like-this) ("s" mc/mark-all-symbols-like-this)
("r" mc/mark-all-in-region-regexp) ("r" mc/mark-all-in-region-regexp)
@ -65,6 +65,13 @@ Mark (+S=unmark): _<up>_:prev _<down>_:next _<left>_:skip prev _<right>_:skip ne
("<return>" nil)) ("<return>" nil))
(defhydra hydra-mc-manual (:hint nil :foreign-keys run)
"
_SPC_: Add at point _C-g_: Abort _<return>_: Start"
("SPC" (mc/create-fake-cursor-at-point))
("C-g" (multiple-cursors-mode 0) :exit t)
("<return>" (multiple-cursors-mode 1) :exit t))
(defhydra hydra-avy (:hint nil :color blue) (defhydra hydra-avy (:hint nil :color blue)
" "
char: _c_: 1 char _C_: 2 char char: _c_: 1 char _C_: 2 char
@ -79,4 +86,5 @@ word: _w_: 1 char _W_: 0 char"
(global-set-key (kbd "C-c w") 'hydra-window/body) (global-set-key (kbd "C-c w") 'hydra-window/body)
(global-set-key (kbd "C-c s") 'hydra-shortcuts/body) (global-set-key (kbd "C-c s") 'hydra-shortcuts/body)
(global-set-key (kbd "C-c a") 'hydra-avy/body) (global-set-key (kbd "C-c a") 'hydra-avy/body)
(global-set-key (kbd "C-c c") 'hydra-mc/body) (global-set-key (kbd "C-,") 'hydra-mc/body)
(global-set-key (kbd "C-c c") 'hydra-mc-manual/body)