implement vscode side of fsautocomplete#817 (#1680)

Author: baronfel

src/Components/SignatureData.fs

@@ -17,48 +17,8 @@ module SignatureData =
             let line = editor.selection.active.line
             let col = editor.selection.active.character
 
-            LanguageService.generateDocumentation document.fileName (int line) (int col)
-            |> Promise.bind (fun (p: SignatureDataResult) ->
-                promise {
-                    let pms =
-                        p.Data.Parameters
-                        |> Seq.concat
-                        |> Seq.where (fun prm -> String.IsNullOrWhiteSpace prm.Name |> not)
-                        |> Seq.map (fun prm -> sprintf """/// <param name="%s"></param>""" prm.Name)
-                        |> String.concat "\n"
-
-                    let generics =
-                        p.Data.Generics
-                        |> Seq.map (fun generic -> sprintf """/// <typeparam name="'%s"></typeparam>""" generic)
-                        |> String.concat "\n"
-
-                    let comment =
-                        [ yield "/// <summary>"
-                          yield "/// "
-                          yield "/// </summary>"
-                          if pms <> "" then yield pms
-                          if generics <> "" then yield generics
-                          yield "/// <returns></returns>" ]
-                        |> String.concat "\n"
-
-                    let x = editor.selection.active.line
-                    let t = document.getText (vscode.Range.Create(x, 0., x, 1000.))
-                    let t' = t.TrimStart(' ')
-                    let spsC = t.Length - t'.Length
-                    let sps = String.replicate spsC " "
-
-                    let cmnt =
-                        comment
-                        |> String.split [| '\n' |]
-                        |> Seq.map (fun n -> sprintf "%s%s" sps n)
-                        |> String.concat "\n"
-
-                    let edit = vscode.WorkspaceEdit.Create()
-                    edit.insert (document.uri, vscode.Position.Create(x, 0.), cmnt + "\n")
-                    return! workspace.applyEdit edit
-                })
-            |> ignore
-        | _ -> ()
+            LanguageService.generateDocumentation (document.uri, document.version) (int line, int col)
+        | _ -> Promise.lift ()
 
 
     let activate (context: ExtensionContext) =

src/Core/LanguageService.fs

@@ -52,11 +52,16 @@ module LanguageService =
         type DocumentUri = string
 
         type TextDocumentIdentifier = { Uri: DocumentUri }
+        type VersionedTextDocumentIdentifier = { Uri: DocumentUri; Version: float }
 
         type TextDocumentPositionParams =
             { TextDocument: TextDocumentIdentifier
               Position: Position }
 
+        type VersionedTextDocumentPositionParams =
+            { TextDocument: VersionedTextDocumentIdentifier
+              Position: Position }
+
         type FileParams = { Project: TextDocumentIdentifier }
 
         type WorkspaceLoadParms =
@@ -184,16 +189,16 @@ module LanguageService =
             cl.sendRequest ("fsharp/signatureData", req)
             |> Promise.map (fun (res: Types.PlainNotification) -> res.content |> ofJson<SignatureDataResult>)
 
-    let generateDocumentation fn line col =
+    let generateDocumentation (fileUri: Uri, version) (line, col) =
         match client with
         | None -> Promise.empty
         | Some cl ->
-            let req: Types.TextDocumentPositionParams =
-                { TextDocument = { Uri = handleUntitled fn }
+            let req: Types.VersionedTextDocumentPositionParams =
+                { TextDocument = { Uri = fileUri.toString(); Version = version }
                   Position = { Line = line; Character = col } }
 
             cl.sendRequest ("fsharp/documentationGenerator", req)
-            |> Promise.map (fun (res: Types.PlainNotification) -> res.content |> ofJson<SignatureDataResult>)
+            |> Promise.map (fun _ -> ())
 
     let lineLenses fn =
         match client with