From e4f2797e01231d46b85b5ee9d975e5bec9513ee2 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sat, 26 Feb 2022 13:49:35 +0300 Subject: fix(tazjin/emacs): Set defaults for multiple-cursor hydra commands Change-Id: Ic07ed0d507ffd112f46953efbf6554b93a208671 Reviewed-on: https://cl.tvl.fyi/c/depot/+/5325 Reviewed-by: tazjin Autosubmit: tazjin Tested-by: BuildkiteCI --- users/tazjin/emacs/config/functions.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'users/tazjin') diff --git a/users/tazjin/emacs/config/functions.el b/users/tazjin/emacs/config/functions.el index ba7301e794..602809138e 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) - ("" mmlte--up "Mark previous like this") + ("" mc/mmlte--up "Mark previous like this") ("" mc/mmlte--down "Mark next like this") ("" 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." -- cgit 1.4.1