24 lines
862 B
EmacsLisp
24 lines
862 B
EmacsLisp
;;; tools/imenu/config.el -*- lexical-binding: t; -*-
|
|
|
|
(def-package! imenu-anywhere
|
|
:commands (ido-imenu-anywhere ivy-imenu-anywhere helm-imenu-anywhere)
|
|
:config (setq imenu-anywhere-delimiter ": "))
|
|
|
|
|
|
(def-package! imenu-list
|
|
:commands imenu-list-minor-mode
|
|
:config
|
|
(set! :popup "^\\*Ilist"
|
|
'((side . right) (size . 35))
|
|
'((quit . current) (select) (transient . 0)))
|
|
|
|
(defun +imenu|cleanup-on-popup-close ()
|
|
"Clean up after `imenu-list-minor-mode' when killing the list window."
|
|
(unless +popup-buffer-mode
|
|
(when imenu-list--displayed-buffer
|
|
(with-current-buffer imenu-list--displayed-buffer
|
|
(imenu-list-minor-mode -1)))
|
|
(when (equal (buffer-name) imenu-list-buffer-name)
|
|
(kill-buffer (get-buffer imenu-list-buffer-name)))))
|
|
(add-hook '+popup-buffer-mode-hook #'+imenu|cleanup-on-popup-close))
|