[hydra] make a heading for each hydra

init.org

@@ -800,7 +800,7 @@ Add these common operations to the hydra -
 #+BEGIN_SRC emacs-lisp
 (use-package hydra :commands defhydra)
 #+END_SRC
-
+*** Line display
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-line-display-hydra (:color red)
   "Line display"
@@ -809,7 +809,7 @@ Add these common operations to the hydra -
   ("f" visual-fill-column-mode "visual-fill-column")
   ("a" adaptive-wrap-prefix-mode "adaptive-prefix-wrap"))
 #+END_SRC
-
+*** Window
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-window-hydra (:color red)
   "Window"
@@ -822,7 +822,7 @@ Add these common operations to the hydra -
   ("l" enlarge-window-horizontally "increase width")
   ("k" shrink-window-horizontally "decrease width"))
 #+END_SRC
-
+*** General
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-general-hydra (:color blue)
   "What command?"
@@ -830,8 +830,10 @@ Add these common operations to the hydra -
   ("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")
 
+  ("h" helpful-at-point "Help")
   ("i" (find-file "~/.emacs.d/init.org") "open init")
   ("d" dired-jump "dired-jump")
   ("u" find-file "new")
@@ -844,29 +846,7 @@ Add these common operations to the hydra -
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq"))
 #+END_SRC
-
-#+BEGIN_SRC emacs-lisp
-(defhydra cp-org-block (:color blue)
-  "Org source block"
-  ("e" (cp-org-insert-src "emacs-lisp") "Emacs Lisp"))
-#+END_SRC
-
-#+BEGIN_SRC emacs-lisp
-(defhydra cp-org-nav (:color red)
-  "Navigation"
-  ("i" org-previous-visible-heading "previous heading")
-  ("o" org-next-visible-heading "next heading")
-  ("j" outline-up-heading "up heading")
-  (";" outline-down-heading "down heading")
-  ("k" org-backward-heading-same-level "backward heading")
-  ("l" org-forward-heading-same-level "forward heading")
-
-  ("I" org-drag-element-backward "drag backward")
-  ("O" org-drag-element-forward "drag forward")
-  ("J" org-promote-subtree "promote")
-  (":" org-demote-subtree "demote"))
-#+END_SRC
-
+*** org
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-org (:color blue)
   "Org"
@@ -886,20 +866,42 @@ Add these common operations to the hydra -
   ("m" magit-status "Magit")
   ("G" contrapunctus-general-hydra/body "up"))
 #+END_SRC
+**** org block
+#+BEGIN_SRC emacs-lisp
+(defhydra cp-org-block (:color blue)
+  "Org source block"
+  ("e" (cp-org-insert-src "emacs-lisp") "Emacs Lisp"))
+#+END_SRC
+**** org navigation
+#+BEGIN_SRC emacs-lisp
+(defhydra cp-org-nav (:color red)
+  "Navigation"
+  ("c" org-previous-visible-heading "previous heading")
+  ("r" org-next-visible-heading "next heading")
+  ("h" outline-up-heading "up heading")
+  ("s" outline-down-heading "down heading")
+  ("t" org-backward-heading-same-level "backward heading")
+  ("n" org-forward-heading-same-level "forward heading")
 
+  ("C" org-drag-element-backward "drag backward")
+  ("R" org-drag-element-forward "drag forward")
+  ("H" org-promote-subtree "promote")
+  ("S" org-demote-subtree "demote"))
+#+END_SRC
+*** eval
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-el-eval (:color blue)
   ("b" eval-buffer "buffer")
   ("e" eval-defun  "defun")
   ("l" eval-last-sexp "last sexp"))
 #+END_SRC
-
+*** unit testing
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-el-test (:color blue)
   ("e" (cp/compile-project "Cask" "cask exec buttercup -L . --traceback pretty") "buttercup")
   ("r" ert  "ert"))
 #+END_SRC
-
+*** Emacs Lisp
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-el (:color blue)
   "Emacs Lisp"
@@ -925,19 +927,19 @@ Add these common operations to the hydra -
   ("Q" toggle-debug-on-quit "tdoq")
   ("G" contrapunctus-programming-hydra/body "up"))
 #+END_SRC
-
+*** eval
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-cl-eval (:color blue)
   ("b" slime-eval-buffer "buffer")
   ("e" slime-eval-defun  "defun"))
 #+END_SRC
-
+*** documentation
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-cl-doc (:color blue)
   ("d" slime-documentation "slime")
   ("e" slime-documentation-lookup "CLHS"))
 #+END_SRC
-
+*** Common Lisp
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-cl (:color blue)
   "Common Lisp"
@@ -957,13 +959,14 @@ Add these common operations to the hydra -
   ("m" magit-status "Magit")
   ("G" contrapunctus-programming-hydra/body "up"))
 #+END_SRC
-
+*** Scheme
+**** eval
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-scm-eval (:color blue)
   ("b" geiser-eval-buffer "buffer")
   ("e" geiser-eval-definition "defun"))
 #+END_SRC
-
+**** CHICKEN Scheme
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-cs (:color blue)
   "CHICKEN Scheme"
@@ -981,7 +984,7 @@ Add these common operations to the hydra -
   ("m" magit-status "Magit")
   ("G" contrapunctus-programming-hydra/body "up"))
 #+END_SRC
-
+**** Guile
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-guile (:color blue)
   "Guile"
@@ -999,7 +1002,7 @@ Add these common operations to the hydra -
   ("m" magit-status "Magit")
   ("G" contrapunctus-programming-hydra/body "up"))
 #+END_SRC
-
+*** Lilypond
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-ly (:color blue)
   "Lilypond"
@@ -1018,7 +1021,7 @@ Add these common operations to the hydra -
   ("Q" toggle-debug-on-quit "tdoq")
   ("G" contrapunctus-programming-hydra/body "up"))
 #+END_SRC
-
+*** Prolog
 #+BEGIN_SRC emacs-lisp
 (defhydra cp-prolog (:color blue)
   "Prolog"
@@ -1035,7 +1038,7 @@ Add these common operations to the hydra -
   ("m" magit-status "Magit")
   ("G" contrapunctus-programming-hydra/body "up"))
 #+END_SRC
-
+*** Programming
 #+BEGIN_SRC emacs-lisp
 (defhydra contrapunctus-programming-hydra (:color blue)
   "Which language?"