Add keywords to autocomplete

Author: Krzysztof-Cieslak

.gitignore

@@ -58,6 +58,7 @@ src/atom-fsharp/lib/fsharp.js
 /temp/release
 src/atom-fsharp/bin-fantomas/
 release/syntaxes
+release/templates
 
 temp
 .fake

paket.dependencies

@@ -1,11 +1,11 @@
 source https://nuget.org/api/v2
 
 git https://github.com/ionide/ionide-vscode-helpers.git master build:"build.cmd", OS: windows
-git https://github.com/ionide/FsAutoComplete.git master build:"build.cmd LocalRelease", OS: windows
+git https://github.com/ionide/FsAutoComplete.git keywords build:"build.cmd LocalRelease", OS: windows
 git https://github.com/fsprojects/Forge.git master build:"build.cmd", OS: windows
 
 git https://github.com/ionide/ionide-vscode-helpers.git master build:"build.sh", OS: mono
-git https://github.com/ionide/FsAutoComplete.git master build:"build.sh LocalRelease", OS: mono
+git https://github.com/ionide/FsAutoComplete.git keywords build:"build.sh LocalRelease", OS: mono
 git https://github.com/fsprojects/Forge.git master build:"build.sh", OS: mono
 
 git [email protected]:ionide/ionide-fsgrammar.git

paket.lock

@@ -1,6 +1,6 @@
 NUGET
   remote: https://www.nuget.org/api/v2
-    FAKE (4.31.1)
+    FAKE (4.32)
     Microsoft.Bcl (1.1.10) - framework: net10, net11, net20, net30, net35, net40, net40-full
       Microsoft.Bcl.Build (>= 1.0.14)
     Microsoft.Bcl.Build (1.0.21) - import_targets: false, framework: net10, net11, net20, net30, net35, net40, net40-full
@@ -21,10 +21,10 @@ GIT
       build: build.sh
       os: mono
   remote: https://github.com/ionide/FsAutoComplete.git
-     (e8d2a88369ef166ded48d3a52cf2a0cff02b0372)
+     (2903174dc9ac12a9420022254ea518f55c1e54bc)
       build: build.cmd LocalRelease
       os: windows
-     (e8d2a88369ef166ded48d3a52cf2a0cff02b0372)
+     (2903174dc9ac12a9420022254ea518f55c1e54bc)
       build: build.sh LocalRelease
       os: mono
   remote: https://github.com/fsprojects/Forge.git
@@ -38,7 +38,7 @@ GIT
      (c8fea8dc0a224a2ceb2371bc5e941157aca3de9e)
 GITHUB
   remote: fsharp/FAKE
-    modules/Octokit/Octokit.fsx (40dd0ff66fc379474450f93fd1ba545f6cf6c121)
+    modules/Octokit/Octokit.fsx (094228d817b5bdb97f896a7d4a994d31e66be529)
       Octokit (>= 0.20)
   remote: Ionide/ionide-vscode-helpers
     Fable.Import.Axios.fs (777815f9c3f9b3925e42c6394c7f1f5fac124d6a)

release/templates

@@ -14,26 +14,27 @@ module Autocomplete =
     let private createProvider () =
         let provider = createEmpty<CompletionItemProvider>
 
-        let convertToInt code =
+        let convertToKind code =
             match code with
-            | "C" -> 6      (*  CompletionItemKind.Class      *)
-            | "E" -> 12     (*  CompletionItemKind.Enum       *)
-            | "S" -> 6      (*  CompletionItemKind.Value      *)
-            | "I" -> 7      (*  CompletionItemKind.Interface  *)
-            | "N" -> 8      (*  CompletionItemKind.Module     *)
-            | "M" -> 1      (*  CompletionItemKind.Method     *)
-            | "P" -> 9      (*  CompletionItemKind.Property   *)
-            | "F" -> 4      (*  CompletionItemKind.Field      *)
-            | "T" -> 6      (*  CompletionItemKind.Class      *)
-            | _   -> 0
+            | "C" -> CompletionItemKind.Class
+            | "E" -> CompletionItemKind.Enum
+            | "S" -> CompletionItemKind.Value
+            | "I" -> CompletionItemKind.Interface
+            | "N" -> CompletionItemKind.Module
+            | "M" -> CompletionItemKind.Method
+            | "P" -> CompletionItemKind.Property
+            | "F" -> CompletionItemKind.Field
+            | "T" -> CompletionItemKind.Class
+            | "K" -> CompletionItemKind.Keyword
+            | _   -> 0 |> unbox
 
         let mapCompletion (doc : TextDocument) (pos : Position) (o : CompletionResult) =
             if o |> unbox <> null then
                 o.Data |> Array.map (fun c ->
                     let range = doc.getWordRangeAtPosition pos
                     let length = if JS.isDefined range then range.``end``.character - range.start.character else 0.
                     let result = createEmpty<CompletionItem>
-                    result.kind <- c.GlyphChar |> convertToInt |> unbox
+                    result.kind <- c.GlyphChar |> convertToKind |> unbox
                     result.label <- c.Name
                     result.insertText <- c.ReplacementText
                     result)