exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Hydra] Move custom hydras to ‘use-package’ declaration

Browse Source
This commit is contained in:
Daniel Borchmann 2018-01-27 17:57:36 +01:00
parent e459d534bf
commit 7d8abe0e50
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 40 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
init.el
View File

@ -568,50 +568,55 @@
(use-package db-emacsclient) (use-package db-emacsclient)
(use-package hydra) (use-package hydra
:commands (defhydra
hydra-toggle/body
hydra-zoom/body
hydra-rectangle/body)
:config
(defhydra hydra-toggle (:color blue) (defhydra hydra-toggle (:color blue)
"toggle" "toggle"
("c" column-number-mode "column") ("c" column-number-mode "column")
("d" toggle-debug-on-error "debug-on-error") ("d" toggle-debug-on-error "debug-on-error")
("e" toggle-debug-on-error "debug-on-error") ("e" toggle-debug-on-error "debug-on-error")
("f" auto-fill-mode "auto-fill") ("f" auto-fill-mode "auto-fill")
("l" toggle-truncate-lines "truncate lines") ("l" toggle-truncate-lines "truncate lines")
("q" toggle-debug-on-quit "debug-on-quit") ("q" toggle-debug-on-quit "debug-on-quit")
("r" read-only-mode "read-only")) ("r" read-only-mode "read-only"))
;; zooming with single keystrokes (from oremacs) ;; zooming with single keystrokes (from oremacs)
(defhydra hydra-zoom (:color red) (defhydra hydra-zoom (:color red)
"zoom" "zoom"
("g" text-scale-increase "increase") ("g" text-scale-increase "increase")
("l" text-scale-decrease "decrease")) ("l" text-scale-decrease "decrease"))
;; rectangle mode ;; rectangle mode
(defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1) (defhydra hydra-rectangle (:body-pre (rectangle-mark-mode 1)
:color pink :color pink
:post (deactivate-mark)) :post (deactivate-mark))
" "
^_k_^ _d_elete _s_tring ^_k_^ _d_elete _s_tring
_h_ _l_ _o_k _y_ank _h_ _l_ _o_k _y_ank
^_j_^ _n_ew-copy _r_eset ^_j_^ _n_ew-copy _r_eset
^^^^ _e_xchange _u_ndo ^^^^ _e_xchange _u_ndo
^^^^ ^ ^ _p_aste ^^^^ ^ ^ _p_aste
" "
("h" backward-char nil) ("h" backward-char nil)
("l" forward-char nil) ("l" forward-char nil)
("k" previous-line nil) ("k" previous-line nil)
("j" next-line nil) ("j" next-line nil)
("n" copy-rectangle-as-kill nil) ("n" copy-rectangle-as-kill nil)
("d" delete-rectangle nil) ("d" delete-rectangle nil)
("r" (if (region-active-p) ("r" (if (region-active-p)
(deactivate-mark) (deactivate-mark)
(rectangle-mark-mode 1)) (rectangle-mark-mode 1))
nil) nil)
("y" yank-rectangle nil) ("y" yank-rectangle nil)
("u" undo nil) ("u" undo nil)
("s" string-rectangle nil) ("s" string-rectangle nil)
("p" kill-rectangle nil) ("p" kill-rectangle nil)
("o" nil nil)) ("o" nil nil)))
(use-package magit (use-package magit
:commands (magit-status) :commands (magit-status)