Playground: auto-open @rescript/core when loaded

Author: fhammerschmidt

src/Playground.res

@@ -902,9 +902,16 @@ module Settings = {
 
     let onResetClick = evt => {
       ReactEvent.Mouse.preventDefault(evt)
+
+      let open_modules =
+        readyState.selected.libraries->Belt.Array.some(el => el === "@rescript/core")
+          ? Some(["RescriptCore"])
+          : None
+
       let defaultConfig = {
         Api.Config.module_system: "nodejs",
         warn_flags: "+a-4-9-20-40-41-42-50-61-102-109",
+        ?open_modules,
       }
       setConfig(defaultConfig)
     }

src/bindings/RescriptCompilerApi.res

@@ -348,6 +348,7 @@ module Config = {
     module_system: string,
     warn_flags: string,
     uncurried?: bool,
+    open_modules?: array<string>,
   }
 }
 
@@ -423,6 +424,8 @@ module Compiler = {
 
   @send external setWarnFlags: (t, string) => bool = "setWarnFlags"
 
+  @send external setOpenModules: (t, array<string>) => bool = "setOpenModules"
+
   let setConfig = (t: t, config: Config.t): unit => {
     let moduleSystem = switch config.module_system {
     | "nodejs" => #nodejs->Some
@@ -431,6 +434,7 @@ module Compiler = {
     }
 
     Belt.Option.forEach(moduleSystem, moduleSystem => t->setModuleSystem(moduleSystem)->ignore)
+    Belt.Option.forEach(config.open_modules, modules => t->setOpenModules(modules)->ignore)
 
     t->setWarnFlags(config.warn_flags)->ignore
   }

src/bindings/RescriptCompilerApi.resi

@@ -159,6 +159,7 @@ module Config: {
     warn_flags: string,
     /** Only available in apiVersion > 3 (= ReScript 11+) */
     uncurried?: bool,
+    open_modules?: array<string>,
   }
 }
 
@@ -197,6 +198,7 @@ module Compiler: {
   let setModuleSystem: (t, [#es6 | #nodejs]) => bool
 
   let setWarnFlags: (t, string) => bool
+  let setOpenModules: (t, array<string>) => bool
   let setConfig: (t, Config.t) => unit
 
   // General format function