package html_of_jsx
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page
Render HTML with JSX
Install
dune-project
Dependency
Authors
Maintainers
Sources
html_of_jsx-0.0.9.tbz
sha256=edc7d6d604820ef20d76611eaf7fdc29c691dd9fb48ed9930900f7f331dfea02
sha512=35eead27322cc1d3b34e32ed964449ff83a75f74f01c1127d54504145192b9c7726820f4825f5c793bde0887df202e4769946782d4f42c40b3a5a609daa4aada
doc/dream.html
Integrate with Dream
Use html_of_jsx to render pages and fragments in a Dream web server.
Dune setup
(executable
(name server)
(libraries dream html_of_jsx)
(preprocess (pps html_of_jsx.ppx)))Rendering a page
Use JSX.render to produce an HTML string and return it with Dream.html:
let page = (~title, ~children, ()) => {
<html lang="en">
<head> <title> {JSX.string(title)} </title> </head>
<body> {children} </body>
</html>;
};
let () =
Dream.run
@@ Dream.router([
Dream.get("/", _req =>
Dream.html(JSX.render(
<page title="Home">
<h1> {JSX.string("Welcome")} </h1>
</page>
))
),
]);let page ~title ~children () =
<html lang="en">
<head><title>(JSX.string title)</title></head>
<body>(children)</body>
</html>
let () =
Dream.run
@@ Dream.router [
Dream.get "/" (fun _req ->
Dream.html (JSX.render (
<page title="Home">
<h1>(JSX.string "Welcome")</h1>
</page>
))
);
]Streaming
For large pages, stream HTML chunks directly into the response body with JSX.render_streaming:
Dream.get("/stream", _req =>
Dream.stream(~headers=[("Content-Type", "text/html")], stream => {
JSX.render_streaming(
chunk => Dream.write(stream, chunk),
<page title="Streamed">
<p> {JSX.string("This page is streamed")} </p>
</page>,
);
Dream.close(stream);
})
)Dream.get "/stream" (fun _req ->
Dream.stream ~headers:[("Content-Type", "text/html")] (fun stream ->
JSX.render_streaming
(fun chunk -> Dream.write stream chunk)
(<page title="Streamed">
<p>(JSX.string "This page is streamed")</p>
</page>);
Dream.close stream))
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>
On This Page