diff --git a/DocGen4/Output/Definition.lean b/DocGen4/Output/Definition.lean
index 66cf347..3e0b146 100644
--- a/DocGen4/Output/Definition.lean
+++ b/DocGen4/Output/Definition.lean
@@ -11,7 +11,7 @@ open Lean Widget
def equationLimit : Nat := 200
def equationToHtml (c : CodeWithInfos) : HtmlM Html := do
- pure
[←infoFormatToHtml c]
+ pure
[←infoFormatToHtml c]
def equationsToHtml (i : DefinitionInfo) : HtmlM (Array Html) := do
if let some eqs := i.equations then
@@ -21,8 +21,8 @@ def equationsToHtml (i : DefinitionInfo) : HtmlM (Array Html) := do
pure #[
Equations
-
-
One or more equations did not get rendered due to their size.
+
+
One or more equations did not get rendered due to their size.
[filteredEquationsHtml]
@@ -31,7 +31,7 @@ def equationsToHtml (i : DefinitionInfo) : HtmlM (Array Html) := do
pure #[
Equations
-
+
[filteredEquationsHtml]
diff --git a/DocGen4/Output/Inductive.lean b/DocGen4/Output/Inductive.lean
index ab29718..a51031a 100644
--- a/DocGen4/Output/Inductive.lean
+++ b/DocGen4/Output/Inductive.lean
@@ -9,7 +9,7 @@ open scoped DocGen4.Jsx
def ctorToHtml (i : NameInfo) : HtmlM Html := do
let shortName := i.name.components'.head!.toString
let name := i.name.toString
- pure
{shortName} : [←infoFormatToHtml i.type]
+ pure
{shortName} : [←infoFormatToHtml i.type]
def inductiveToHtml (i : InductiveInfo) : HtmlM (Array Html) := do
let constructorsHtml :=
[← i.ctors.toArray.mapM ctorToHtml]
diff --git a/DocGen4/Output/Module.lean b/DocGen4/Output/Module.lean
index a703ccf..062a3ca 100644
--- a/DocGen4/Output/Module.lean
+++ b/DocGen4/Output/Module.lean
@@ -33,17 +33,17 @@ def argToHtml (arg : Arg) : HtmlM Html := do
let inner := Html.element "span" true #[("class", "fn")] nodes
let html := Html.element "span" false #[("class", "decl_args")] #[inner]
if implicit then
- pure {html}
+ pure {html}
else
pure html
def structureInfoHeader (s : StructureInfo) : HtmlM (Array Html) := do
let mut nodes := #[]
if s.parents.size > 0 then
- nodes := nodes.push extends
+ nodes := nodes.push extends
let mut parents := #[]
for parent in s.parents do
- let link := {parent.toString}
+ let link := {parent.toString}
let inner := Html.element "span" true #[("class", "fn")] #[link]
let html:= Html.element "span" false #[("class", "decl_parent")] #[inner]
parents := parents.push html
@@ -52,10 +52,10 @@ def structureInfoHeader (s : StructureInfo) : HtmlM (Array Html) := do
def docInfoHeader (doc : DocInfo) : HtmlM Html := do
let mut nodes := #[]
- nodes := nodes.push {doc.getKindDescription}
+ nodes := nodes.push {doc.getKindDescription}
nodes := nodes.push
-
-
+
+
-- TODO: HTMLify the name
{doc.getName.toString}
@@ -69,9 +69,9 @@ def docInfoHeader (doc : DocInfo) : HtmlM Html := do
| DocInfo.classInfo i => nodes := nodes.append (←structureInfoHeader i.toStructureInfo)
| _ => nodes := nodes
- nodes := nodes.push :
+ nodes := nodes.push :
nodes := nodes.push $ Html.element "div" true #[("class", "decl_type")] (←infoFormatToHtml doc.getType)
- pure
[nodes]
+ pure
[nodes]
def docInfoToHtml (module : Name) (doc : DocInfo) : HtmlM Html := do
-- basic info like headers, types, structure fields, etc.
@@ -101,9 +101,9 @@ def docInfoToHtml (module : Name) (doc : DocInfo) : HtmlM Html := do
#[]
pure
-
-- TODO: Similar functions are used all over the place, we should dedup them
@@ -165,10 +165,10 @@ def importsHtml (moduleName : Name) : HtmlM (Array Html) := do
def internalNav (members : Array Name) (moduleName : Name) : HtmlM Html := do
pure
-