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

Switch MC hydra to auto columns, add mark count

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")
("q" nil))
(defhydra hydra-mc (:hint nil)
"
Mark Bulk: _a_ll _s_ymbols _r_egex
Edit: _l_ines _e_nds
Misc: _n_umbers _S_ort
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)
(defhydra hydra-mc ()
"Marks: %(mc/num-cursors)"
("a" mc/mark-all-dwim "all" :column "Bulk")
("s" mc/mark-all-symbols-like-this "symbols")
("r" mc/mark-all-in-region-regexp "regex")
("l" mc/edit-lines)
("e" mc/edit-ends-of-lines)
("l" mc/edit-lines "lines" :column "Edit")
("e" mc/edit-ends-of-lines "ends")
("n" mc/insert-numbers)
("S" mc/sort-regions)
("n" mc/insert-numbers "number" :column "Misc")
("S" mc/sort-regions "sort" :column "Misc")
("<down>" mc/mark-next-like-this)
("C-n" mc/mark-next-like-this)
("<up>" mc/mark-previous-like-this)
("C-p" mc/mark-previous-like-this)
("S-<down>" mc/unmark-previous-like-this)
("C-S-n" mc/unmark-previous-like-this)
("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)
("<up>" mc/mark-previous-like-this "prev" :column "Manual")
("<down>" mc/mark-next-like-this "next")
("S-<up>" mc/unmark-next-like-this nil)
("S-<down>" mc/unmark-previous-like-this nil)
("<left>" mc/skip-to-previous-like-this "skip prev")
("<right>" mc/skip-to-next-like-this "skip next")
("<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)
"