Add help hydra to comint hydra

This commit is contained in:
contrapunctus 2022-02-06 17:39:30 +05:30
parent 2eef05cb80
commit 36759d7dfe
1 changed files with 7 additions and 6 deletions

View File

@ -1052,23 +1052,24 @@ Don't try to check if there are files with a certain extension...it will lead to
*** SQL
#+BEGIN_SRC emacs-lisp
(defhydra my-sql-eval-hydra (:color blue)
"Eval"
("e" sql-send-paragraph "paragraph")
("b" sql-send-buffer "buffer"))
(my-defhydra my-sql-hydra (:color blue)
"SQL"
("r" sql-sqlite "REPL")
("e" my-sql-eval-hydra/body "eval")
("h" my-help-hydra/body "Help"))
(defhydra my-sql-eval-hydra (:color blue)
"Eval"
("e" sql-send-paragraph "paragraph")
("b" sql-send-buffer "buffer"))
#+END_SRC
*** comint
#+BEGIN_SRC emacs-lisp
(my-defhydra my-comint-hydra (:color blue)
"comint"
("v" my-comint-nav-hydra/body "Set package"))
("v" my-comint-nav-hydra/body "Navigation")
("h" my-help-hydra/body "Help"))
(defhydra my-comint-nav-hydra (:color red)
"Navigation"