WorkspaceSymbol

ionide · Sep 10, 2022 · c7925f1 · c7925f1
1 parent 75a3323
commit c7925f1
Showing 1 changed file with 19 additions and 2 deletions.
diff --git a/src/FsAutoComplete/FsAutoComplete.Lsp.fs b/src/FsAutoComplete/FsAutoComplete.Lsp.fs
@@ -1916,12 +1916,29 @@ type AdaptiveFSharpLspServer (workspaceLoader : IWorkspaceLoader, lspClient : FS
   }
 
 
-  override __.WorkspaceSymbol(symbolRequest: WorkspaceSymbolParams) =
+  override __.WorkspaceSymbol(symbolRequest: WorkspaceSymbolParams) = asyncResult {
     logger.info (
       Log.setMessage "WorkspaceSymbol Request: {parms}"
       >> Log.addContextDestructured "parms" symbolRequest
     )
-    Helpers.notImplemented
+    let glyphToSymbolKind = glyphToSymbolKind |> AVal.force
+    let decls =
+      knownFsFilesToCheckedDeclarations
+      |> AMap.force
+      |> Seq.toArray
+    let res =
+        decls
+        |> Array.collect (fun (p,ns) ->
+          let uri = Path.LocalPathToUri p
+          ns
+          |> Array.collect (fun n ->
+            getSymbolInformations uri glyphToSymbolKind n (applyQuery symbolRequest.Query))
+        )
+        |> Some
+
+    return res
+  }
+
 
   override x.TextDocumentFormatting(p: DocumentFormattingParams) =
     logger.info (