#S-Expression Notation for HTML

#Example

• keep comments

  (% I want you to know since you came in my life)

  <!-- I want you to know since you came in my life -->

• syntactic white spaces between terms will be ignored

  (p One hundred million and two thousand years from now 
    (span (:style font-family: "Alegreya Sans SC", sans-serif) 
            爱してる) )

  <p>One hundred million and two thousand years from now 
    <span style="font-family: \"Alegreya Sans SC\", sans-serif">爱してる</span>
  </p>

• only parentheses need to be escaped

  (details (:open) 
    (summary every day every night) 
    \(I've been waiting to share my love with you\) 
    you give light into the darkness skies )

  <details open>
    <summary>every day every night</summary>
    (I've been waiting to share my love with you)
    you give light into the darkness skies
  </details>

• (~) emits a literal space, and (~tag ...) emits the normal element with one space on each side

  (p (~span hello)world)

  <p> <span>hello</span> world</p>

• (# ...) emits an explicit raw text node and preserves the text after # exactly, including leading spaces and newlines
  The first whitespace character after # is only a separator and is not part of the text payload.

  (p (span hello) (#  world))

  <p><span>hello</span> world</p>

#Specification

#AST transform API

parse_sexp_html("(p (icon search))").map(transform).map(render_html)

pub(all) enum SexpNode {
  Text(String)
  Comment(String)
  RawHtml(String)
  Element(String, Array[(String, String?)], Array[SexpNode])
}

render_html([
  SexpNode::Element("p", [], [
    SexpNode::Text("<escaped> "),
    SexpNode::RawHtml("<em>trusted</em>"),
  ]),
])

let attrs : Array[(String, String?)] = []
upsert_attr(attrs, "lang", Some("en"))
append_class(attrs, "page")

render_open_tag("html", attrs)
render_html_document(attrs, head, body, Some("html"))