From cf5f9dabc771b0361fe4f78871a74738ff16da5f Mon Sep 17 00:00:00 2001
From: bptato <nincsnevem662@gmail.com>
Date: Mon, 23 Oct 2023 18:48:42 +0200
Subject: Add innerHTML setter

yay
---
 src/html/chadombuilder.nim | 41 +++++++++++++++++++++++++++++++++++++++--
 1 file changed, 39 insertions(+), 2 deletions(-)

(limited to 'src/html/chadombuilder.nim')

diff --git a/src/html/chadombuilder.nim b/src/html/chadombuilder.nim
index f070fe8f..129082e2 100644
--- a/src/html/chadombuilder.nim
+++ b/src/html/chadombuilder.nim
@@ -12,6 +12,7 @@ import types/url
 import chakasu/charset
 
 import chame/htmlparser
+import chame/htmltokenizer
 import chame/tags
 
 # DOMBuilder implementation for Chawan.
@@ -166,7 +167,8 @@ proc elementPopped(builder: DOMBuilder[Node], element: Node) =
       #TODO style sheet
       script.execute()
 
-proc newChaDOMBuilder(url: URL, window: Window): ChaDOMBuilder =
+proc newChaDOMBuilder(url: URL, window: Window, isFragment = false):
+    ChaDOMBuilder =
   let document = newDocument()
   document.contentType = "text/html"
   document.url = url
@@ -196,8 +198,44 @@ proc newChaDOMBuilder(url: URL, window: Window): ChaDOMBuilder =
     setScriptAlreadyStarted: setScriptAlreadyStarted,
     associateWithForm: associateWithForm,
     #TODO isSVGIntegrationPoint (SVG support)
+    isFragment: isFragment
   )
 
+# https://html.spec.whatwg.org/multipage/parsing.html#parsing-html-fragments
+proc parseHTMLFragment*(element: Element, s: string): seq[Node] =
+  let url = parseURL("about:blank").get
+  let builder = newChaDOMBuilder(url, nil)
+  builder.isFragment = true
+  let document = Document(builder.document)
+  document.mode = element.document.mode
+  let state = case element.tagType
+  of TAG_TITLE, TAG_TEXTAREA: RCDATA
+  of TAG_STYLE, TAG_XMP, TAG_IFRAME, TAG_NOEMBED, TAG_NOFRAMES: RAWTEXT
+  of TAG_SCRIPT: SCRIPT_DATA
+  of TAG_NOSCRIPT:
+    if element.document != nil and element.document.scriptingEnabled:
+      RAWTEXT
+    else:
+      DATA
+  of TAG_PLAINTEXT:
+    PLAINTEXT
+  else: DATA
+  let root = document.newHTMLElement(TAG_HTML)
+  document.append(root)
+  let opts = HTML5ParserOpts[Node](
+    isIframeSrcdoc: false, #TODO?
+    scripting: false,
+    canReinterpret: false,
+    charsets: @[CHARSET_UTF_8],
+    ctx: some(Node(element)),
+    initialTokenizerState: state,
+    openElementsInit: @[Node(root)],
+    pushInTemplate: element.tagType == TAG_TEMPLATE
+  )
+  let inputStream = newStringStream(s)
+  parseHTML(inputStream, builder, opts)
+  return root.childList
+
 proc parseHTML*(inputStream: Stream, window: Window, url: URL,
     charsets: seq[Charset] = @[], canReinterpret = true): Document =
   let builder = newChaDOMBuilder(url, window)
@@ -207,7 +245,6 @@ proc parseHTML*(inputStream: Stream, window: Window, url: URL,
     canReinterpret: canReinterpret,
     charsets: charsets
   )
-  builder.isFragment = opts.ctx.isSome
   parseHTML(inputStream, builder, opts)
   return Document(builder.document)
 
-- 
cgit 1.4.1-2-gfad0

>5</a>
<a id='n6' href='#n6'>6</a>
<a id='n7' href='#n7'>7</a>
<a id='n8' href='#n8'>8</a>
<a id='n9' href='#n9'>9</a>
<a id='n10' href='#n10'>10</a>
<a id='n11' href='#n11'>11</a>
<a id='n12' href='#n12'>12</a>
<a id='n13' href='#n13'>13</a>
<a id='n14' href='#n14'>14</a>
<a id='n15' href='#n15'>15</a>
<a id='n16' href='#n16'>16</a>
<a id='n17' href='#n17'>17</a>
<a id='n18' href='#n18'>18</a>
<a id='n19' href='#n19'>19</a>
<a id='n20' href='#n20'>20</a>
<a id='n21' href='#n21'>21</a>
<a id='n22' href='#n22'>22</a>
<a id='n23' href='#n23'>23</a>
<a id='n24' href='#n24'>24</a>
<a id='n25' href='#n25'>25</a>
<a id='n26' href='#n26'>26</a>
</pre></td>
<td class='lines'><pre><code>