refactor

Author: aspeddro

rescript.json

@@ -29,9 +29,6 @@
     "error": "+8"
   },
   "suffix": ".mjs",
-  "bsc-flags": [
-    "-bs-g"
-  ],
   "gentypeconfig": {
     "language": "untyped",
     "shims": [],

src/ApiDocs.res

@@ -184,13 +184,11 @@ type params = {slug: array<string>}
 type props = result<api, string>
 
 module MarkdownStylize = {
-  external asMarkdownH2: 'a => Markdown.H2.props<string, React.element> => React.element =
-    "%identity"
   @react.component
-  let make = (~content, ~rehypePlugins: option<array<MdxRemote.mdxPlugin>>=?) => {
+  let make = (~content, ~rehypePlugins) => {
     let components = {
       ...MarkdownComponents.default,
-      h2: MarkdownComponents.default.h3->asMarkdownH2,
+      h2: MarkdownComponents.default.h3->Obj.magic,
     }
     <ReactMarkdown components={components} ?rehypePlugins> content </ReactMarkdown>
   }
@@ -203,19 +201,18 @@ module DeprecatedMessage = {
     | Some(content) =>
       <Markdown.Warn>
         <h4 className={"hl-4 mb-2"}> {"Deprecated"->React.string} </h4>
-        <MarkdownStylize content />
+        <MarkdownStylize content rehypePlugins=None />
       </Markdown.Warn>
     | None => React.null
     }
   }
 }
 
 module DocstringsStylize = {
-  external asMdxPlugin: 'a => MdxRemote.mdxPlugin = "%identity"
   @react.component
   let make = (~docstrings, ~slugPrefix) => {
-    let options = {"prefix": slugPrefix ++ "-"}->asMdxPlugin
-    let rehypePlugins = [[MdxRemote.rehypeSlug, options]->asMdxPlugin]
+    let rehypePlugins =
+      [Rehype.WithOptions([Plugin(Rehype.slug), SlugOption({prefix: slugPrefix ++ "-"})])]->Some
 
     let content = switch docstrings->Js.Array2.length > 1 {
     | true => docstrings->Js.Array2.sliceFrom(1)
@@ -389,8 +386,6 @@ module Data = {
   }
 }
 
-external asTocTree: Js.Json.t => node = "%identity"
-
 let processStaticProps = (~slug: array<string>, ~version: string) => {
   let moduleName = slug->Belt.Array.getExn(0)
   let content = Data.getVersion(~version, ~moduleName)
@@ -472,7 +467,7 @@ let processStaticProps = (~slug: array<string>, ~version: string) => {
         let toctree = tree->Js.Dict.get(moduleName)
 
         switch toctree {
-        | Some(toctree) => Ok({module_, toctree: toctree->asTocTree})
+        | Some(toctree) => Ok({module_, toctree: (Obj.magic(toctree): node)})
         | None => Error(`Failed to find toctree to ${modulePath}`)
         }
       | _ => Error(`Failed to find module ${modulePath}`)

src/bindings/MdxRemote.res

@@ -1,10 +1,8 @@
 type output = {frontmatter: Js.Json.t, compiledSource: string, scope: Js.Json.t}
 
-type mdxPlugin
-
 type mdxOptions = {
-  remarkPlugins?: array<mdxPlugin>,
-  rehypePlugins?: array<mdxPlugin>,
+  remarkPlugins?: array<Remark.remarkPlugin>,
+  rehypePlugins?: array<Rehype.rehypePlugin>,
 }
 
 type serializeOptions = {
@@ -15,14 +13,13 @@ type serializeOptions = {
 @module("next-mdx-remote/serialize")
 external serialize: (string, serializeOptions) => promise<output> = "serialize"
 
-@module("remark-comment") external remarkComment: mdxPlugin = "default"
-@module("remark-gfm") external remarkGfm: mdxPlugin = "default"
-@module("remark-frontmatter") external remarkFrontmatter: mdxPlugin = "default"
-@module("rehype-slug") external rehypeSlug: mdxPlugin = "default"
-
 let defaultMdxOptions = {
-  remarkPlugins: [remarkComment, remarkGfm, remarkFrontmatter],
-  rehypePlugins: [rehypeSlug],
+  rehypePlugins: [Rehype.Plugin(Rehype.slug)],
+  remarkPlugins: [
+    Remark.Plugin(Remark.comment),
+    Remark.Plugin(Remark.gfm),
+    Remark.Plugin(Remark.frontmatter),
+  ],
 }
 
 @react.component @module("next-mdx-remote")

src/bindings/ReactMarkdown.res

@@ -2,5 +2,6 @@
 external make: (
   ~children: string,
   ~components: MarkdownComponents.t=?,
-  ~rehypePlugins: array<MdxRemote.mdxPlugin>=?,
-) => React.element = "default"
+  ~rehypePlugins: array<Rehype.rehypePlugin>=?,
+) => // ~rehypePlugins: array<MdxRemote.mdxPlugin>=?,
+React.element = "default"

src/bindings/Rehype.res

@@ -0,0 +1,15 @@
+type io
+type processor
+type plugin = processor => io
+
+@unboxed
+type pluginOrOption =
+  | Plugin(plugin)
+  | SlugOption({prefix: string})
+
+@unboxed
+type rec rehypePlugin =
+  | Plugin(processor => io)
+  | WithOptions(array<pluginOrOption>)
+
+@module("rehype-slug") external slug: plugin = "default"

src/bindings/Remark.res

@@ -0,0 +1,15 @@
+type io
+type processor
+type plugin = processor => io
+
+@unboxed
+type pluginOrOption = Plugin(plugin)
+
+@unboxed
+type rec remarkPlugin =
+  | Plugin(processor => io)
+  | WithOptions(array<pluginOrOption>)
+
+@module("remark-comment") external comment: plugin = "default"
+@module("remark-gfm") external gfm: plugin = "default"
+@module("remark-frontmatter") external frontmatter: plugin = "default"