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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
init.org
View File

@ -1052,23 +1052,24 @@ Don't try to check if there are files with a certain extension...it will lead to
*** SQL *** SQL
#+BEGIN_SRC emacs-lisp #+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) (my-defhydra my-sql-hydra (:color blue)
"SQL" "SQL"
("r" sql-sqlite "REPL") ("r" sql-sqlite "REPL")
("e" my-sql-eval-hydra/body "eval") ("e" my-sql-eval-hydra/body "eval")
("h" my-help-hydra/body "Help")) ("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 #+END_SRC
*** comint *** comint
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
(my-defhydra my-comint-hydra (:color blue) (my-defhydra my-comint-hydra (:color blue)
"comint" "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) (defhydra my-comint-nav-hydra (:color red)
"Navigation" "Navigation"