Add share link button functionality

Also remove build time metric

Author: ryyppy

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",