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

Switch MC hydra to auto columns, add mark count

Browse Source
This commit is contained in:
Adam Goldsmith 2019-05-19 19:23:18 -04:00
parent 8593dba2ef
commit ae3d062153
1 changed files with 23 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,36 +40,33 @@
("t" todotxt-open-file "open todotxt") ("t" todotxt-open-file "open todotxt")
("q" nil)) ("q" nil))
(defhydra hydra-mc (:hint nil) (defhydra hydra-mc ()
" "Marks: %(mc/num-cursors)"
Mark Bulk: _a_ll _s_ymbols _r_egex ("a" mc/mark-all-dwim "all" :column "Bulk")
Edit: _l_ines _e_nds ("s" mc/mark-all-symbols-like-this "symbols")
Misc: _n_umbers _S_ort ("r" mc/mark-all-in-region-regexp "regex")
Mark (+S=unmark): _<up>_:prev _<down>_:next _<left>_:skip prev _<right>_:skip next"
("a" mc/mark-all-dwim)
("s" mc/mark-all-symbols-like-this)
("r" mc/mark-all-in-region-regexp)
("l" mc/edit-lines) ("l" mc/edit-lines "lines" :column "Edit")
("e" mc/edit-ends-of-lines) ("e" mc/edit-ends-of-lines "ends")
("n" mc/insert-numbers) ("n" mc/insert-numbers "number" :column "Misc")
("S" mc/sort-regions) ("S" mc/sort-regions "sort" :column "Misc")
("<down>" mc/mark-next-like-this) ("<up>" mc/mark-previous-like-this "prev" :column "Manual")
("C-n" mc/mark-next-like-this) ("<down>" mc/mark-next-like-this "next")
("<up>" mc/mark-previous-like-this) ("S-<up>" mc/unmark-next-like-this nil)
("C-p" mc/mark-previous-like-this) ("S-<down>" mc/unmark-previous-like-this nil)
("S-<down>" mc/unmark-previous-like-this) ("<left>" mc/skip-to-previous-like-this "skip prev")
("C-S-n" mc/unmark-previous-like-this) ("<right>" mc/skip-to-next-like-this "skip next")
("S-<up>" mc/unmark-next-like-this)
("C-S-p" mc/unmark-next-like-this)
("<right>" mc/skip-to-next-like-this)
("M-n" mc/skip-to-next-like-this)
("<left>" mc/skip-to-previous-like-this)
("M-p" mc/skip-to-previous-like-this)
("<return>" nil)) ("C-p" mc/mark-previous-like-this "prev" :column "Manual (Alt)")
("C-n" mc/mark-next-like-this "next")
("C-S-p" mc/unmark-next-like-this nil)
("C-S-n" mc/unmark-previous-like-this nil)
("M-p" mc/skip-to-previous-like-this "skip prev")
("M-n" mc/skip-to-next-like-this "skip next")
("<return>" nil nil))
(defhydra hydra-mc-manual (:hint nil :foreign-keys run) (defhydra hydra-mc-manual (:hint nil :foreign-keys run)
" "