[hydra] make hydras more uniform

This commit is contained in:
contrapunctus 2021-07-21 12:13:48 +05:30
parent b9ed987fd4
commit e256fd115d
1 changed files with 27 additions and 16 deletions

View File

@ -1461,20 +1461,22 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("1" delete-other-windows "delete others" :color red)
("2" split-window-below "split below" :color red)
("3" split-window-right "split right" :color red)
("c" chronometrist "chronometrist")
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("G" contrapunctus-programming-hydra/body "up")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("d" dired-jump "dired-jump")
("u" find-file "new")
("o" save-buffer "save")
("k" (kill-buffer (current-buffer)) "kill")
("N" contrapunctus-line-display-hydra/body "line display")
("w" contrapunctus-window-hydra/body "window")
("c" chronometrist "chronometrist")
("m" magit-status "Magit")
("G" contrapunctus-programming-hydra/body "up")
("N" contrapunctus-line-display-hydra/body "line display")
("o" save-buffer "save")
("s" imenu-list "sidebar")
("T" cp-insert-timestamp "timestamp")
("D" (cp-insert-timestamp t) "date"))
("u" find-file "new")
("v" find-alternate-file "revert")
("w" contrapunctus-window-hydra/body "window"))
#+END_SRC
**** eval
#+BEGIN_SRC emacs-lisp
@ -1506,16 +1508,17 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("e" cp-cl-eval/body "Eval")
("r" slime "REPL")
("i" (find-file "~/.emacs.d/init.org") "open init")
("D" dired-jump "dired-jump")
("u" find-file "new")
("o" save-buffer "save")
("k" (kill-buffer (current-buffer)) "kill")
("N" contrapunctus-line-display-hydra/body "line display")
("w" contrapunctus-window-hydra/body "window")
("c" chronometrist "chronometrist")
("D" dired-jump "dired-jump")
("G" contrapunctus-programming-hydra/body "up")
("i" (find-file "~/.emacs.d/init.org") "open init")
("k" (kill-buffer (current-buffer)) "kill")
("m" magit-status "Magit")
("G" contrapunctus-programming-hydra/body "up"))
("N" contrapunctus-line-display-hydra/body "line display")
("o" save-buffer "save")
("u" find-file "new")
("v" find-alternate-file "revert")
("w" contrapunctus-window-hydra/body "window"))
#+END_SRC
**** eval
#+BEGIN_SRC emacs-lisp
@ -1579,6 +1582,10 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
"Lilypond"
("b" (cp/compile-project "main.ly" "./mkly dev") "Compile")
("0" delete-window "delete this" :color red)
("1" delete-other-windows "delete others" :color red)
("2" split-window-below "split below" :color red)
("3" split-window-right "split right" :color red)
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("d" dired-jump "dired-jump")
@ -1622,6 +1629,10 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("O" cp-org/body "Org")
("p" cp-prolog/body "Prolog")
("0" delete-window "delete this" :color red)
("1" delete-other-windows "delete others" :color red)
("2" split-window-below "split below" :color red)
("3" split-window-right "split right" :color red)
("i" (find-file "~/.emacs.d/init.org") "open init")
("d" dired-jump "dired-jump")
("u" find-file "new")