r
/
bookshelf-doc
mirror of https://github.com/jrpotter/bookshelf-doc
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity

feat: List of declarations in internal navbar

main
Henrik Böving 2022-01-07 17:43:49 +01:00
parent 82f63cb613
commit 2de568d5ca
2 changed files with 22 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
DocGen4/Output/Module.lean
View File

@ -89,14 +89,27 @@ def docInfoToHtml (doc : DocInfo) : HtmlM Html := do
</div>
</div>
def moduleToNavLink (module : Name) : Html :=
<div «class»="nav_link">
<a «class»="break_within" href={s!"#{module.toString}"}>{module.toString}</a>
</div>
def internalNav (members : Array Name) (moduleName : Name) : Html :=
<nav «class»="internal_nav">
<h3><a «class»="break_within" href="#top">{moduleName.toString}</a></h3>
-- TODO: Proper source links
<p «class»="gh_nav_link"><a href="https://github.com">source</a></p>
[members.map moduleToNavLink]
</nav>
def moduleToHtml (module : Module) : HtmlM Html := withReader (setCurrentName module.name) do
-- TODO: Probably some sort of ordering by line number would be cool?
-- maybe they should already be ordered in members.
let sortedMembers := module.members.qsort (λ l r => l.getDeclarationRange.pos.line < r.getDeclarationRange.pos.line)
let docInfos ← sortedMembers.mapM docInfoToHtml
-- TODO: This is missing imports, imported by, source link, list of decls
templateExtends (baseHtml module.name.toString) $
-- TODO: This is missing imports, imported by
templateExtends (baseHtmlArray module.name.toString) $ #[
internalNav (sortedMembers.map DocInfo.getName) module.name,
Html.element "main" false #[] docInfos
]
end Output
end DocGen4

9
DocGen4/Output/Template.lean
View File

@ -11,7 +11,7 @@ namespace Output
open scoped DocGen4.Jsx
def baseHtml (title : String) (site : Html) : HtmlM Html := do
def baseHtmlArray (title : String) (site : Array Html) : HtmlM Html := do
<html lang="en">
<head>
<link rel="stylesheet" href={s!"{←getRoot}style.css"}/>
@ -37,9 +37,7 @@ def baseHtml (title : String) (site : Html) : HtmlM Html := do
</form>
</header>
<nav «class»="internal_nav"></nav>
{site}
[site]
{←navbar}
@ -53,5 +51,8 @@ def baseHtml (title : String) (site : Html) : HtmlM Html := do
</body>
</html>
def baseHtml (title : String) (site : Html) : HtmlM Html := baseHtmlArray title #[site]
end Output
end DocGen4