Tweak company completions order

Tweak company completions order

[Lele Gaifax]

Hi all,

by default the company frontend orders the items alphabetically. I wonder if
there is a way to perturb it taking into account the current prefix, so that
the first items shown are those having its same case.

Example: I'm writing this post and at this point I insert the word "word#"
where the # represent the cursor; company shows its list, where the items are
"WORD", "WORDCHARS", "Word", "Words", "word", "wordpos" and "words". I'd
prefer having instead them ordered like "word", "wordpos", "words", "WORD"...

I browsed the company source, and read about "transformers", but they does not
seem able to reach the "prefix" from which the completion started.

Thanks in advance for any hint,
ciao, lele.
-- 
nickname: Lele Gaifax | Quando vivrò di quello che ho pensato ieri
real: Emanuele Gaifas | comincerò ad aver paura di chi mi copia.
lele@metapensiero.it  |                 -- Fortunato Depero, 1929.

Re: Tweak company completions order

[Dmitry Gutov]

Hi Lele,

On 12/04/2015 12:14 AM, Lele Gaifax wrote:

> I browsed the company source, and read about "transformers", but they does not
> seem able to reach the "prefix" from which the completion started.

You can refer to the global variable `company-prefix'. It should already 
be set by the time company-transformers are used.

Re: Tweak company completions order

[Lele Gaifax]

Thank you Dmitry!

For the record, this is what I've come up:

    (defun esk/company-sort-preferring-exact-or-same-case (candidates)
      (let ((exact nil)
            (sameprefix nil)
            (others nil)
            (plen (length company-prefix)))
        (mapc (lambda (candidate)
                (if (equal company-prefix candidate)
                    (push candidate exact)
                  (if (equal company-prefix (substring candidate 0 plen))
                      (push candidate sameprefix)
                    (push candidate others))))
              candidates)
        (append exact sameprefix others)))

    (add-to-list 'company-transformers #'esk/company-sort-preferring-exact-or-same-case)

ciao, lele.
-- 
nickname: Lele Gaifax | Quando vivrò di quello che ho pensato ieri
real: Emanuele Gaifas | comincerò ad aver paura di chi mi copia.
lele@metapensiero.it  |                 -- Fortunato Depero, 1929.