From f705206452aa68f9751554120d714e46d1b6f6fd Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Fri, 30 Jul 2021 18:50:55 +0530
Subject: [PATCH] [hydra] extend external hydra, use it in more hydras

---
 init.org | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

diff --git a/init.org b/init.org
index 01ce5ce..bddf6e0 100644
--- a/init.org
+++ b/init.org
@@ -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