add a 'Run' button

Author: tsnobip

src/ConsolePanel.res

@@ -26,7 +26,7 @@ let make = (~logs, ~appendLog) => {
     {switch logs {
     | [] =>
       React.string(
-        "Add some 'Console.log' to your code and enable 'Auto-run' to see your logs here.",
+        "Add some 'Console.log' to your code and click 'Run' or enable 'Auto-run' to see your logs here.",
       )
     | logs =>
       let content =

src/Playground.res

@@ -1153,6 +1153,7 @@ module ControlPanel = {
         <ToggleButton checked=autoRun onChange={_ => dispatch(ToggleAutoRun)}>
           {React.string("Auto-run")}
         </ToggleButton>
+        <Button onClick={_ => dispatch(RunCode)}> {React.string("Run")} </Button>
         <Button onClick=onFormatClick> {React.string("Format")} </Button>
         <ShareButton actionIndicatorKey />
       </div>

src/RenderPanel.res

@@ -5,7 +5,7 @@ let make = (~validReact) => {
     {validReact
       ? React.null
       : React.string(
-          "Create a React component called 'App' if you want to render it here, then enable 'Auto-run'.",
+          "Create a React component called 'App' if you want to render it here, then click 'Run' or enable 'Auto-run'.",
         )}
     <div className={validReact ? "h-full" : "h-0"}>
       <EvalIFrame />

src/common/CompilerManagerHook.res

@@ -189,6 +189,7 @@ type action =
   | UpdateConfig(Config.t)
   | AppendLog(ConsolePanel.log)
   | ToggleAutoRun
+  | RunCode
 
 let createUrl = (pathName, ready) => {
   let params = switch ready.targetLang {
@@ -350,6 +351,12 @@ let useCompilerManager = (
         | Ready({autoRun: false} as ready) => Compiling({...ready, autoRun: true})
         | _ => state
         }
+      | RunCode =>
+        switch state {
+        | Ready({result: Comp(Success({js_code}))} as ready) =>
+          Executing({state: {...ready, autoRun: false}, jsCode: js_code})
+        | _ => state
+        }
       }
     )
   }

src/common/CompilerManagerHook.resi

@@ -50,6 +50,7 @@ type action =
   | UpdateConfig(Config.t)
   | AppendLog(ConsolePanel.log)
   | ToggleAutoRun
+  | RunCode
 
 let useCompilerManager: (
   ~initialVersion: Semver.t=?,