Lexhelp.Keywords.keywordsWithDescription

| CompletionItemKind.Other->5

| CompletionItemKind.Method(isExtension=true)->6

declarations.Items

|> Array.sortWith(fun x y->

let mutablen=(not x.IsResolved).CompareTo(not y.IsResolved)

letmaxHints=if mruItems.Values.Count=0then0else Seq.max mruItems.Values

declarationItemsData.Clear()

sortedDeclItems|> Array.iteri(fun number declarationItem->

declarationItems|> Array.iteri(fun number declarationItem->

letglyph= Tokenizer.FSharpGlyphToRoslynGlyph(declarationItem.Glyph, declarationItem.Accessibility)

match declarationItem.NamespaceToOpenwith

| Some ns-> completionItem.AddProperty(NamespaceToOpenPropName, ns)

| None-> completionItem

letcompletionItem= completionItem.AddProperty(IndexPropName, string number)

match mruItems.TryGetValue declarationItem.FullNamewith

|true, hints-> maxHints- hints

|_-> number+ maxHints+1

letsortText= sprintf"%06d" priority

letcompletionItem= completionItem.WithSortText(sortText)

letkey= completionItem.DisplayText

declarationItemsData.TryAdd(key, declarationItem)|> ignore

results.Add(completionItem))

if results.Count>0&&not declarations.IsForType&&not declarations.IsError&& List.isEmpty partialName.QualifyingIdentsthen

use _logBlock= Logger.LogBlockMessage document.Name LogEditorFunctionId.Completion_GetDescriptionAsync

match declarationItemsData.TryGetValue(completionItem.DisplayText)with

|true, declarationItem->

let!description= declarationItem.StructuredDescriptionTextAsync

letdocumentation= List()

letcollector= RoslynHelpers.CollectTaggedText documentation

XmlDocumentation.BuildDataTipText(documentationBuilder, collector, collector, collector, collector, collector, description)

return CompletionDescription.Create(documentation.ToImmutableArray())

match completionItem.Properties.TryGetValue IndexPropNamewith

|true, completionItemIndexStr->

letcompletionItemIndex= int completionItemIndexStr

if completionItemIndex< declarationItems.Lengththen

letdeclarationItem= declarationItems.[completionItemIndex]

let!description= declarationItem.StructuredDescriptionTextAsync

letdocumentation= List()

letcollector= RoslynHelpers.CollectTaggedText documentation

XmlDocumentation.BuildDataTipText(documentationBuilder, collector, collector, collector, collector, collector, description)

return CompletionDescription.Create(documentation.ToImmutableArray())

return CompletionDescription.Empty

return CompletionDescription.Empty

}|> RoslynHelpers.StartAsyncAsTask cancellationToken