71 lines
2.3 KiB
Plaintext
71 lines
2.3 KiB
Plaintext
/-
|
|
Copyright (c) 2021 Henrik Böving. All rights reserved.
|
|
Released under Apache 2.0 license as described in the file LICENSE.
|
|
Authors: Henrik Böving
|
|
-/
|
|
import DocGen4.Output.ToHtmlFormat
|
|
import DocGen4.Output.Navbar
|
|
|
|
namespace DocGen4
|
|
namespace Output
|
|
|
|
open scoped DocGen4.Jsx
|
|
|
|
/--
|
|
The HTML template used for all pages.
|
|
-/
|
|
def baseHtmlGenerator (title : String) (site : Array Html) : BaseHtmlM Html := do
|
|
let moduleConstant :=
|
|
if let some module := ← getCurrentName then
|
|
#[<script>{s!"const MODULE_NAME={String.quote module.toString};"}</script>]
|
|
else
|
|
#[]
|
|
pure
|
|
<html lang="en">
|
|
<head>
|
|
[← baseHtmlHeadDeclarations]
|
|
|
|
<title>{title}</title>
|
|
<script defer="true" src={s!"{← getRoot}mathjax-config.js"}></script>
|
|
<script defer="true" src="https://polyfill.io/v3/polyfill.min.js?features=es6"></script>
|
|
<script defer="true" src="https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js"></script>
|
|
|
|
<script>{s!"const SITE_ROOT={String.quote (← getRoot)};"}</script>
|
|
[moduleConstant]
|
|
<script type="module" src={s!"{← getRoot}search.js"}></script>
|
|
<script type="module" src={s!"{← getRoot}how-about.js"}></script>
|
|
<script type="module" src={s!"{← getRoot}instances.js"}></script>
|
|
<script type="module" src={s!"{← getRoot}importedBy.js"}></script>
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<input id="nav_toggle" type="checkbox"/>
|
|
|
|
<header>
|
|
<h1><label for="nav_toggle"></label>Documentation</h1>
|
|
<p class="header_filename break_within">{title}</p>
|
|
-- TODO: Replace this form with our own search
|
|
<form action="https://google.com/search" method="get" id="search_form">
|
|
<input type="hidden" name="sitesearch" value="https://leanprover-community.github.io/mathlib4_docs"/>
|
|
<input type="text" name="q" autocomplete="off"/> 
|
|
<button>Google site search</button>
|
|
</form>
|
|
</header>
|
|
|
|
[site]
|
|
|
|
<nav class="nav">
|
|
<iframe src={s!"{← getRoot}navbar.html"} class="navframe" frameBorder="0"></iframe>
|
|
</nav>
|
|
</body>
|
|
</html>
|
|
|
|
/--
|
|
A comfortability wrapper around `baseHtmlGenerator`.
|
|
-/
|
|
def baseHtml (title : String) (site : Html) : BaseHtmlM Html := baseHtmlGenerator title #[site]
|
|
|
|
end Output
|
|
end DocGen4
|