diff options
| author | Vincent Ambo <mail@tazj.in> | 2022-02-26T10·49+0300 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2022-02-26T10·52+0000 |
| commit | e4f2797e01231d46b85b5ee9d975e5bec9513ee2 (patch) | |
| tree | 9a131333d3d93ad6be0597d1b23a5add98e5dfd1 /users | |
| parent | b8660386eb481a14345ed86719f2a72d5090db0c (diff) | |
fix(tazjin/emacs): Set defaults for multiple-cursor hydra commands r/3867
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
Diffstat (limited to 'users')
| -rw-r--r-- | users/tazjin/emacs/config/functions.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el index ba7301e7940d..602809138eef 100644 --- a/users/tazjin/emacs/config/functions.el +++ b/users/tazjin/emacs/config/functions.el @@ -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." |