contrapunctus
/
dotemacs
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[hydra] create help hydra

This commit is contained in:
contrapunctus 2021-07-31 20:34:44 +05:30
parent f238a03085
commit 8b618e5f61
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
init.org
View File

@ -1377,6 +1377,16 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("o" (info "(org)") "Org")
("g" (info "(guile)") "Guile"))
#+END_SRC
*** Help
#+BEGIN_SRC emacs-lisp
(defhydra my-help-hydra (:color blue)
"Help:"
("l" find-library "library")
("v" describe-variable "variable")
("f" describe-function "function")
("k" describe-key "key")
("h" helpful-at-point "here"))
#+END_SRC
*** General
#+BEGIN_SRC emacs-lisp
(defhydra contrapunctus-general-hydra (:color blue)
@ -1394,7 +1404,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("E" toggle-debug-on-error "tdoe")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1457,7 +1467,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("D" (cp-insert-timestamp t) "date")
("E" toggle-debug-on-error "tdoe")
("G" contrapunctus-general-hydra/body "up")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1526,7 +1536,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("r" ielm "REPL")
("E" cp-el-debug/body "Debug")
("e" cp-el-eval/body "Eval")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("j" xref-find-definitions "Jump to definition")
("J" org-babel-tangle-jump-to-org "Jump to definition (Org)")
("t" (contrapunctus-el-test/body) "Test")
@ -1541,7 +1551,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1595,7 +1605,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1646,7 +1656,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1678,7 +1688,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("D" (cp-insert-timestamp t) "date")
("E" toggle-debug-on-error "tdoe")
("G" contrapunctus-general-hydra/body "up")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1709,7 +1719,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")
@ -1739,7 +1749,7 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("h" helpful-at-point "Help")
("h" my-help-hydra/body "Help")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill")