fixes

Author: cscheid

src/resources/filters/normalize/parsehtml.lua

@@ -83,6 +83,7 @@ function parse_html_tables()
     while cursor < len do
       -- find the first table start tag
       local i, j = string.find(el.text, start, cursor)
+      print(len, cursor, i, j)
       if i == nil then
         -- no more tables
         break
@@ -95,7 +96,9 @@ function parse_html_tables()
       while cursor_2 < len do
         local k1, l1 = string.find(el.text, start, cursor_2)
         local k2, l2 = string.find(el.text, finish, cursor_2)
+        print("nesting", nesting, k1, l1, k2, l2)
         if k1 == nil and k2 == nil then
+          cursor = len
           break
         end
         if k1 and (k2 == nil or k1 < k2) then
@@ -106,7 +109,6 @@ function parse_html_tables()
           nesting = nesting - 1
           cursor_2 = l2 + 1
           if nesting == 0 then
-            found = true
             local tableHtml = string.sub(el.text, i, l2)
             -- Pandoc's HTML-table -> AST-table processing does not faithfully respect
             -- `th` vs `td` elements. This causes some complex tables to be parsed incorrectly,
@@ -135,15 +137,16 @@ function parse_html_tables()
                 end
               end,
             })
+            cursor = l2 + 1
             if #tableDoc.blocks ~= 1 then
               warn("Unable to parse table from raw html block: skipping.")
               skip = true
-              cursor = l2 + 1
             end
             if found and not skip then
               flags.has_tables = true
-              blocks:insert(pandoc.RawBlock(el.format, string.sub(el.text, cursor, i - 1)))
-              cursor = l2 + 1
+              if cursor ~= i then
+                blocks:insert(pandoc.RawBlock(el.format, string.sub(el.text, cursor, i - 1)))
+              end
               blocks:insert(tableDoc.blocks[1])
             end
             break
@@ -152,12 +155,14 @@ function parse_html_tables()
       end
     end
     if cursor ~= 1 then
-      blocks:insert(pandoc.RawBlock(el.format, string.sub(el.text, cursor)))
+      if cursor <= len then
+        blocks:insert(pandoc.RawBlock(el.format, string.sub(el.text, cursor)))
+      end
     end
     if #blocks == 0 then
       return nil
     end
-    return blocks
+    return pandoc.Div(blocks)
   end
 
   local filter

tests/docs/smoke-all/2023/01/20/test-quarto-disable-processing.lua

@@ -1,5 +1,4 @@
 function Table(table)
-  print("huh?")
   -- we don't want this to be ever called in our test
-  crash_with_stack_trace()
+  assert(false)
 end