[elpa] externals/eglot dd51bf2 6/8: Merge pull request #656 from mohkale/company-kind

[Stefan Monnier]

branch: externals/eglot
commit dd51bf29cbefe51207eda72287becc8bde5197b2
Merge: a79bb5f c65a032
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: GitHub <noreply@github.com>

    Merge pull request #656 from mohkale/company-kind
    
    (feature): Add :company-kind to eglot-completion-at-point
---
 eglot.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/eglot.el b/eglot.el
index 57c0652..cbde1b7 100644
--- a/eglot.el
+++ b/eglot.el
@@ -2246,6 +2246,13 @@ is not active."
                (concat " "
                        (propertize annotation
                                    'face 'font-lock-function-name-face))))))
+       :company-kind
+       ;; Associate each lsp-item with a lsp-kind symbol.
+       (lambda (proxy)
+         (when-let* ((lsp-item (get-text-property 0 'eglot--lsp-item proxy))
+                     (kind (alist-get (plist-get lsp-item :kind)
+                                      eglot--kind-names)))
+           (intern (downcase kind))))
        :company-doc-buffer
        (lambda (proxy)
          (let* ((documentation