Make compiler config camelCase

Author: fhammerschmidt

src/Playground.res

@@ -874,7 +874,7 @@ module Settings = {
     ~config: Api.Config.t,
     ~keyMapState: (CodeMirror.KeyMap.t, (CodeMirror.KeyMap.t => CodeMirror.KeyMap.t) => unit),
   ) => {
-    let {Api.Config.warn_flags: warn_flags} = config
+    let {Api.Config.warnFlags: warnFlags} = config
     let (keyMap, setKeyMap) = keyMapState
 
     let availableTargetLangs = Api.Version.availableLanguages(readyState.selected.apiVersion)
@@ -889,41 +889,41 @@ module Settings = {
         }
       let config = {
         ...config,
-        warn_flags: flags->normalizeEmptyFlags->WarningFlagDescription.Parser.tokensToString,
+        warnFlags: flags->normalizeEmptyFlags->WarningFlagDescription.Parser.tokensToString,
       }
       setConfig(config)
     }
 
-    let onModuleSystemUpdate = module_system => {
-      let config = {...config, module_system}
+    let onModuleSystemUpdate = moduleSystem => {
+      let config = {...config, moduleSystem}
       setConfig(config)
     }
 
     let onJsxPreserveModeUpdate = compilation => {
-      let jsx_preserve_mode = JsxCompilation.toBool(compilation)
-      let config = {...config, jsx_preserve_mode}
+      let jsxPreserveMode = JsxCompilation.toBool(compilation)
+      let config = {...config, jsxPreserveMode}
       setConfig(config)
     }
 
     let onExperimentalFeaturesUpdate = feature => {
-      let features = config.experimental_features->Option.getOr([])
+      let features = config.experimentalFeatures->Option.getOr([])
 
-      let experimental_features = if features->Array.includes(feature) {
+      let experimentalFeatures = if features->Array.includes(feature) {
         features->Array.filter(x => x !== feature)
       } else {
         [...features, feature]
       }
 
-      let config = {...config, experimental_features}
+      let config = {...config, experimentalFeatures}
       setConfig(config)
     }
 
-    let warnFlagTokens = WarningFlagDescription.Parser.parse(warn_flags)->Result.getOr([])
+    let warnFlagTokens = WarningFlagDescription.Parser.parse(warnFlags)->Result.getOr([])
 
     let onWarningFlagsResetClick = _evt => {
       setConfig({
         ...config,
-        warn_flags: "+a-4-9-20-40-41-42-50-61-102-109",
+        warnFlags: "+a-4-9-20-40-41-42-50-61-102-109",
       })
     }
 

src/bindings/RescriptCompilerApi.res

@@ -395,12 +395,12 @@ module ConversionResult = {
 
 module Config = {
   type t = {
-    module_system: string,
-    warn_flags: string,
+    @as("module_system") moduleSystem: string,
+    @as("warn_flags") warnFlags: string,
     uncurried?: bool,
-    open_modules?: array<string>,
-    experimental_features?: array<string>,
-    jsx_preserve_mode?: bool,
+    @as("open_modules") openModules?: array<string>,
+    @as("experimental_features") experimentalFeatures?: array<string>,
+    @as("jsx_preserve_mode") jsxPreserveMode?: bool,
   }
 }
 
@@ -486,13 +486,13 @@ module Compiler = {
     }
 
     Option.forEach(moduleSystem, moduleSystem => t->setModuleSystem(moduleSystem)->ignore)
-    Option.forEach(config.open_modules, modules => t->setOpenModules(modules)->ignore)
-    Option.forEach(config.experimental_features, features =>
+    Option.forEach(config.openModules, modules => t->setOpenModules(modules)->ignore)
+    Option.forEach(config.experimentalFeatures, features =>
       t->setExperimentalFeatures(features)->ignore
     )
-    Option.forEach(config.jsx_preserve_mode, toggle => t->setJsxPreserveMode(toggle)->ignore)
+    Option.forEach(config.jsxPreserveMode, toggle => t->setJsxPreserveMode(toggle)->ignore)
 
-    t->setWarnFlags(config.warn_flags)->ignore
+    t->setWarnFlags(config.warnFlags)->ignore
   }
 
   @send

src/bindings/RescriptCompilerApi.resi

@@ -159,14 +159,14 @@ module ConversionResult: {
 
 module Config: {
   type t = {
-    module_system: string,
-    warn_flags: string,
+    @as("module_system") moduleSystem: string,
+    @as("warn_flags") warnFlags: string,
     /** Only available in apiVersion > 3 (= ReScript 11+) */
     uncurried?: bool,
-    open_modules?: array<string>,
+    @as("open_modules") openModules?: array<string>,
     /** Only available in apiVersion >= 6 (= ReScript 12+) */
-    experimental_features?: array<string>,
-    jsx_preserve_mode?: bool,
+    @as("experimental_features") experimentalFeatures?: array<string>,
+    @as("jsx_preserve_mode") jsxPreserveMode?: bool,
   }
 }
 

src/common/CompilerManagerHook.res

@@ -207,13 +207,13 @@ let createUrl = (pathName, ready) => {
   }
 
   Array.push(params, (Version, "v" ++ ready.selected.compilerVersion))
-  Array.push(params, (Module, ready.selected.config.module_system))
+  Array.push(params, (Module, ready.selected.config.moduleSystem))
 
-  if ready.selected.config.jsx_preserve_mode->Option.getOr(false) {
+  if ready.selected.config.jsxPreserveMode->Option.getOr(false) {
     Array.push(params, (JsxPreserve, "true"))
   }
 
-  switch ready.selected.config.experimental_features {
+  switch ready.selected.config.experimentalFeatures {
   | Some([]) | None => ()
   | Some(features) => Array.push(params, (Experiments, features->Array.join(",")))
   }
@@ -436,7 +436,7 @@ let useCompilerManager = (
             | Ok() =>
               let instance = Compiler.make()
               let apiVersion = apiVersion->Version.fromString
-              let open_modules = getOpenModules(~apiVersion, ~libraries)
+              let openModules = getOpenModules(~apiVersion, ~libraries)
 
               // Note: The compiler bundle currently defaults to
               // commonjs when initiating the compiler, but our playground
@@ -445,10 +445,10 @@ let useCompilerManager = (
               // internal compiler state with our playground state.
               let config = {
                 ...instance->Compiler.getConfig,
-                module_system: initialModuleSystem,
-                experimental_features: initialExperimentalFeatures,
-                jsx_preserve_mode: initialJsxPreserveMode,
-                ?open_modules,
+                moduleSystem: initialModuleSystem,
+                experimentalFeatures: initialExperimentalFeatures,
+                jsxPreserveMode: initialJsxPreserveMode,
+                ?openModules,
               }
               instance->Compiler.setConfig(config)
 
@@ -503,12 +503,12 @@ let useCompilerManager = (
 
           let instance = Compiler.make()
           let apiVersion = apiVersion->Version.fromString
-          let open_modules = getOpenModules(~apiVersion, ~libraries)
+          let openModules = getOpenModules(~apiVersion, ~libraries)
 
           let config = {
             ...instance->Compiler.getConfig,
-            module_system: defaultModuleSystem,
-            ?open_modules,
+            moduleSystem: defaultModuleSystem,
+            ?openModules,
           }
           instance->Compiler.setConfig(config)