Add imenu-list plugin + binding

core/core-ui.el

@@ -163,6 +163,19 @@
      (remove-hook 'after-save-hook 'narf/add-whitespace t)))
   (add-hook 'before-save-hook 'delete-trailing-whitespace))
 
+(use-package imenu-list
+  :commands (imenu-list-minor-mode)
+  :config
+  (setq imenu-list-mode-line-format nil
+        imenu-list-position 'right
+        imenu-list-size 35)
+
+  (map! :map imenu-list-major-mode-map
+        :n [escape] 'narf/imenu-list-quit
+        :n "RET" 'imenu-list-goto-entry
+        :n "SPC" 'imenu-list-display-entry
+        :n [tab] 'hs-toggle-hiding))
+
 (use-package rainbow-delimiters
   :commands rainbow-delimiters-mode
   :init

core/defuns/defuns-ui.el

@@ -76,5 +76,14 @@
   (set-buffer-modified-p nil)
   nil)
 
+;;;###autoload
+(defun narf/imenu-list-quit ()
+  (interactive)
+  (quit-window)
+  (mapc (lambda (b) (with-current-buffer b
+                 (when imenu-list-minor-mode
+                   (imenu-list-minor-mode -1))))
+        (narf/get-visible-buffers (narf/get-real-buffers))))
+
 (provide 'defuns-ui)
 ;;; defuns-ui.el ends here