Fix keyword autocomplete

Author: Krzysztof-Cieslak

src/Components/Autocomplete.fs

@@ -11,6 +11,28 @@ open DTO
 open Ionide.VSCode.Helpers
 
 module Autocomplete =
+
+    [<Literal>]
+    let getWordAtPositionJS =
+        """
+    function getWordAt(str, pos) {
+    str = String(str);
+    pos = Number(pos) >>> 0;
+
+    var left = str.slice(0, pos + 1).search(/\S+$/),
+        right = str.slice(pos).search(/\s/);
+
+    if (right < 0) {
+        return str.slice(left);
+    }
+    return str.slice(left, right + pos);
+}
+getWordAt($0, $1)
+        """
+
+    [<Emit(getWordAtPositionJS)>]
+    let getWordAtPosition(str, post) : string = failwith "JS"
+
     let private createProvider () =
         let provider = createEmpty<CompletionItemProvider>
 
@@ -31,17 +53,29 @@ module Autocomplete =
         let mapCompletion (doc : TextDocument) (pos : Position) (o : CompletionResult) =
             if o |> unbox <> null then
                 o.Data |> Array.choose (fun c ->
-                    let range = doc.getWordRangeAtPosition pos
-                    let word = doc.getText range
-                    if word.Contains "." && c.GlyphChar = "K" then
-                        None
+                    let lineStr = doc.getText(Range(pos.line, 0., pos.line, 1000. ))
+                    let word = getWordAtPosition(lineStr, pos.character)
+                    Browser.console.log word
+                    if word <> "" then
+
+                        if word.Contains "." && c.GlyphChar = "K" then
+                            None
+                        else
+                            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 |> convertToKind |> unbox
+                            result.label <- c.Name
+                            result.insertText <- c.ReplacementText
+                            Some result
                     else
-                        let length = if JS.isDefined range then range.``end``.character - range.start.character else 0.
+                        let length = 0.
                         let result = createEmpty<CompletionItem>
                         result.kind <- c.GlyphChar |> convertToKind |> unbox
                         result.label <- c.Name
                         result.insertText <- c.ReplacementText
                         Some result)
+
                 |> ResizeArray
             else
                 ResizeArray ()