Skip to content

Commit ef9bfc8

Browse files
wyuenhowyuenho
committed
Remove completion with no labels and filterText
1 parent ac71048 commit ef9bfc8

File tree

1 file changed

+63
-69
lines changed

1 file changed

+63
-69
lines changed

‎lsp-completion.el‎

Lines changed: 63 additions & 69 deletions
Original file line numberDiff line numberDiff line change
@@ -287,7 +287,7 @@ Returns unresolved completion item detail."
287287

288288
(defvar lsp-completion--cache nil
289289
"Cached candidates for completion at point function.
290-
In the form of plist (prefix-pos items :lsp-items :prefix ...).
290+
In the form of plist (prefix-pos items :prefix ...).
291291
When the completion is incomplete, `items' contains value of :incomplete.")
292292

293293
(defvar lsp-completion--last-result nil
@@ -334,62 +334,48 @@ Return `nil' when fails to guess prefix."
334334

335335
(defun lsp-completion--to-internal (items)
336336
"Convert ITEMS into internal form."
337-
(--> items
338-
(-map (-lambda ((item &as &CompletionItem
339-
:label
340-
:filter-text?
341-
:_emacsStartPoint start-point
342-
:score?))
343-
`( :label ,(or (unless (lsp-falsy? filter-text?) filter-text?) label)
344-
:item ,item
345-
:start-point ,start-point
346-
:score ,score?))
347-
it)))
348-
349-
(cl-defun lsp-completion--filter-candidates (items &key
350-
lsp-items
351-
markers
352-
prefix
353-
&allow-other-keys)
354-
"List all possible completions in cached ITEMS with their prefixes.
355-
We can pass LSP-ITEMS, which will be used when there's no cache.
356-
The MARKERS and PREFIX value will be attached to each candidate."
337+
(-map (-lambda ((item &as &CompletionItem
338+
:label
339+
:_emacsStartPoint start-point
340+
:score?))
341+
`( :label ,label
342+
:item ,item
343+
:start-point ,start-point
344+
:score ,score?))
345+
items))
346+
347+
(defun lsp-completion--filter-candidates (items)
348+
"List all possible completions in cached ITEMS with their prefixes."
357349
(lsp--while-no-input
358-
(->>
359-
(if items
360-
(--> (let (queries fuz-queries)
361-
(-keep (-lambda ((cand &as &plist :label :start-point :score))
362-
(let* ((query (or (plist-get queries start-point)
363-
(let ((s (buffer-substring-no-properties
364-
start-point (point))))
365-
(setq queries (plist-put queries start-point s))
366-
s)))
367-
(fuz-query (or (plist-get fuz-queries start-point)
368-
(let ((s (lsp-completion--regex-fuz query)))
369-
(setq fuz-queries
370-
(plist-put fuz-queries start-point s))
371-
s)))
372-
(label-len (length label))
373-
(case-fold-search completion-ignore-case))
374-
(when (string-match fuz-query label)
375-
(put-text-property 0 label-len 'match-data (match-data) label)
376-
(plist-put cand
377-
:sort-score
378-
(* (or (lsp-completion--fuz-score query label) 1e-05)
379-
(or score 0.001)))
380-
cand)))
381-
items))
382-
(if lsp-completion--no-reordering
383-
it
384-
(sort it (lambda (o1 o2)
385-
(> (plist-get o1 :sort-score)
386-
(plist-get o2 :sort-score)))))
387-
;; TODO: pass additional function to sort the candidates
388-
(-map (-rpartial #'plist-get :item) it))
389-
lsp-items)
390-
(-map (lambda (item) (lsp-completion--make-item item
391-
:markers markers
392-
:prefix prefix))))))
350+
(--> (let (queries fuz-queries)
351+
(-keep (-lambda ((cand &as &plist :label :start-point :score))
352+
(let* ((query (or (plist-get queries start-point)
353+
(let ((s (buffer-substring-no-properties
354+
start-point (point))))
355+
(setq queries (plist-put queries start-point s))
356+
s)))
357+
(fuz-query (or (plist-get fuz-queries start-point)
358+
(let ((s (lsp-completion--regex-fuz query)))
359+
(setq fuz-queries
360+
(plist-put fuz-queries start-point s))
361+
s)))
362+
(label-len (length label))
363+
(case-fold-search completion-ignore-case))
364+
(when (string-match fuz-query label)
365+
(put-text-property 0 label-len 'match-data (match-data) label)
366+
(plist-put cand
367+
:sort-score
368+
(* (or (lsp-completion--fuz-score query label) 1e-05)
369+
(or score 0.001)))
370+
cand)))
371+
items))
372+
(if lsp-completion--no-reordering
373+
it
374+
(sort it (lambda (o1 o2)
375+
(> (plist-get o1 :sort-score)
376+
(plist-get o2 :sort-score)))))
377+
;; TODO: pass additional function to sort the candidates
378+
(-map (-rpartial #'plist-get :item) it))))
393379

394380
(defconst lsp-completion--kind->symbol
395381
'((1 . text)
@@ -589,9 +575,12 @@ Returns resolved completion item details."
589575
((or done? result) result)
590576
((and (not lsp-completion-no-cache)
591577
same-session?
592-
(listp (cl-second lsp-completion--cache)))
593-
(setf result (apply #'lsp-completion--filter-candidates
594-
(cdr lsp-completion--cache))))
578+
(cl-second lsp-completion--cache))
579+
(setf result (pcase-let* ((`(,_ ,items ,markers ,prefix) (cdr lsp-completion--cache)))
580+
(-map
581+
(lambda (item)
582+
(lsp-completion--make-item item :markers markers :prefix prefix))
583+
(lsp-completion--filter-candidates items)))))
595584
(t
596585
(-let* ((resp (lsp-request-while-no-input
597586
"textDocument/completion"
@@ -614,7 +603,12 @@ Returns resolved completion item details."
614603
:_emacsStartPoint
615604
(or (lsp-completion--guess-prefix item)
616605
bounds-start)))
617-
it))))
606+
it)
607+
;; remove items with no label and filterText
608+
(-remove
609+
(-lambda ((&CompletionItem :filter-text? :label))
610+
(and (lsp-falsy? filter-text?) (lsp-falsy? label)))
611+
it))))
618612
(markers (list bounds-start (copy-marker (point) t)))
619613
(prefix (buffer-substring-no-properties bounds-start (point)))
620614
(lsp-completion--no-reordering (not lsp-completion-sort-initial-results)))
@@ -625,17 +619,17 @@ Returns resolved completion item details."
625619
((and done? (not (seq-empty-p items)))
626620
(lsp-completion--to-internal items))
627621
((not done?) :incomplete))
628-
:lsp-items nil
629622
:markers markers
630623
:prefix prefix)
631-
result (lsp-completion--filter-candidates
632-
(cond (done?
633-
(cl-second lsp-completion--cache))
634-
(lsp-completion-filter-on-incomplete
635-
(lsp-completion--to-internal items)))
636-
:lsp-items items
637-
:markers markers
638-
:prefix prefix))))))
624+
result (when-let ((items
625+
(or (and done? (cl-second lsp-completion--cache))
626+
(and lsp-completion-filter-on-incomplete
627+
(lsp-completion--to-internal items))
628+
items)))
629+
(-map
630+
(lambda (item)
631+
(lsp-completion--make-item item :markers markers :prefix prefix))
632+
(lsp-completion--filter-candidates items))))))))
639633
(:interrupted lsp-completion--last-result)
640634
(`,res (setq lsp-completion--last-result res))))))
641635
(list

0 commit comments

Comments
 (0)