Replace cc-isearch with my own pretty hydra

ha-config.org

@@ -711,10 +711,11 @@ While I grew up on =Control S=, I am liking the /mental model/ associated with t
     (:states 'normal "go" '("avy goto" . avy-goto-char-timer)
                      "s"  '("avy word" . avy-goto-subword-1))
 
-    :bind ("<f18>" . avy-goto-char-timer)
-          ("s-g"   . avy-goto-char-timer)
-          ("s-;"   . avy-next)
-          ("s-a"   . avy-prev))
+    :bind (("<f18>" . avy-goto-char-timer)
+           ("s-g"   . avy-goto-char-timer)
+           ("s-e"   . avy-next)
+           ("s-a"   . avy-prev)
+           :map isearch-mode-map ("s-g" . avy-isearch)))
 #+end_src
 *Note:* The links should be shorter near the point as opposed to starting from the top of the window.
 
@@ -775,15 +776,53 @@ Magnar Sveen's [[https://github.com/magnars/expand-region.el][expand-region]] pr
              "-" 'er/contract-region))
 #+end_src
 *** iSearch
-The built-in =isearch= is fantastically simple and useful, but the [[https://github.com/kickingvegas/cc-isearch-menu][cc-isearch-menu]] helps expose some /buried/ features.
+The built-in =isearch= is fantastically simple and useful, bound to ~C-s~, but why not bind searching for the current symbol?
 
-#+begin_src emacs-lisp
-  (use-package cc-isearch-menu
-    :straight (:host github :repo "kickingvegas/cc-isearch-menu")
-    :bind (:map isearch-mode-map ("s-g" . cc-isearch-menu-transient)))
+#+BEGIN_SRC emacs-lisp
+  (global-set-key (kbd "m-s m-s") 'isearch-forward-thing-at-point)
+#+END_SRC
+
+I like Charles Choi’s [[https://github.com/kickingvegas/casual][Casual Suite]], and his original [[https://github.com/kickingvegas/cc-isearch-menu][cc-isearch-menu]] was great at seeing the /buried/ features. I’ve duplicated the features using [[https://github.com/jerrypnz/major-mode-hydra.el][pretty-hydra]]. In the middle of a search, type ~⌘-s~ (Command-s), and menu of options I don’t remember appear.
+
+#+begin_src emacs-lisp :tangle no
+        (defvar ha-isearch--title (font-icons 'faicon "magnifying_glass"
+                                              :title "Search Options"))
+
+        (pretty-hydra-define isearch-mode
+          (:color amaranth :quit-key "C-s" :title ha-isearch--title)
+          ("Movement"
+           (("n" isearch-repeat-forward "Forward")
+            ("p" isearch-repeat-backward "Backward")
+            ("j" avy-isearch "Jump" :color blue))
+           "Expand"
+           ((">" isearch-yank-symbol-or-char "Full symbol")
+            ("z" isearch-yank-until-char "Until char")
+            ("$" isearch-yank-line "Full line"))
+           "Replace"
+           (("R" isearch-query-replace "Literal")
+            ("Q" isearch-query-replace-regexp "Regexp")
+            ("<return>" isearch-exit "Stay" :color blue))
+           "Toggles"
+           (("w" isearch-toggle-word "Word only" :toggle t)
+            ("s" isearch-toggle-symbol "Full symbol" :toggle t)
+            ("r" isearch-toggle-regexp "Regexp" :toggle t)
+            ("c" isearch-toggle-case-fold "Case Sensitive" :toggle t))
+           "Highlight"
+           (("H" isearch-highlight-regexp "Matches" :color blue)
+            ("L" isearch-highlight-lines-matching-regexp "Lines" :color blue))
+           "Other"
+           (("e" isearch-edit-string "Edit")
+            ("o" isearch-occur "Occur" :color blue)
+            ("C-g" isearch-abort "Abort" :color blue))))
+
+        (define-key isearch-mode-map (kbd "s-s") 'isearch-mode/body)
 #+end_src
 
-The idea, is that you can start a search with ~C-s~ (or even ~s-f~ … er, ~Command-f~ on the Mac), and type some letters. Hitting ~C-s~ goes to the next occurrence of what you’ve typed, but if you hit ~Command-g~, a menu appears allowing you to pull in the rest of the word or symbol you are looking at, or edit it completely.
+Pressing ~C-g~ aborts, and ~Return~ exits leaving the point in place. Typing ~C-s~ in the menu stops the menu to continue searching.
+
+[[file:screenshots/isearch-hydra.png]]
+
+How did I figure out the available bindings to make this? To see /all/ the bindings, start the =isearch= minor mode (using ~C-s~), then type ~F1~ twice. This fancy feature lets you select ~b~ to see all the keybindings (along with other features).
 *** Bookmarks
 I like the idea of dropping returnable bookmarks, but with /good defaults/ for the names of these global bookmarks: