We define a representation of HTML trees together with a JSX-like DSL for writing them.

inductive ProofWidgets.Html : Type

A HTML tree which may contain widget components.

• element : String → Array (String × Lean.Json) → Array Html → Html

  An element "tag" attrs children represents <tag {...attrs}>{...children}</tag>.

• text : String → Html

  Raw HTML text.

• component : UInt64 → String → LazyEncodable Lean.Json → Array Html → Html

  A component h e props children represents <Foo {...props}>{...children}</Foo>, where Foo : Component Props is some component such that h = hash Foo.javascript, e = Foo.«export», and props will produce a JSON-encoded value of type Props.

instance ProofWidgets.instInhabitedHtml : Inhabited Html

Equations

• ProofWidgets.instInhabitedHtml = { default := ProofWidgets.Html.element default default default }

instance ProofWidgets.instRpcEncodableHtml : Lean.Server.RpcEncodable Html

Equations

• ProofWidgets.instRpcEncodableHtml = { rpcEncode := ProofWidgets.instRpcEncodableHtml.enc✝, rpcDecode := ProofWidgets.instRpcEncodableHtml.dec✝ }

def ProofWidgets.Html.ofComponent {Props : Type} [Lean.Server.RpcEncodable Props] (c : Component Props) (props : Props) (children : Array Html) : Html

Equations

• <c {...props}>{...children}</c> = ProofWidgets.Html.component (hash c.javascript) c.export (Lean.Server.rpcEncode props) children

inductive ProofWidgets.LayoutKind : Type

See MDN docs.

• block : LayoutKind
• inline : LayoutKind

def Lean.Parser.Category.jsxElement : Category

Equations

• Lean.Parser.Category.jsxElement = { }

def ProofWidgets.Jsx.jsxElement.quot : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.jsxChild.quot : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def Lean.Parser.Category.jsxChild : Category

Equations

• Lean.Parser.Category.jsxChild = { }

def Lean.Parser.Category.jsxAttr : Category

Equations

• Lean.Parser.Category.jsxAttr = { }

def ProofWidgets.Jsx.jsxAttr.quot : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def Lean.Parser.Category.jsxAttrVal : Category

Equations

• Lean.Parser.Category.jsxAttrVal = { }

def ProofWidgets.Jsx.jsxAttrVal.quot : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.jsxAttrVal_ : Lean.ParserDescr

Equations

• ProofWidgets.Jsx.jsxAttrVal_ = Lean.ParserDescr.node `ProofWidgets.Jsx.jsxAttrVal_ 1022 (Lean.ParserDescr.const `str)

def ProofWidgets.Jsx.«jsxAttrVal{_}» : Lean.ParserDescr

Interpolates an expression into a JSX attribute literal.

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.«jsxAttr_=_» : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.«jsxAttr{..._}» : Lean.ParserDescr

Interpolates a collection into a JSX attribute literal. For HTML tags, this should have type Array (String × Json). For ProofWidgets.Components, it can be any structure $t whatsoever: it is interpolated into the component's props using { $t with ... } notation.

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.jsxTextForbidden : String

Characters not allowed inside JSX plain text.

Equations

• ProofWidgets.Jsx.jsxTextForbidden = "{<>}$"

def ProofWidgets.Jsx.jsxText : Lean.Parser.Parser

A plain text literal for JSX (notation for Html.text).

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.getJsxText : Lean.TSyntax `ProofWidgets.Jsx.jsxText → String

Equations

• ProofWidgets.Jsx.getJsxText x✝ = x✝.raw[0].getAtomVal

def ProofWidgets.Jsx.jsxText.formatter : Lean.PrettyPrinter.Formatter

Equations

• ProofWidgets.Jsx.jsxText.formatter = Lean.PrettyPrinter.Formatter.visitAtom `ProofWidgets.Jsx.jsxText

def ProofWidgets.Jsx.jsxText.parenthesizer : Lean.PrettyPrinter.Parenthesizer

Equations

• ProofWidgets.Jsx.jsxText.parenthesizer = Lean.PrettyPrinter.Parenthesizer.visitToken

def ProofWidgets.Jsx.«jsxElement<__/>» : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.«jsxElement<__>_</_>» : Lean.ParserDescr

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.jsxChild_ : Lean.ParserDescr

Equations

• ProofWidgets.Jsx.jsxChild_ = Lean.ParserDescr.node `ProofWidgets.Jsx.jsxChild_ 1022 (Lean.ParserDescr.parser `ProofWidgets.Jsx.jsxText)

def ProofWidgets.Jsx.«jsxChild{..._}» : Lean.ParserDescr

Interpolates an array of elements into a JSX literal

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.«jsxChild{_}» : Lean.ParserDescr

Interpolates an expression into a JSX literal

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.jsxChild__1 : Lean.ParserDescr

Equations

• ProofWidgets.Jsx.jsxChild__1 = Lean.ParserDescr.node `ProofWidgets.Jsx.jsxChild__1 1022 (Lean.ParserDescr.cat `jsxElement 0)

def ProofWidgets.Jsx.term_ : Lean.ParserDescr

Equations

• ProofWidgets.Jsx.term_ = Lean.ParserDescr.node `ProofWidgets.Jsx.term_ 1024 (Lean.ParserDescr.cat `jsxElement 0)

def ProofWidgets.Jsx.transformTag (tk : Lean.Syntax) (n m : Lean.Ident) (vs : Array (Lean.TSyntax `jsxAttr)) (cs : Array (Lean.TSyntax `jsxChild)) : Lean.MacroM Lean.Term

Equations

• One or more equations did not get rendered due to their size.

First delaborate into our non-term TSyntax. Note this means we can't call delab, so we have to add the term annotations ourselves.

def ProofWidgets.Jsx.delabHtmlText : Lean.PrettyPrinter.Delaborator.DelabM (Lean.TSyntax `ProofWidgets.Jsx.jsxText)

Equations

• One or more equations did not get rendered due to their size.

partial def ProofWidgets.Jsx.delabHtmlElement' : Lean.PrettyPrinter.Delaborator.DelabM (Lean.TSyntax `jsxElement)

partial def ProofWidgets.Jsx.delabHtmlOfComponent' : Lean.PrettyPrinter.Delaborator.DelabM (Lean.TSyntax `jsxElement)

partial def ProofWidgets.Jsx.delabJsxChildren : Lean.PrettyPrinter.Delaborator.DelabM (Array (Lean.TSyntax `jsxChild))

Now wrap our TSyntax _ delaborators into Term elaborators.

def ProofWidgets.Jsx.delabHtmlElement : Lean.PrettyPrinter.Delaborator.Delab

Equations

• One or more equations did not get rendered due to their size.

def ProofWidgets.Jsx.delabHtmlOfComponent : Lean.PrettyPrinter.Delaborator.Delab

Equations

• One or more equations did not get rendered due to their size.