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

Add comint navigation hydra

This commit is contained in:
contrapunctus 2022-01-24 20:58:51 +05:30
parent d348a2b4cc
commit 5b1c670b1b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
init.org
View File

@ -1027,6 +1027,7 @@ Don't try to check if there are files with a certain extension...it will lead to
((derived-mode-p 'org-mode) (my-org-hydra/body))
((derived-mode-p 'sh-mode) (my-shell-hydra/body))
((derived-mode-p 'sql-mode) (my-sql-hydra/body))
((derived-mode-p 'comint-mode) (my-comint-hydra/body))
(t (my-general-hydra/body))))
(use-package boon
@ -1036,7 +1037,7 @@ Don't try to check if there are files with a certain extension...it will lead to
(global-set-key (kbd "C-s") #'my-dispatch-hydra)
#+END_SRC
*** shell
*** shell script
#+BEGIN_SRC emacs-lisp
(my-defhydra my-shell-hydra (:color blue)
"Shell"
@ -1062,6 +1063,18 @@ Don't try to check if there are files with a certain extension...it will lead to
("h" my-help-hydra/body "Help"))
#+END_SRC
*** comint
#+BEGIN_SRC emacs-lisp
(my-defhydra my-comint-hydra (:color blue)
"comint"
("v" my-comint-nav-hydra/body "Set package"))
(defhydra my-comint-nav-hydra (:color red)
"Navigation"
("c" comint-previous-prompt "previous")
("r" comint-next-prompt "next"))
#+END_SRC
** marginalia
:PROPERTIES:
:CREATED: 2022-01-16T00:28:51+0530