2023-05-11 13:27:25 +00:00
|
|
|
/-
|
|
|
|
|
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 Lean
|
|
|
|
|
import DocGen4.Output.ToHtmlFormat
|
|
|
|
|
import DocGen4.Output.Base
|
|
|
|
|
|
|
|
|
|
namespace DocGen4
|
|
|
|
|
namespace Output
|
|
|
|
|
|
|
|
|
|
open Lean
|
|
|
|
|
open scoped DocGen4.Jsx
|
|
|
|
|
|
2023-05-11 13:55:25 +00:00
|
|
|
def moduleListFile (file : NameExt) : BaseHtmlM Html := do
|
|
|
|
|
return <div class={if (← getCurrentName) == file.name then "nav_link visible" else "nav_link"}>
|
|
|
|
|
<a href={← moduleNameExtToLink file}>{file.getString!}</a>
|
2023-05-11 13:27:25 +00:00
|
|
|
</div>
|
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
Build the HTML tree representing the module hierarchy.
|
|
|
|
|
-/
|
|
|
|
|
partial def moduleListDir (h : Hierarchy) : BaseHtmlM Html := do
|
|
|
|
|
let children := Array.mk (h.getChildren.toList.map Prod.snd)
|
|
|
|
|
let dirs := children.filter (fun c => c.getChildren.toList.length != 0)
|
|
|
|
|
let files := children.filter (fun c => Hierarchy.isFile c && c.getChildren.toList.length = 0)
|
2023-05-11 13:55:25 +00:00
|
|
|
|>.map Hierarchy.getNameExt
|
2023-05-11 13:27:25 +00:00
|
|
|
let dirNodes ← dirs.mapM moduleListDir
|
|
|
|
|
let fileNodes ← files.mapM moduleListFile
|
2023-05-11 13:55:25 +00:00
|
|
|
let moduleLink ← moduleNameToHtmlLink h.getName
|
2023-05-11 13:27:25 +00:00
|
|
|
let summary :=
|
|
|
|
|
if h.isFile then
|
2023-05-11 13:55:25 +00:00
|
|
|
<summary>{s!"{h.getName.getString!} ({<a href={← moduleNameToHtmlLink h.getName}>file</a>})"} </summary>
|
2023-05-11 13:27:25 +00:00
|
|
|
else
|
|
|
|
|
<summary>{h.getName.getString!}</summary>
|
|
|
|
|
|
|
|
|
|
pure
|
|
|
|
|
<details class="nav_sect" "data-path"={moduleLink} [if (← getCurrentName).any (h.getName.isPrefixOf ·) then #[("open", "")] else #[]]>
|
|
|
|
|
{summary}
|
|
|
|
|
[dirNodes]
|
|
|
|
|
[fileNodes]
|
|
|
|
|
</details>
|
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
Return a list of top level modules, linkified and rendered as HTML
|
|
|
|
|
-/
|
|
|
|
|
def moduleList : BaseHtmlM Html := do
|
|
|
|
|
let hierarchy ← getHierarchy
|
|
|
|
|
let mut list := Array.empty
|
|
|
|
|
for (_, cs) in hierarchy.getChildren do
|
|
|
|
|
list := list.push <| ← moduleListDir cs
|
|
|
|
|
return <div class="module_list">[list]</div>
|
|
|
|
|
|
|
|
|
|
/--
|
|
|
|
|
The main entry point to rendering the navbar on the left hand side.
|
|
|
|
|
-/
|
|
|
|
|
def navbar : BaseHtmlM Html := do
|
|
|
|
|
pure
|
|
|
|
|
<html lang="en">
|
|
|
|
|
<head>
|
|
|
|
|
[← baseHtmlHeadDeclarations]
|
|
|
|
|
|
|
|
|
|
<script type="module" src={s!"{← getRoot}nav.js"}></script>
|
|
|
|
|
<base target="_parent" />
|
|
|
|
|
</head>
|
|
|
|
|
|
|
|
|
|
<body>
|
|
|
|
|
<div class="navframe">
|
|
|
|
|
<nav class="nav">
|
|
|
|
|
<h3>General documentation</h3>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}"}>index</a></div>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}foundational_types.html"}>foundational types</a></div>
|
|
|
|
|
/-
|
|
|
|
|
TODO: Add these in later
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}tactics.html"}>tactics</a></div>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}commands.html"}>commands</a></div>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}hole_commands.html"}>hole commands</a></div>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}attributes.html"}>attributes</a></div>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}notes.html"}>notes</a></div>
|
|
|
|
|
<div class="nav_link"><a href={s!"{← getRoot}references.html"}>references</a></div>
|
|
|
|
|
-/
|
|
|
|
|
<h3>Library</h3>
|
|
|
|
|
{← moduleList}
|
|
|
|
|
</nav>
|
|
|
|
|
</div>
|
|
|
|
|
</body>
|
|
|
|
|
</html>
|
|
|
|
|
|
|
|
|
|
end Output
|
|
|
|
|
end DocGen4
|
