Show filename as relative path to workspace in spans (#60)

Author: mattiamanzati

.changeset/honest-flies-shave.md

@@ -0,0 +1,5 @@
+---
+"effect-vscode": patch
+---
+
+Show filename as relative path to workspace in spans

src/DebugSpanStackProvider.ts

@@ -13,7 +13,8 @@ import {
   registerCommand,
   revealFile,
   TreeDataProvider,
-  treeDataProvider
+  treeDataProvider,
+  vscodeUriFromPath
 } from "./VsCode"
 
 class SpanNode {
@@ -180,7 +181,8 @@ const treeItem = (node: TreeNode): vscode.TreeItem => {
       )
       item.contextValue = "span"
       if (node.span.path) {
-        item.description = vscode.workspace.asRelativePath(node.span.path) + ":" + node.span.line + ":" +
+        item.description = vscode.workspace.asRelativePath(vscodeUriFromPath(node.span.path)) + ":" + node.span.line +
+          ":" +
           node.span.column
       }
       if (node.span.stackIndex >= 1) {

src/VsCode.ts

@@ -324,11 +324,23 @@ export const debugRequest = <A = unknown>(
 ): Effect.Effect<A, never, VsCodeDebugSession> =>
   Effect.flatMap(VsCodeDebugSession, (session) => thenable(() => session.customRequest(command, args)))
 
+export const vscodeUriFromPath = (path: string) => {
+  const pathLowered = path.toLowerCase()
+  if (
+    pathLowered.startsWith("file://") || pathLowered.startsWith("http://") || pathLowered.startsWith("https://")
+  ) return vscode.Uri.parse(path, false)
+  return vscode.Uri.file(path)
+}
+
 export const revealFile = (
   path: string,
   selection?: vscode.Range
 ) =>
-  Effect.flatMap(
-    thenable(() => vscode.workspace.openTextDocument(vscode.Uri.parse(path, false))),
-    (doc) => thenable(() => vscode.window.showTextDocument(doc, { selection }))
+  thenable(() => vscode.workspace.openTextDocument(vscodeUriFromPath(path))).pipe(
+    Effect.flatMap((doc) => thenable(() => vscode.window.showTextDocument(doc, { selection })))
   )
+
+export const revealFileWithSelection = (
+  path: string,
+  selection: vscode.Range
+) => revealFile(path, selection)