about summary refs log tree commit diff
path: root/users/tazjin
diff options
context:
space:
mode:
authorVincent Ambo <mail@tazj.in>2022-02-26T10·49+0300
committerclbot <clbot@tvl.fyi>2022-02-26T10·52+0000
commite4f2797e01231d46b85b5ee9d975e5bec9513ee2 (patch)
tree9a131333d3d93ad6be0597d1b23a5add98e5dfd1 /users/tazjin
parentb8660386eb481a14345ed86719f2a72d5090db0c (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/tazjin')
-rw-r--r--users/tazjin/emacs/config/functions.el12
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."