write functions to install dune with the dune install script

Author: PizieDust

src/extension_commands.ml

@@ -249,19 +249,74 @@ let _switch_impl_intf =
 
 let walkthrough_terminal_instance = ref None
 
-let walkthrough_terminal instance =
+let walkthrough_terminal title instance =
   match !walkthrough_terminal_instance with
   | Some t -> t
   | None ->
-    let t =
-      Terminal_sandbox.create
-        ~name:"OCaml Platform Walkthrough"
-        (Extension_instance.sandbox instance)
-    in
+    let t = Terminal_sandbox.create ~name:title (Extension_instance.sandbox instance) in
     walkthrough_terminal_instance := Some t;
     t
 ;;
 
+let _install_dune =
+  let callback (instance : Extension_instance.t) () =
+    let process_installation () =
+      let open Promise.Syntax in
+      let* dune = Dune.make (Sandbox.workspace_root ()) () in
+      match dune with
+      | None ->
+        let options =
+          ProgressOptions.create
+            ~location:(`ProgressLocation Notification)
+            ~title:"Installing Dune Package Management"
+            ~cancellable:false
+            ()
+        in
+        let task ~progress:_ ~token:_ =
+          let+ result =
+            match Platform.t with
+            | Win32 ->
+              let _ =
+                show_message
+                  `Info
+                  "Dune Package Management is not supported on Windows yet!"
+              in
+              Ok () |> Promise.return
+            | Darwin | Linux | Other ->
+              let open Promise.Result.Syntax in
+              let+ _ =
+                let _ =
+                  let terminal =
+                    walkthrough_terminal "Dune Package Management Installer" instance
+                  in
+                  let _ = Terminal_sandbox.show ~preserveFocus:true terminal in
+                  Terminal_sandbox.send
+                    terminal
+                    "bash -c \"sh <(curl -fsSL \
+                     https://github.com/ocaml-dune/dune-bin-install/releases/download/v2/install.sh)\""
+                in
+                Ok () |> Promise.return
+              in
+              ()
+          in
+          match result with
+          | Ok () -> Ojs.null
+          | Error err ->
+            show_message `Error "An error occured while installing dune %s" err;
+            Ojs.null
+        in
+        let+ _ = Vscode.Window.withProgress (module Ojs) ~options ~task in
+        ()
+      | Some _ ->
+        show_message `Info "Dune Package Management is already installed!"
+        |> Promise.return
+    in
+    let (_ : unit Promise.t) = process_installation () in
+    ()
+  in
+  command Command_api.Internal.install_dune callback
+;;
+
 let _install_opam =
   let callback (instance : Extension_instance.t) () =
     let process_installation () =
@@ -292,7 +347,9 @@ let _install_opam =
               let open Promise.Result.Syntax in
               let+ _ =
                 let _ =
-                  let terminal = walkthrough_terminal instance in
+                  let terminal =
+                    walkthrough_terminal "OCaml Platform Walkthrough" instance
+                  in
                   let _ = Terminal_sandbox.show ~preserveFocus:true terminal in
                   Terminal_sandbox.send
                     terminal
@@ -333,7 +390,7 @@ let _init_opam =
         let open Promise.Result.Syntax in
         let+ _ =
           let _ =
-            let terminal = walkthrough_terminal instance in
+            let terminal = walkthrough_terminal "OCaml Platform Walkthrough" instance in
             let _ = Terminal_sandbox.show ~preserveFocus:true terminal in
             Terminal_sandbox.send terminal "opam init"
           in
@@ -368,7 +425,7 @@ let _install_ocaml_dev =
         let open Promise.Result.Syntax in
         let+ _ =
           let _ =
-            let terminal = walkthrough_terminal instance in
+            let terminal = walkthrough_terminal "OCaml Platform Walkthrough" instance in
             let _ = Terminal_sandbox.show ~preserveFocus:true terminal in
             Terminal_sandbox.send
               terminal
@@ -405,7 +462,7 @@ let _open_utop =
         let open Promise.Result.Syntax in
         let+ _ =
           let _ =
-            let terminal = walkthrough_terminal instance in
+            let terminal = walkthrough_terminal "OCaml Platform Walkthrough" instance in
             let _ = Terminal_sandbox.show ~preserveFocus:true terminal in
             Terminal_sandbox.send terminal "opam exec -- utop"
           in