[Emacs] Add multiple-cursors hydra

This commit is contained in:
Ivan Malison 2017-08-27 12:34:40 -07:00
parent a25a80a6ab
commit 86eac4df01
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -1970,15 +1970,21 @@ I don't use auto-complete at all, so I have set up a hook to automatically disab
(use-package mc-extras
:demand t
:config
(define-key mc/keymap (kbd "C-. =") 'mc/compare-chars)))
(define-key mc/keymap (kbd "C-. =") 'mc/compare-chars))
(defhydra imalison:multiple-cursors-hydra (:hint nil)
"multiple-cursors"
("l" mc/edit-lines "Edit lines" :exit t)
("a" mc/mark-all-like-this "Mark all" :exit t)
("n" mc/mark-next-like-this "Mark next")
("N" mc/skip-to-next-like-this "Skip to next")
("M-n" mc/unmark-next-like-this "Unmark next")
("p" mc/mark-previous-like-this "Mark previous")
("P" mc/skip-to-previous-like-this "Skip to previous")
("M-p" mc/unmark-previous-like-this "Unmark previous")
("r" mc/mark-all-in-region-regexp "Mark by regex in region":exit t)
("q" nil "Quit")))
:bind
(("C-c m a" . mc/mark-all-like-this)
("C-c m m" . mc/mark-all-like-this-dwim)
("C-c m l" . mc/edit-lines)
("C-c m n" . mc/mark-next-like-this)
("C-c m p" . mc/mark-previous-like-this)
("C-c m s" . mc/mark-sgml-tag-pair)
("C-c m d" . mc/mark-all-like-this-in-defun)
(("C-c m" . imalison:multiple-cursors-hydra/body)
:map mc/keymap
("C-s" . phi-search)))
#+END_SRC