fix bindings to lzstring

Author: jderochervlk

package-lock.json

@@ -41,7 +41,7 @@
     "highlight.js": "^11.11.1",
     "highlightjs-rescript": "^0.2.2",
     "isbot": "^5",
-    "lz-string": "^1.4.4",
+    "lz-string": "^1.5.0",
     "mdast-util-from-markdown": "^2.0.2",
     "mdast-util-toc": "^7.1.0",
     "react": "^19.1.0",
@@ -76,4 +76,4 @@
     "vite-plugin-devtools-json": "^1.0.0",
     "vite-plugin-env-compatible": "^2.0.1"
   }
-}
+}

package.json

@@ -1548,7 +1548,7 @@ let make = (~bundleBaseUrl: string, ~versions: array<string>) => {
     ->Option.mapOr([], str => str->String.split(",")->Array.map(String.trim))
 
   let initialContent = switch (searchParams->Object.get((Code :> string)), initialLang) {
-  | (Some(compressedCode), _) => LzString.decompressToEncodedURIComponent(compressedCode)
+  | (Some(compressedCode), _) => LzString.lzString.decompressToEncodedURIComponent(compressedCode)
   | (None, Reason) => initialReContent
   | (None, Res) =>
     switch initialVersion {

src/Playground.res

@@ -219,7 +219,7 @@ let createUrl = (pathName, ready) => {
   }
 
   // Put code last as it is the longest param.
-  Array.push(params, (Code, ready.code->LzString.compressToEncodedURIComponent))
+  Array.push(params, (Code, ready.code->LzString.lzString.compressToEncodedURIComponent))
 
   let querystring =
     params->Array.map(((key, value)) => (key :> string) ++ "=" ++ value)->Array.join("&")

src/common/CompilerManagerHook.res

@@ -1,7 +1,9 @@
 // Used for compressing / decompressing code for url sharing
 
-@module("lz-string")
-external compressToEncodedURIComponent: string => string = "compressToEncodedURIComponent"
+type t = {
+  compressToEncodedURIComponent: string => string,
+  decompressToEncodedURIComponent: string => string,
+}
 
 @module("lz-string")
-external decompressToEncodedURIComponent: string => string = "decompressFromEncodedURIComponent"
+external lzString: t = "default"

src/common/LzString.res

@@ -247,18 +247,15 @@ module Toggle = {
         open ReactRouter
         let playgroundLinkButton =
           tab->isReScript
-            ? <Link.Path
-                to={
-                  pathname: #"/try",
-                  search: `?code=${encodeURIComponent(tab.code)}`,
-                }
+            ? <Link.String
+                to={`/try?code=${LzString.lzString.compressToEncodedURIComponent(tab.code)}`}
                 target="_blank"
               >
                 // ICON Link to PLAYGROUND
                 <Icon.ExternalLink
                   className="text-gray-30 mt-px hover:cursor-pointer hover:text-gray-60 hover:bg-gray-30 w-6 h-6 p-1 rounded transition-all duration-300 ease-in-out"
                 />
-              </Link.Path>
+              </Link.String>
             : React.null
 
         let copyButton = <CopyButton code={tab.code} />