From 7bf9df4c836b9e60e91de06a01ed7aabc1addfc7 Mon Sep 17 00:00:00 2001
From: contrapunctus <contrapunctus@disroot.org>
Date: Mon, 16 Aug 2021 10:28:15 +0530
Subject: [PATCH] [hydra] make Common Lisp-specific help hydra

---
 init.org | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

diff --git a/init.org b/init.org
index 0a43c1d..a9ceeb7 100644
--- a/init.org
+++ b/init.org
@@ -1409,7 +1409,6 @@ 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")
-    ("h" my-help-hydra/body "Help")
     ("i" (find-file "~/.emacs.d/init.org") "open init")
     ("I" contrapunctus-info-hydra/body "Info")
     ("k" (kill-buffer (current-buffer)) "kill" :color red)
@@ -1514,6 +1513,7 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
 (my-defhydra contrapunctus-general-hydra (:color blue)
   "What command?"
   ("b" compile "compile")
+  ("h" my-help-hydra/body "Help")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq"))
 #+END_SRC
@@ -1568,6 +1568,7 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("b" my-compile-org-lp "compile")
   ("C-b" contrapunctus-async-tangle "babel-tangle")
 
+  ("h" my-help-hydra/body "Help")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq"))
 
@@ -1624,6 +1625,7 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   ("C-b" contrapunctus-async-tangle "babel-tangle")
   ("e" my-elisp-hydra-eval/body "Eval")
   ("E" my-elisp-hydra-debug/body "Debug")
+  ("h" my-help-hydra/body "Help")
   ("j" xref-find-definitions "Jump to definition")
   ("J" org-babel-tangle-jump-to-org "Jump to definition (Org)")
   ("r" ielm "REPL")
@@ -1665,23 +1667,24 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
 (my-defhydra my-cl-hydra (:color blue)
   "Common Lisp"
   ("C" slime-connect "connect")
-  ("d" my-cl-hydra-doc/body "Documentation")
+  ("h" my-cl-help-hydra/body "Documentation")
   ("e" my-cl-hydra-eval/body "Eval")
+  ("E" toggle-debug-on-error "tdoe")
+  ("Q" toggle-debug-on-quit "tdoq")
   ("r" slime "REPL"))
 #+END_SRC
 **** eval
 #+BEGIN_SRC emacs-lisp
 (defhydra my-cl-hydra-eval (:color blue)
   ("b" slime-eval-buffer "buffer")
-  ("e" slime-eval-defun  "defun")
-  ("E" toggle-debug-on-error "tdoe")
-  ("Q" toggle-debug-on-quit "tdoq"))
+  ("e" slime-eval-defun  "defun"))
 #+END_SRC
 **** documentation
 #+BEGIN_SRC emacs-lisp
-(defhydra my-cl-hydra-doc (:color blue)
-  ("d" slime-documentation "slime")
-  ("e" slime-documentation-lookup "CLHS"))
+(defhydra my-cl-help-hydra (:color blue)
+  ("s" slime-documentation "slime")
+  ("h" slime-documentation-lookup "CLHS")
+  ("m" man "man page"))
 #+END_SRC
 *** Scheme
 **** eval
@@ -1699,6 +1702,8 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   "CHICKEN Scheme"
   ("e" cp-scm-eval/body "Eval")
   ("r" run-chicken "REPL")
+
+  ("h" my-help-hydra/body "Help")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq"))
 #+END_SRC
@@ -1708,6 +1713,8 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
   "Guile"
   ("e" cp-scm-eval/body "Eval")
   ("r" run-guile "REPL")
+
+  ("h" my-help-hydra/body "Help")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq"))
 #+END_SRC
@@ -1716,6 +1723,8 @@ _u_: next word       ^_l_: edit lines^      _s_: next whole symbol
 (my-defhydra my-lilypond-hydra (:color blue)
   "Lilypond"
   ("b" (my-compile-project "main.ly" "./mkly dev") "Compile")
+
+  ("h" my-help-hydra/body "Help")
   ("E" toggle-debug-on-error "tdoe")
   ("Q" toggle-debug-on-quit "tdoq"))
 #+END_SRC