Re: about fido-mode

[Ergus]

On Mon, Sep 07, 2020 at 10:08:21PM +0000, andr�s ram�rez wrote:
> Hi. Ergus.
>
>    Ergus> Actually I am interested a bit on this specific one because so far 
> the ido-imenu function
>    Ergus> you shared with me is an ido wrapper around imenu completion. But as 
> icomplete/fido uses
>    Ergus> the internal infrastructure it shouldn't be needed this hack.
>
> Right.
>
>    Ergus> OTOH (from my absolute ignorance about ido-imenu), I tried imenu+fido 
> and it works like a
>    Ergus> charm. Probably the only missing thing is the sorting part?
>
> It is not the same. ido-imenu shows just the functions, not de 'Class' or
> 'Fields'. one less thing to pick. Just go directly to the
> functions. Actually I need to comment this imenu is so awesome. It is
> present on vanilla emacs. Probably others editors do not have it present
> by default, without needing a plugin or package.
If course it is not the same. Look at the code. Actually What it list
are the symbols not only the functions.

>    Ergus> In the code you shared I only see that you need to replace the 
> ido-completing-read with
>    Ergus> something else.
>
> There was a issue when trying ido-imenu with eglot activated. The error was this
> one:. I have been trying to create a git-issue without success from within
> emacs. So I am going to report later the complete case:

I don't care at all about ido (as a radical I consider that ido should
be removed in favor of ivy, helm, and anything else better supported and
integrated with the actual infrastructure... that's why I support fido)

Any way, in general I think that this (untested) code could do the work
in fido-mode:

;; Same flet code in your function
(defun my-filter (symbol-list)
  (let (name position name-and-pos)
    (dolist (symbol symbol-list)
      (setq name nil
            position nil)
      (cond
       ((listp symbol)
        (if (imenu--subalist-p symbol)
            (addsymbols symbol)
          (setq name (car symbol))
          (setq position (cdr symbol))))

       ((stringp symbol)
        (setq name symbol)
        (setq position (get-text-property 1 'org-imenu-marker symbol))))

      (when (and position name)
        (add-to-list 'name-and-pos (cons name position))))
    name-and-pos))

;; Filter the aoutput of imenu--make-index-alist 
(advice-add 'imenu--make-index-alist :filter-return #'my-filter)

Basically the point is that imenu calls imenu--make-index-alist to
create the candidates list and it can have many symbols and nested
elements. But you want a simplified flatten list of symbol only
candidates.

With this advise you process the output imenu--make-index-alist to
return a flatten alist of symbols only. (it is exactly the same function
you had declared with flet, but simpler)

Then imenu could do what you want.