[hydra] create search hydra

This commit is contained in:
contrapunctus 2021-08-17 14:58:15 +05:30
parent e1309d59b9
commit 65d8e8e954
1 changed files with 10 additions and 0 deletions

View File

@ -1412,6 +1412,7 @@ Add these common operations to the hydra -
("C" contrapunctus-mc-hydra/body "multiple cursors")
("d" dired-jump "dired-jump")
("D" (cp-insert-timestamp t) "date")
("f" my-search-hydra/body "find")
("i" (find-file "~/.emacs.d/init.org") "open init")
("I" contrapunctus-info-hydra/body "Info")
("k" (kill-buffer (current-buffer)) "kill" :color red)
@ -1511,6 +1512,15 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("h" helpful-at-point "here")
("m" man "man page"))
#+END_SRC
*** Search
#+BEGIN_SRC emacs-lisp
(defhydra my-search-hydra (:color blue)
"Search command:"
("f" find-dired "find-dired")
("g" grep "grep")
("a" ag "ag")
("h" find-grep "find-grep"))
#+END_SRC
*** General
#+BEGIN_SRC emacs-lisp
(my-defhydra contrapunctus-general-hydra (:color blue)