Eglot

[sethidden]

I noticed that default completions (non-company, non-corfu) for Eglot don't return any nerdicons

I also see that eglot-completion-at-point's :annotation-function (the one that renders the basic completions) property is not the most friendly for modification:
https://github.com/emacs-mirror/emacs/blob/d9afa1f30fdf9d00b447fea0a8343397333e172f/lisp/progmodes/eglot.el#L3178-L3191

since it's a function that returns a plist that contains :annotation-function, it'd need to be intercepted as it is being called from completion-at-point-functions var and changed to a version where the :annotation-function is something that inserts nerdicons and hopefully also font-faces colors

The font-faces and "icon <-> symbol type" mappings can be taken from here: https://github.com/LuigiPiucco/nerd-icons-corfu/blob/master/nerd-icons-corfu.el#L64-L100

Best I could come quickly come up with is:

;; these symbols should render fine in an emacs with nerdicons installed
(defconst eglot--kind-names
    `((1 . " Text") (2 . " Method") (3 . " Function") (4 . " Constructor")
      (5 . " Field") (6 . " Variable") (7 . " Class") (8 . " Interface")
      (9 . " Module") (10 . " Property") (11 . " Unit") (12 . " Value")
      (13 . " Enum") (14 . " Keyword") (15 . " Snippet") (16 . " Color")
      (17 . " File") (18 . " Reference") (19 . " Folder") (20 . " EnumMember")
      (21 . " Constant") (22 . " Struct") (23 . " Event") (24 . " Operator")
      (25 . " TypeParameter")))

My attempt is of course very sad (those aren't even nerdicons, just unicode) but I'm not sure how to patch eglot-complete-at-point's :annotation-function