Set up speedbar integration

emacs/init.org

@@ -625,6 +625,25 @@ Emacs has a shell for every mood!
   (leader-def-key "ca" #'xref-find-apropos)
   (general-def 'normal "M-." #'xref-find-definitions)
 #+END_SRC
+* Speedbar
+Speedbar is cool but having it open in a separate frame is annoying. This makes it open in a side window in the same frame:
+#+BEGIN_SRC emacs-lisp
+  (use-package sr-speedbar
+    :commands (sr-speedbar-toggle
+	       sr-speedbar-open
+	       sr-speedbar-select-window
+	       sr-speedbar-exist-p)
+    :general
+    (speedbar-mode-map "q" #'sr-speedbar-close))
+
+  (defun switch-to-speedbar ()
+    (interactive)
+    (unless (sr-speedbar-exist-p)
+      (sr-speedbar-open))
+    (sr-speedbar-select-window))
+
+  (leader-def-key "\\" #'switch-to-speedbar)
+#+END_SRC
 * Whitespace Visualation
 #+BEGIN_SRC emacs-lisp
   (setq whitespace-line-column 80