Print the list of HtmlEntity into a lazy Text.

>>> let Done "" tokens = scanHtml "<p>Hello,<br>\n<em>world</em>!</p>"
>>> printHtml tokens
"<p>Hello,<br>\n<em>world</em>!</p>"

Print only the text contents (including CDATA sections) without tags into a lazy Text.

>>> let Done "" tokens = scanHtml "<p>Hello,<br>\n<em>world</em>!</p>"
>>> printText tokens
"Hello,\nworld!"

Entities are decoded:

>>> let Done "" tokens = scanHtml "<p><code>&lt;&gt;&quot;&amp;</code></p>"
>>> printText tokens
"<>\"&"

Similar to printHtml except it renders void (self-closing) tags as like br/ instead of br.

>>> let Done "" tokens = scanHtml "<p>Hello,<br>\n<em>world</em>!</p>"
>>> printXhtml tokens
"<p>Hello,<br/>\n<em>world</em>!</p>"

Note that normal tags are not rendered as self-closed; only void tags according to HTML specification are:

>>> let Done "" tokens' = scanHtml "<p></p><p><br></p>"
>>> printXhtml tokens'
"<p></p><p><br/></p>"

An event entity emitted by scanHtml.

All element attributes in a string.

HTML tags. This enumeration type contains both HTML 5 and 4 tags for maximum compatibility.

The six kinds of HTML elements.

The kind of an HtmlTag.

>>> Data.Set.filter ((== EscapableRawText) . htmlTagKind) htmlTags
fromList [TextArea,Title]

The name of an HtmlTag in lowercase.

>>> htmlTagName TextArea
"textarea"

\ t -> htmlTagName t == (toLower $ pack $ show (t :: HtmlTag))

As scanHtml may emit two or more continuous HtmlText fragments even if these can be represented as only one HtmlText fragment, it makes postprocessing hard.

The normalizeText function concatenates such continuous HtmlText fragments into one if possible so that postprocessing can be easy:

>>> :set -XOverloadedStrings -XOverloadedLists
>>> normalizeText [HtmlText [] "Hello, ", HtmlText [] "world!"]
[HtmlText {tagStack = fromList [], rawText = "Hello, world!"}]

It also transforms all HtmlCdata fragments into an HtmlText together.

>>> :{
normalizeText [ HtmlText [] "foo "
              , HtmlCdata [] "<bar>", HtmlText [] " baz!"
              ]
:}
[HtmlText {tagStack = fromList [], rawText = "foo &lt;bar&gt; baz!"}]

Represents a hierarchy of a currently parsing position in an HtmlTag tree.

For example, if an scanHtml has read "<a href="#"><b><i>foo</i> bar" it is represented as HtmlTagStack [B, A].

Note that the tags are stored in reverse order, from the deepest to the shallowest, to make inserting a more deeper tag efficient.