Remove Project Reference

Author: Krzysztof-Cieslak

paket.lock

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

release/package.json

@@ -105,6 +105,10 @@
       {
         "command": "fsharp.AddProjectReference",
         "title": "F#: Add Project Reference"
+      },
+      {
+        "command": "fsharp.RemoveProjectReference",
+        "title": "F#: Remove Project Reference"
       }
     ],
 		"outputChannels": [
@@ -143,7 +147,8 @@
     "onCommand:webpreview.Show",
     "onCommand:fsharp.NewProject",
     "onCommand:fsharp.RefreshProjectTemplates",
-    "onCommand:fsharp.AddProjectReference"
+    "onCommand:fsharp.AddProjectReference",
+    "onCommand:fsharp.RemoveProjectReference"
 	],
 	"extensionDependencies": [
         "vscode.fsharp"

src/Components/Forge.fs

@@ -2,7 +2,7 @@ namespace Ionide.VSCode.FSharp
 
 open System
 open FunScript
-open FunScript.TypeScript 
+open FunScript.TypeScript  
 open FunScript.TypeScript.vscode
 open FunScript.TypeScript.vscode.languages
 open FunScript.TypeScript.path
@@ -13,7 +13,7 @@ open Ionide.VSCode.Helpers
 
 [<ReflectedDefinition>]
 module Forge =
-
+ 
     let (</>) a b =
         if  Process.isWin ()
         then a + @"\" + b
@@ -91,6 +91,32 @@ module Forge =
                     ) )
                 |> ignore
 
+    let removeProjectReference () =
+        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.bind (fun edit ->
+                    sprintf "list projectReferences -p %s" edit
+                    |> execForge
+                    |> Promise.success handleForgeList
+                    |> Promise.success (fun n ->
+                        if n.length <> 0. then
+                            let opts = createEmpty<QuickPickOptions>()
+                            opts.placeHolder <- "Reference"
+                            window.Globals.showQuickPick(n |> Promise.lift,opts)
+                            |> Promise.toPromise
+                            |> Promise.success (fun ref ->
+                                sprintf "remove project -n %s -p %s" ref edit |> spawnForge |> ignore )
+                            |> ignore
+                    ))
+            |> ignore
+
     let newProject () = 
         "list templates"
         |> execForge
@@ -137,4 +163,5 @@ module Forge =
         commands.Globals.registerTextEditorCommand("fsharp.AddFileToProject", addCurrentFileToProject |> unbox) |> ignore
         commands.Globals.registerTextEditorCommand("fsharp.RemoveFileFromProject", removeCurrentFileFromProject |> unbox) |> ignore
         commands.Globals.registerCommand("fsharp.AddProjectReference", addProjectReference |> unbox) |> ignore
+        commands.Globals.registerCommand("fsharp.RemoveProjectReference", removeProjectReference |> unbox) |> ignore
         ()