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

[hydra] extend external hydra, use it in more hydras

This commit is contained in:
contrapunctus 2021-07-30 18:50:55 +05:30
parent 5a844c00ce
commit f705206452
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
init.org
View File

@ -1407,16 +1407,19 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("u" find-file "new")
("U" launch-file "launch-file")
("v" find-alternate-file "revert")
("w" contrapunctus-window-hydra/body "window"))
("w" contrapunctus-window-hydra/body "window")
("x" my-external-hydra/body "external"))
#+END_SRC
*** external applications
#+BEGIN_SRC emacs-lisp
(defhydra my-external-hydra (:color red)
"What application?"
("g" (my-start-process "gajim") "Gajim")
("t"
(my-start-process "/media/data/anon/ext/tor-browser_en-US/Browser/firefox.real" "tor-browser")
"Tor Browser"))
("b"
(my-start-process "/media/data/anon/ext/tor-browser_en-US/Browser/start-tor-browser" "tor-browser")
"Tor Browser")
("k" (my-start-process "keepassxc") "KeePassXC")
("t" (my-start-process "xfce4-terminal") "terminal"))
#+END_SRC
*** org
#+BEGIN_SRC emacs-lisp
@ -1451,7 +1454,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("u" find-file "new")
("U" launch-file "launch-file")
("v" find-alternate-file "revert")
("w" contrapunctus-window-hydra/body "window"))
("w" contrapunctus-window-hydra/body "window")
("x" my-external-hydra/body "external"))
#+END_SRC
**** org block
#+BEGIN_SRC emacs-lisp
@ -1521,7 +1525,6 @@ _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")
("E" toggle-debug-on-error "tdoe")
("h" helpful-at-point "Help")
("G" contrapunctus-programming-hydra/body "up")
("i" (find-file "~/.emacs.d/init.org") "open init")
@ -1536,7 +1539,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
("u" find-file "new")
("U" launch-file "launch-file")
("v" find-alternate-file "revert")
("w" contrapunctus-window-hydra/body "window"))
("w" contrapunctus-window-hydra/body "window")
("x" my-external-hydra/body "external"))
#+END_SRC
**** eval
#+BEGIN_SRC emacs-lisp