mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix(tazjin/emacs): Set defaults for multiple-cursor hydra commands

Browse source 
Change-Id: Ic07ed0d507ffd112f46953efbf6554b93a208671
Reviewed-on: https://cl.tvl.fyi/c/depot/+/5325
Reviewed-by: tazjin <tazjin@tvl.su>
Autosubmit: tazjin <tazjin@tvl.su>
Tested-by: BuildkiteCI
This commit is contained in:
Vincent Ambo 2022-02-26 13:49:35 +03:00 committed by clbot
parent b8660386eb
commit e4f2797e01
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
users/tazjin/emacs/config/functions.el
View file

@ -142,7 +142,7 @@ the GPG agent correctly."
(eq (current-buffer) (window-buffer last-window))))
(defhydra mc/mark-more-hydra (:color pink)
("<up>" mmlte--up "Mark previous like this")
("<up>" mc/mmlte--up "Mark previous like this")
("<down>" mc/mmlte--down "Mark next like this")
("<left>" mc/mmlte--left (if (eq mc/mark-more-like-this-extended-direction 'up)
"Skip past the cursor furthest up"
@ -168,6 +168,16 @@ the GPG agent correctly."
(mc/mmlte--down)
(mc/mark-more-hydra/body))))
(setq mc/cmds-to-run-for-all '(kill-region paredit-newline))
(setq mc/cmds-to-run-once '(mc/mark-dwim
mc/mark-more-hydra/mc/mmlte--down
mc/mark-more-hydra/mc/mmlte--left
mc/mark-more-hydra/mc/mmlte--right
mc/mark-more-hydra/mc/mmlte--up
mc/mark-more-hydra/mmlte--up
mc/mark-more-hydra/nil))
(defun memespace-region ()
"Make a meme out of it."