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 -
    @@ -31,7 +31,7 @@ def equationsToHtml (i : DefinitionInfo) : HtmlM (Array Html) := do pure #[
    Equations -
    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 := 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 -
    -
    -
    +
    +
    + [attrsHtml] @@ -116,7 +116,7 @@ def docInfoToHtml (module : Name) (doc : DocInfo) : HtmlM Html := do def modDocToHtml (module : Name) (mdoc : ModuleDoc) : HtmlM Html := do pure -
    +
    [←docStringToHtml mdoc.doc]
    @@ -126,8 +126,8 @@ def moduleMemberToHtml (module : Name) (member : ModuleMember) : HtmlM Html := d | ModuleMember.modDoc d => modDocToHtml module d def declarationToNavLink (module : Name) : Html := -
    - {module.toString} + -- 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 -