[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/eglot ae7261c1fe 02/15: Per #131: Experiment with group
From: |
ELPA Syncer |
Subject: |
[elpa] externals/eglot ae7261c1fe 02/15: Per #131: Experiment with grouping in xref-backend-identifier-completion-table |
Date: |
Sun, 24 Jul 2022 14:57:34 -0400 (EDT) |
branch: externals/eglot
commit ae7261c1fea0cda9810ccdb95f77a1b0b52f4115
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Per #131: Experiment with grouping in
xref-backend-identifier-completion-table
Doesn't look very good.
* eglot.el (xref-backend-identifier-completion-table): Add stuff.
---
eglot.el | 38 ++++++++++++++++++++++++++++++++++----
1 file changed, 34 insertions(+), 4 deletions(-)
diff --git a/eglot.el b/eglot.el
index b17bfd1b5c..eccd67c129 100644
--- a/eglot.el
+++ b/eglot.el
@@ -2416,12 +2416,42 @@ Try to visit the target file for a richer summary line."
(let* ((cache eglot--workspace-symbols-cache)
(probe (gethash pat cache :missing)))
(if (eq probe :missing) (puthash pat (refresh pat)
cache)
- probe))))
+ probe)))
+ (container (c)
+ (plist-get (get-text-property
+ 0 'eglot--lsp-workspaceSymbol c)
+ :containerName)))
(lambda (string _pred action)
(pcase action
- (`metadata '(metadata
- (display-sort-function . identity)
- (category . eglot-indirection-joy)))
+ (`metadata `(metadata
+ (cycle-sort-function
+ . ,(lambda (completions)
+ (cl-sort completions
+ #'string-lessp
+ :key (lambda (c)
+ (or (container c)
+ "")))))
+ (category . eglot-indirection-joy)
+ ;; (annotation-function
+ ;; . ,(lambda (c)
+ ;; (plist-get (get-text-property
+ ;; 0 'eglot--lsp-workspaceSymbol
c)
+ ;; :containerName)))
+ ;; (affixation-function
+ ;; . ,(lambda (comps)
+ ;; (mapcar (lambda (c)
+ ;; (list c
+ ;; (plist-get
(get-text-property
+ ;; 0
'eglot--lsp-workspaceSymbol c)
+ ;; :containerName)
+ ;; " bla"))
+ ;; comps)))
+ (group-function
+ . ,(lambda (c transformp)
+ (if (not transformp)
+ (container c)
+ c)))
+ ))
(`(eglot--lsp-tryc . ,point) `(eglot--lsp-tryc . (,string .
,point)))
(`(eglot--lsp-allc . ,_point) `(eglot--lsp-allc . ,(lookup
string)))
(_ nil)))))
- [elpa] externals/eglot updated (c558fd6a24 -> 6cc6fcc0fa), ELPA Syncer, 2022/07/24
- [elpa] externals/eglot ae7261c1fe 02/15: Per #131: Experiment with grouping in xref-backend-identifier-completion-table,
ELPA Syncer <=
- [elpa] externals/eglot 25f6338741 04/15: Per #131: Tweak some details, fix some bugs, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot 6cc6fcc0fa 15/15: Merge commit 'c558fd6a24' to fix fallout of force-push in GNU ELPA, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot 33c464f658 06/15: Per #131, #314: Be more conservative with the LSP identifier guess, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot 29690e88e3 13/15: Always default eglot-strict-mode to nil, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot 1db95974a7 07/15: Per #967: eglot-workspace-configuration can be a function, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot 87e6de3cdf 08/15: Appease byte-compiler warnings about wrong use of quotes, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot a62a388021 11/15: Fix README.md typos and rework section about Workspace configuration, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot 2f71de72e3 01/15: Fix #131: Make C-u M-. work half decently, ELPA Syncer, 2022/07/24
- [elpa] externals/eglot c64fe76e86 03/15: Per #131: Cosmetic decisions guaranteed to tick off someone somewhere (tm), ELPA Syncer, 2022/07/24
- [elpa] externals/eglot a2d9e18945 09/15: Reply more reasonably to server's workspace/applyEdit, ELPA Syncer, 2022/07/24