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:51 PM, Stephen Berman <stephen.berman@gmx.net> wrote:

> On Mon, 29 Jul 2024 10:41:08 +0000 Heime heimeborgia@protonmail.com wrote:
> 
> > 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))
> 
> 
> What were the contents of the current buffer when you executed
> vodil-imenu-expr?
> 
> Steve Berman

I had an elisp file.  I ran "M-x vodil-imenu-expr" when in the file to get
the correct imenu entries.  But executing "M-x vodil-imenu-bfh" after that
I end up with the buffer "Imenu Headings" having only *rescan* in it.