Merge pull request rescript-lang#58 from reason-association/playground-share

Playground share functionality

Author: ryyppy

bindings/Bs_platform_api.re

@@ -430,10 +430,22 @@ module Compiler = {
   // General format function
   let convertSyntax =
       (t, ~fromLang: Lang.t, ~toLang: Lang.t, ~code: string)
-      : ConversionResult.t => {
-    convertSyntax(t, Lang.toExt(fromLang), Lang.toExt(toLang), code)
-    ->ConversionResult.decode(~fromLang, ~toLang);
-  };
+      : ConversionResult.t =>
+
+        // TODO: There is an issue where trying to convert an empty Reason code
+        //       to ReScript code would throw an unhandled JSOO exception
+        //       we'd either need to special case the empty Reason code parsing,
+        //       or handle the error on the JSOO bundle side more gracefully
+    try(
+      convertSyntax(t, Lang.toExt(fromLang), Lang.toExt(toLang), code)
+      ->ConversionResult.decode(~fromLang, ~toLang)
+    ) {
+    | Js.Exn.Error(obj) =>
+      switch (Js.Exn.message(obj)) {
+      | Some(m) => ConversionResult.UnexpectedError(m)
+      | None => UnexpectedError("")
+      }
+    };
 };
 
 [@bs.val] [@bs.scope "bs_platform"]

bindings/Next.re

@@ -102,11 +102,13 @@ module Router = {
     route: string,
     asPath: string,
     events: Events.t,
+    query: Js.Dict.t(string),
   };
 
-  [@bs.send] external push: (router, string ) => unit = "push";
+  [@bs.send] external push: (router, string) => unit = "push";
 
   [@bs.module "next/router"] external useRouter: unit => router = "useRouter";
+  [@bs.send] external replace: (router, string) => unit = "replace";
 };
 
 module Head = {

common/CompilerManagerHook.re

@@ -142,7 +142,7 @@ type ready = {
 type state =
   | Init
   | SetupFailed(string)
-  | SwitchingCompiler(ready, string, array(string))
+  | SwitchingCompiler(ready, string, array(string)) // (ready, targetId, libraries)
   | Ready(ready)
   | Compiling(ready, (Lang.t, string));
 
@@ -159,13 +159,19 @@ type action =
   | CompileCode(Lang.t, string)
   | UpdateConfig(Config.t);
 
-// onAction: This function is especially useful if you want to maintain
-//           state that depends on any action happening in the compiler, no
-//           matter if a state transition happened, or not.
-//           We need that for a ActivityIndicator component to give feedback
-//           to the user that an action happened (useful in cases where the output
-//           didn't visually change)
-let useCompilerManager = (~onAction: option(action => unit)=?, ()) => {
+// ~initialLang:
+// The target language the compiler should be set to during
+// playground initialization.  If the compiler doesn't support the language, it
+// will default to ReScript syntax
+//
+// ~onAction:
+//  This function is especially useful if you want to maintain state that
+//  depends on any action happening in the compiler, no matter if a state
+//  transition happened, or not.  We need that for a ActivityIndicator
+//  component to give feedback to the user that an action happened (useful in
+//  cases where the output didn't visually change)
+let useCompilerManager =
+    (~initialLang: Lang.t=Res, ~onAction: option(action => unit)=?, ()) => {
   let (state, setState) = React.useState(_ => Init);
 
   // Dispatch method for the public interface
@@ -365,10 +371,17 @@ let useCompilerManager = (~onAction: option(action => unit)=?, ()) => {
                       instance,
                     };
 
+                    let targetLang =
+                      Version.availableLanguages(apiVersion)
+                      ->Js.Array2.find(l => {l === initialLang})
+                      ->Belt.Option.getWithDefault(
+                          Version.defaultTargetLang(apiVersion),
+                        );
+
                     setState(_ => {
                       Ready({
                         selected,
-                        targetLang: Version.defaultTargetLang(apiVersion),
+                        targetLang,
                         versions,
                         errors: [||],
                         result: FinalResult.Nothing,

package.json

@@ -20,6 +20,7 @@
     "glob": "^7.1.4",
     "gray-matter": "^4.0.2",
     "highlight.js": "^9.15.10",
+    "lz-string": "^1.4.4",
     "next": "^9.5.1",
     "next-transpile-modules": "^2.3.1",
     "prettier": "^1.18.2",