[Init] Move definition of hydras into main init function
This commit is contained in:
parent
027b652bfd
commit
db52cf12ab
118
init.el
118
init.el
|
@ -115,6 +115,65 @@
|
|||
(add-hook 'prog-mode-hook #'electric-indent-local-mode))
|
||||
(add-hook 'lisp-mode-hook #'lispy-mode)
|
||||
|
||||
;; Hydras
|
||||
|
||||
(defhydra hydra-toggle (:color blue)
|
||||
"toggle"
|
||||
("c" column-number-mode "column")
|
||||
("d" toggle-debug-on-error "debug-on-error")
|
||||
("e" toggle-debug-on-error "debug-on-error")
|
||||
("f" auto-fill-mode "auto-fill")
|
||||
("l" toggle-truncate-lines "truncate lines")
|
||||
("q" toggle-debug-on-quit "debug-on-quit")
|
||||
("r" read-only-mode "read-only"))
|
||||
|
||||
;; zooming with single keystrokes (from oremacs)
|
||||
(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)
|
||||
("e" ora-ex-point-mark 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)
|
||||
("o" nil nil))
|
||||
|
||||
(defhydra hydra-ispell (:color blue)
|
||||
"ispell"
|
||||
("g" (lambda ()
|
||||
(interactive)
|
||||
(setq ispell-dictionary "de_DE")
|
||||
(ispell-change-dictionary "de_DE"))
|
||||
"german")
|
||||
("e" (lambda ()
|
||||
(interactive)
|
||||
(setq ispell-dictionary "en_US")
|
||||
(ispell-change-dictionary "en_US"))
|
||||
"english"))
|
||||
|
||||
;; Top-Level Keybindings
|
||||
|
||||
(bind-key "<XF86Back>" #'winner-undo)
|
||||
|
@ -522,64 +581,7 @@
|
|||
hydra-zoom/body
|
||||
hydra-rectangle/body
|
||||
hydra-ispell/body
|
||||
defhydra)
|
||||
:config (progn
|
||||
(defhydra hydra-toggle (:color blue)
|
||||
"toggle"
|
||||
("c" column-number-mode "column")
|
||||
("d" toggle-debug-on-error "debug-on-error")
|
||||
("e" toggle-debug-on-error "debug-on-error")
|
||||
("f" auto-fill-mode "auto-fill")
|
||||
("l" toggle-truncate-lines "truncate lines")
|
||||
("q" toggle-debug-on-quit "debug-on-quit")
|
||||
("r" read-only-mode "read-only"))
|
||||
|
||||
;; zooming with single keystrokes (from oremacs)
|
||||
(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)
|
||||
("e" ora-ex-point-mark 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)
|
||||
("o" nil nil))
|
||||
|
||||
(defhydra hydra-ispell (:color blue)
|
||||
"ispell"
|
||||
("g" (lambda ()
|
||||
(interactive)
|
||||
(setq ispell-dictionary "de_DE")
|
||||
(ispell-change-dictionary "de_DE"))
|
||||
"german")
|
||||
("e" (lambda ()
|
||||
(interactive)
|
||||
(setq ispell-dictionary "en_US")
|
||||
(ispell-change-dictionary "en_US"))
|
||||
"english"))))
|
||||
defhydra))
|
||||
|
||||
(use-package magit
|
||||
:commands (magit-status)
|
||||
|
|
Loading…
Reference in New Issue