[hydra] make unified applications hydra

init.org

@@ -1364,18 +1364,15 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-general-hydra (:color blue)
   "What command?"
-  ("G" elpher "elpher")
   ("O" cp-org/body "org")
   ("p" contrapunctus-programming-hydra-dispatch-language "programming")
-  ("P" list-packages "packages")
-  ("e" contrapunctus-emms-hydra/body "emms")
-  ("j" cp-jabber/body "Jabber")
-
   ("0" delete-window "delete this" :color red)
   ("1" delete-other-windows "delete others" :color red)
   ("2" split-window-below "split below" :color red)
   ("3" split-window-right "split right" :color red)
-  ("c" chronometrist "chronometrist")
+
+  ("a" my-app-hydra/body "applications")
+  ("z" my-app-hydra/body "applications")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
@@ -1384,8 +1381,6 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
   ("k" (kill-buffer (current-buffer)) "kill")
-  ("l" proced "list processes")
-  ("m" magit-status "magit")
   ("N" contrapunctus-line-display-hydra/body "line display")
   ("o" save-buffer "save")
   ("Q" toggle-debug-on-quit "tdoq")
@@ -1394,13 +1389,23 @@ _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")
-  ("x" my-external-hydra/body "external"))
+  ("w" contrapunctus-window-hydra/body "window"))
 #+END_SRC
-*** external applications
+*** applications
 #+BEGIN_SRC emacs-lisp
-(defhydra my-external-hydra (:color red)
+(defhydra my-app-hydra (:color red)
   "What application?"
+  ;; built-in
+  ("c" chronometrist "chronometrist")
+  ("e" elpher "elpher")
+  ("l" proced "list processes")
+  ("m" magit-status "magit")
+  ("p" list-packages "packages")
+  ;; less-used
+  ("J" cp-jabber/body "Jabber")
+  ("E" contrapunctus-emms-hydra/body "emms")
+
+  ;; external
   ("g" (my-start-app-or-switch "gajim" nil t) "Gajim")
   ("b" (my-start-app-or-switch "/media/data/anon/ext/tor-browser_en-US/Browser/start-tor-browser" "Tor Browser")
    "Tor Browser")
@@ -1422,7 +1427,8 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("1" delete-other-windows "delete others" :color red)
   ("2" split-window-below "split below" :color red)
   ("3" split-window-right "split right" :color red)
-  ("c" chronometrist "chronometrist")
+  ("a" my-app-hydra/body "applications")
+  ("z" my-app-hydra/body "applications")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
@@ -1432,8 +1438,6 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
   ("k" (kill-buffer (current-buffer)) "kill")
-  ("l" proced "list processes")
-  ("m" magit-status "magit")
   ("N" contrapunctus-line-display-hydra/body "line display")
   ("o" save-buffer "save")
   ("Q" toggle-debug-on-quit "tdoq")
@@ -1442,8 +1446,7 @@ _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")
-  ("x" my-external-hydra/body "external"))
+  ("w" contrapunctus-window-hydra/body "window"))
 #+END_SRC
 **** org block
 #+BEGIN_SRC emacs-lisp
@@ -1509,17 +1512,15 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("1" delete-other-windows "delete others" :color red)
   ("2" split-window-below "split below" :color red)
   ("3" split-window-right "split right" :color red)
-  ("c" chronometrist "chronometrist")
+  ("a" my-app-hydra/body "applications")
+  ("z" my-app-hydra/body "applications")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
   ("h" helpful-at-point "Help")
-  ("G" contrapunctus-programming-hydra/body "up")
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
   ("k" (kill-buffer (current-buffer)) "kill")
-  ("l" proced "list processes")
-  ("m" magit-status "Magit")
   ("N" contrapunctus-line-display-hydra/body "line display")
   ("o" save-buffer "save")
   ("Q" toggle-debug-on-quit "tdoq")
@@ -1528,8 +1529,7 @@ _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")
-  ("x" my-external-hydra/body "external"))
+  ("w" contrapunctus-window-hydra/body "window"))
 #+END_SRC
 **** eval
 #+BEGIN_SRC emacs-lisp
@@ -1565,18 +1565,15 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("1" delete-other-windows "delete others" :color red)
   ("2" split-window-below "split below" :color red)
   ("3" split-window-right "split right" :color red)
-  ("c" chronometrist "chronometrist")
+  ("a" my-app-hydra/body "applications")
+  ("z" my-app-hydra/body "applications")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
-  ("E" toggle-debug-on-error "tdoe")
-  ("G" contrapunctus-general-hydra/body "up")
   ("h" helpful-at-point "Help")
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
   ("k" (kill-buffer (current-buffer)) "kill")
-  ("l" proced "list processes")
-  ("m" magit-status "magit")
   ("N" contrapunctus-line-display-hydra/body "line display")
   ("o" save-buffer "save")
   ("Q" toggle-debug-on-quit "tdoq")
@@ -1618,18 +1615,15 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("1" delete-other-windows "delete others" :color red)
   ("2" split-window-below "split below" :color red)
   ("3" split-window-right "split right" :color red)
-  ("c" chronometrist "chronometrist")
+  ("a" my-app-hydra/body "applications")
+  ("z" my-app-hydra/body "applications")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
-  ("E" toggle-debug-on-error "tdoe")
-  ("G" contrapunctus-general-hydra/body "up")
   ("h" helpful-at-point "Help")
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
   ("k" (kill-buffer (current-buffer)) "kill")
-  ("l" proced "list processes")
-  ("m" magit-status "magit")
   ("N" contrapunctus-line-display-hydra/body "line display")
   ("o" save-buffer "save")
   ("Q" toggle-debug-on-quit "tdoq")
@@ -1682,17 +1676,15 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("1" delete-other-windows "delete others" :color red)
   ("2" split-window-below "split below" :color red)
   ("3" split-window-right "split right" :color red)
-  ("c" chronometrist "chronometrist")
+  ("a" my-app-hydra/body "applications")
+  ("z" my-app-hydra/body "applications")
   ("C" contrapunctus-mc-hydra/body "multiple cursors")
   ("d" dired-jump "dired-jump")
   ("D" (cp-insert-timestamp t) "date")
-  ("E" toggle-debug-on-error "tdoe")
-  ("G" contrapunctus-general-hydra/body "up")
   ("h" helpful-at-point "Help")
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("I" contrapunctus-info-hydra/body "Info")
   ("k" (kill-buffer (current-buffer)) "kill")
-  ("m" magit-status "magit")
   ("N" contrapunctus-line-display-hydra/body "line display")
   ("o" save-buffer "save")
   ("Q" toggle-debug-on-quit "tdoq")