Re: Listing headings in dedicated buffer with imenu.

[Heime <heimeborgia@protonmail.com>]

Sent with Proton Mail secure email.

On Monday, July 29th, 2024 at 10:32 PM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Mon, 29 Jul 2024 10:26:22 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > Sent with Proton Mail secure email.
> > 
> > On Monday, July 29th, 2024 at 9:33 PM, Stephen Berman stephen.berman@gmx.net wrote:
> > 
> > > On Mon, 29 Jul 2024 08:48:38 +0000 Heime heimeborgia@protonmail.com wrote:
> > > 
> > > > I wish to list headings in a dedicated buffer with imenu.
> > > > The listing should be in the order in which headings occur
> > > > in the buffer.
> > > > 
> > > > Have done the following, but the buffer ends up empty.
> > > > 
> > > > (defun vodil-imenu-bfh ()
> > > > "Insert imenu headings in order in a dedicated buffer."
> > > > (interactive)
> > > > 
> > > > (let ((imenu-items (imenu--make-index-alist t))
> > > > (buffer-name "Imenu Headings"))
> > > > (with-current-buffer (get-buffer-create buffer-name)
> > > > (erase-buffer)
> > > > (dolist (item imenu-items)
> > > > (let ((name (car item))
> > > > (position (cdr item)))
> > > > (when (and (stringp name) (number-or-marker-p position))
> > > > (insert (format "%s\n" name)))))
> > > > (goto-char (point-min)))
> > > > (pop-to-buffer buffer-name)))
> > > 
> > > It works for me, as long as imenu.el is loaded.
> > > 
> > > Steve Berman
> > 
> > What would I need to load it ?
> 
> 
> One way is this:
> 
> (defun vodil-imenu-bfh ()
> "Insert imenu headings in order in a dedicated buffer."
> (interactive)
> (eval-when-compile
> (require 'imenu))
> (let ((imenu-items (imenu--make-index-alist t))
> (buffer-name "Imenu Headings"))
> (with-current-buffer (get-buffer-create buffer-name)
> (erase-buffer)
> (dolist (item imenu-items)
> (let ((name (car item))
> (position (cdr item)))
> (when (and (stringp name) (number-or-marker-p position))
> (insert (format "%s\n" name)))))
> (goto-char (point-min)))
> (pop-to-buffer buffer-name)))
> 
> Steve Berman

Right.  I have this function that I run.  Running vodil-imenu-bfh
after executing vodil-imenu-expr gives me rescan in the buffer.

(defun vodil-imenu-expr ()
  "Set up `imenu` to show a list of functions in the current buffer."

  (interactive)

  (setq imenu-generic-expression
    '( ("headings" "^;;;\\s-+\\([HM][[:digit:]]\\)\\s-+\\(.*\\)" 2)))

  (imenu-add-to-menubar "Iml")
  (imenu--make-index-alist t)
  (call-interactively 'imenu))