Add Project Reference

Author: Krzysztof-Cieslak

.vscode/launch.json

@@ -8,7 +8,8 @@
 			"type": "extensionHost",
 			"runtimeExecutable": "${execPath}",
 			"args": ["--extensionDevelopmentPath=${workspaceRoot}/release" ],
-			"stopOnEntry": false
+			"stopOnEntry": false,
+			"request": "launch"
 		}
 	]
 }

paket.lock

@@ -24,7 +24,7 @@ GIT
      (90423567453c82104e852a188640cbfad5882aaa)
       build: build.cmd LocalRelease
   remote: https://github.com/fsprojects/Forge.git
-     (7846e65d45a47585be9a2338f3da0de9406b9127)
+     (b2ce55cfb380ef898aae7b46d7e4eda839fb6707)
       build: build.cmd
   remote: [email protected]:ionide/ionide-fsgrammar.git
      (77ad35a24efc2d0acc84402250589a7f24b803ea)

release/package.json

@@ -101,6 +101,10 @@
       {
         "command": "fsharp.RemoveFileFromProject",
         "title": "F#: Remove Current File From Project"
+      },
+      {
+        "command": "fsharp.AddProjectReference",
+        "title": "F#: Add Project Reference"
       }
     ],
 		"outputChannels": [
@@ -138,7 +142,8 @@
     "onCommand:fsharp.Methods",
     "onCommand:webpreview.Show",
     "onCommand:fsharp.NewProject",
-    "onCommand:fsharp.RefreshProjectTemplates"
+    "onCommand:fsharp.RefreshProjectTemplates",
+    "onCommand:fsharp.AddProjectReference"
 	],
 	"extensionDependencies": [
         "vscode.fsharp"

src/Components/Forge.fs

@@ -70,7 +70,27 @@ module Forge =
         let editor = vscode.window.Globals.activeTextEditor
         if editor.document.languageId = "fsharp" then
             sprintf "remove file -n %s" editor.document.fileName |> spawnForge |> ignore
-            
+
+    let addProjectReference () = 
+        let projects = Project.getAll () |> List.toArray
+        if projects.Length <> 0 then
+            projects
+            |> Promise.lift
+            |> fun n -> 
+                let opts = createEmpty<QuickPickOptions>()
+                opts.placeHolder <- "Project to edit"
+                window.Globals.showQuickPick(n,opts)
+                |> Promise.toPromise
+                |> Promise.success (fun edit ->
+                    let opts = createEmpty<QuickPickOptions>()
+                    opts.placeHolder <- "Reference"
+                    window.Globals.showQuickPick(n,opts)
+                    |> Promise.toPromise
+                    |> Promise.success (fun n -> 
+                        sprintf "add project -n %s -p %s" n edit |> spawnForge |> ignore
+                    ) )
+                |> ignore
+
     let newProject () = 
         "list templates"
         |> execForge
@@ -116,4 +136,5 @@ module Forge =
         commands.Globals.registerCommand("fsharp.RefreshProjectTemplates", refreshTemplates |> unbox) |> ignore
         commands.Globals.registerTextEditorCommand("fsharp.AddFileToProject", addCurrentFileToProject |> unbox) |> ignore
         commands.Globals.registerTextEditorCommand("fsharp.RemoveFileFromProject", removeCurrentFileFromProject |> unbox) |> ignore
+        commands.Globals.registerCommand("fsharp.AddProjectReference", addProjectReference |> unbox) |> ignore
         () 

src/Core/Project.fs

@@ -51,6 +51,29 @@ module Project =
             | null -> []
             | rootPath -> rootPath |> findProjs
 
+    let getAll () =
+        let rec findProjs dir =
+            let files = Globals.readdirSync dir
+            files
+            |> Array.toList
+            |> List.collect(fun s' ->
+                try
+                    let s = dir + Globals.sep + s'
+                    if s' = ".git" || s' = "paket-files" then
+                        []
+                    elif Globals.statSync(s).isDirectory () then
+                        findProjs (s)
+                    else
+                       if s.EndsWith ".fsproj" || s.EndsWith ".csproj" || s.EndsWith ".vbproj" then [ s ] else []
+                with
+                | _ -> []
+            )
+
+        match workspace.Globals.rootPath with
+            | null -> []
+            | rootPath -> rootPath |> findProjs
+
+
     let activate () =
         match findAll () with
         | [] -> Promise.lift (null |> unbox)