Fixed missing hydra include.
This commit is contained in:
106
README.org
106
README.org
@@ -671,6 +671,112 @@ looking for.
|
|||||||
(embark-collect-mode . consult-preview-at-point-mode))
|
(embark-collect-mode . consult-preview-at-point-mode))
|
||||||
#+end_src
|
#+end_src
|
||||||
|
|
||||||
|
* Hail Hydra?!
|
||||||
|
|
||||||
|
I find that [[https://github.com/abo-abo/hydra][Hydra]] is great for providing visual menus for tasks that might
|
||||||
|
otherwise be fairly unwieldy. I use them hydra's for windows, tabs, and a
|
||||||
|
few other things in the future perhaps.
|
||||||
|
|
||||||
|
** Tabs
|
||||||
|
|
||||||
|
Pretty simple tab hydra. Handles opening, closing, and simple navigation.
|
||||||
|
|
||||||
|
#+name: tab-hydra
|
||||||
|
#+begin_src emacs-lisp :tangle no
|
||||||
|
(defhydra hydra-tab (:color red :hint nil)
|
||||||
|
"
|
||||||
|
Movement^^ ^Modifier^
|
||||||
|
----------------------------------------------------------------
|
||||||
|
_h_ ← _n_ ew
|
||||||
|
_l_ → _c_ lose
|
||||||
|
"
|
||||||
|
("h" tab-previous)
|
||||||
|
("l" tab-next)
|
||||||
|
("n" tab-new)
|
||||||
|
("c" tab-close)
|
||||||
|
("SPC" nil))
|
||||||
|
(global-set-key (kbd "C-c t") 'hydra-tab/body)
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
** Windows
|
||||||
|
|
||||||
|
Quite a helpful window hydra. I cannot take credit for this. I copied it
|
||||||
|
from somewhere. When I find the link I'll add it here.
|
||||||
|
|
||||||
|
#+name: window-hydra
|
||||||
|
#+begin_src emacs-lisp :tangle no
|
||||||
|
(defhydra hydra-window (:color red :hint nil)
|
||||||
|
"
|
||||||
|
Movement^^ ^Split^ ^Switch^ ^Resize^
|
||||||
|
----------------------------------------------------------------
|
||||||
|
_h_ ← _v_ertical _b_uffer _q_ X←
|
||||||
|
_j_ ↓ _x_ horizontal _f_ind files _w_ X↓
|
||||||
|
_k_ ↑ _z_ undo _a_ce 1 _e_ X↑
|
||||||
|
_l_ → _Z_ reset _s_wap _r_ X→
|
||||||
|
_F_ollow _D_lt Other _S_ave max_i_mize
|
||||||
|
_SPC_ cancel _o_nly this _d_elete
|
||||||
|
"
|
||||||
|
("h" windmove-left )
|
||||||
|
("j" windmove-down )
|
||||||
|
("k" windmove-up )
|
||||||
|
("l" windmove-right )
|
||||||
|
("q" hydra-move-splitter-left)
|
||||||
|
("w" hydra-move-splitter-down)
|
||||||
|
("e" hydra-move-splitter-up)
|
||||||
|
("r" hydra-move-splitter-right)
|
||||||
|
("b" consult-buffer)
|
||||||
|
("f" consult-fd)
|
||||||
|
("F" follow-mode)
|
||||||
|
("a" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(ace-window 1)
|
||||||
|
(add-hook 'ace-window-end-once-hook
|
||||||
|
'hydra-window/body))
|
||||||
|
)
|
||||||
|
("v" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(split-window-right)
|
||||||
|
(windmove-right))
|
||||||
|
)
|
||||||
|
("x" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(split-window-below)
|
||||||
|
(windmove-down))
|
||||||
|
)
|
||||||
|
("s" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(ace-window 4)
|
||||||
|
(add-hook 'ace-window-end-once-hook
|
||||||
|
'hydra-window/body)))
|
||||||
|
("S" save-buffer)
|
||||||
|
("d" delete-window)
|
||||||
|
("D" (lambda ()
|
||||||
|
(interactive)
|
||||||
|
(ace-window 16)
|
||||||
|
(add-hook 'ace-window-end-once-hook
|
||||||
|
'hydra-window/body))
|
||||||
|
)
|
||||||
|
("o" delete-other-windows)
|
||||||
|
("i" ace-maximize-window)
|
||||||
|
("z" (progn
|
||||||
|
(winner-undo)
|
||||||
|
(setq this-command 'winner-undo))
|
||||||
|
)
|
||||||
|
("Z" winner-redo)
|
||||||
|
("SPC" nil))
|
||||||
|
(global-set-key (kbd "C-c w") 'hydra-window/body)
|
||||||
|
#+end_src
|
||||||
|
|
||||||
|
** Pulling it all together
|
||||||
|
|
||||||
|
#+begin_src emacs-lisp
|
||||||
|
(use-package hydra
|
||||||
|
:demand t
|
||||||
|
:config
|
||||||
|
<<tab-hydra>>
|
||||||
|
<<window-hydra>>)
|
||||||
|
#+end_src
|
||||||
|
|
||||||
* Buferlo
|
* Buferlo
|
||||||
|
|
||||||
The package itself sums it up best.
|
The package itself sums it up best.
|
||||||
|
|||||||
@@ -218,6 +218,8 @@ features.
|
|||||||
|
|
||||||
#+INCLUDE: "config/qol.org" :minlevel 1
|
#+INCLUDE: "config/qol.org" :minlevel 1
|
||||||
|
|
||||||
|
#+INCLUDE: "config/hydra.org" :minlevel 1
|
||||||
|
|
||||||
#+INCLUDE: "config/bufferlo.org" :minlevel 1
|
#+INCLUDE: "config/bufferlo.org" :minlevel 1
|
||||||
|
|
||||||
#+INCLUDE: "config/error.org" :minlevel 1
|
#+INCLUDE: "config/error.org" :minlevel 1
|
||||||
|
|||||||
Reference in New Issue
Block a user