From f5cc186adb74013611928699d7923b5e9f454526 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 27 Jan 2018 18:13:16 +0100 Subject: [PATCH] =?UTF-8?q?[Hydra]=20Move=20rectangle=20hydra=20to=20separ?= =?UTF-8?q?ate=20=E2=80=98use-package=E2=80=99=20declaration?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- init.el | 64 ++++++++++++++++++++++++++++----------------------------- 1 file changed, 32 insertions(+), 32 deletions(-) diff --git a/init.el b/init.el index d16b0f2..2fcb9f2 100644 --- a/init.el +++ b/init.el @@ -529,6 +529,36 @@ (use-package server :commands (server-running-p server-start)) +(use-package rect + :commands (hydra-rectangle/body) + :config + (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1) + :color pink + :post (deactivate-mark)) + " + ^_k_^ _d_elete _s_tring +_h_ _l_ _o_k _y_ank + ^_j_^ _n_ew-copy _r_eset +^^^^ _e_xchange _u_ndo +^^^^ ^ ^ _p_aste +" + ("h" backward-char nil) + ("l" forward-char nil) + ("k" previous-line nil) + ("j" next-line nil) + ("n" copy-rectangle-as-kill nil) + ("d" delete-rectangle nil) + ("r" (if (region-active-p) + (deactivate-mark) + (rectangle-mark-mode 1)) + nil) + ("y" yank-rectangle nil) + ("u" undo nil) + ("s" string-rectangle nil) + ("p" kill-rectangle nil) + ("e" rectangle-exchange-point-and-mark nil) + ("o" nil nil))) + ;; * Some essential packages @@ -571,10 +601,8 @@ (use-package hydra :commands (defhydra hydra-toggle/body - hydra-zoom/body - hydra-rectangle/body) + hydra-zoom/body) :config - (defhydra hydra-toggle (:color blue) "toggle" ("c" column-number-mode "column") @@ -589,35 +617,7 @@ (defhydra hydra-zoom (:color red) "zoom" ("g" text-scale-increase "increase") - ("l" text-scale-decrease "decrease")) - - ;; rectangle mode - (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1) - :color pink - :post (deactivate-mark)) - " - ^_k_^ _d_elete _s_tring -_h_ _l_ _o_k _y_ank - ^_j_^ _n_ew-copy _r_eset -^^^^ _e_xchange _u_ndo -^^^^ ^ ^ _p_aste -" - ("h" backward-char nil) - ("l" forward-char nil) - ("k" previous-line nil) - ("j" next-line nil) - ("n" copy-rectangle-as-kill nil) - ("d" delete-rectangle nil) - ("r" (if (region-active-p) - (deactivate-mark) - (rectangle-mark-mode 1)) - nil) - ("y" yank-rectangle nil) - ("u" undo nil) - ("s" string-rectangle nil) - ("p" kill-rectangle nil) - ("e" rectangle-exchange-point-and-mark) - ("o" nil nil))) + ("l" text-scale-decrease "decrease"))) (use-package magit :commands (magit-status)