add list-table syntax compatible with fenced-div floats

Author: cscheid

src/resources/filters/modules/listtable.lua

@@ -120,27 +120,40 @@ local function new_cell(contents)
 end
 
 local function process(div)
-    if (div.attr.classes[1] ~= "list-table" and
-        div.attr.classes[1] ~= "list-table-body") then return nil end
-    local class = div.attr.classes[1]
-    table.remove(div.attr.classes, 1)
-
+    local class
+    local target_classes = {"list-table", "list-table-body"}
+    for _, target in ipairs(target_classes) do
+        if div.attr.classes:find(target) then
+            class = target
+            div.attr.classes = div.attr.classes:filter(
+                function(cls) return cls ~= target end)
+        end
+    end
+    if class == nil then return nil end
     if #div.content == 0 then return nil end
 
     local content = blocks_skip_data_pos(div.content)
 
     local caption = {}
+
+    -- look for a caption in front
     if content[1].t == "Para" then
         local para = table.remove(content, 1)
         caption = {pandoc.Plain(para.content)}
     end
-
     if #content == 0 then return nil end
 
     assert_(content[1].t == "BulletList",
             "expected bullet list, found " .. content[1].t, content[1])
     local list = content[1]
 
+    -- also look for a caption in back
+    if content[2] and content[2].t == "Para" then
+        local para = table.remove(content, 2)
+        caption = {pandoc.Plain(para.content)}
+    end
+
+
     -- rows points to the current body's rows
     local bodies = {attr=nil, {rows={}}}
     local rows = bodies[#bodies].rows

tests/docs/smoke-all/crossrefs/tables/simple.qmd

@@ -0,0 +1,86 @@
+---
+title: Table Crossref Test
+_quarto:
+  tests:
+    html:
+      ensureHtmlElements:
+        - - "div#tbl-list table"
+          - "div#tbl-list-2 table"
+          - "div#tbl-letters table"
+          - "div#tbl-panel table"
+          - "div#tbl-first table"
+          - "div#tbl-second table"
+        - []
+---
+
+## Simple Crossref Table
+
+| Col1 | Col2 | Col3 |
+|------|------|------|
+| A    | B    | C    |
+| E    | F    | G    |
+| A    | G    | G    |
+
+: My Caption {#tbl-letters}
+
+See @tbl-letters.
+
+## Sub tables
+
+::: {#tbl-panel layout-ncol=2}
+| Col1 | Col2 | Col3 |
+|------|------|------|
+| A    | B    | C    |
+| E    | F    | G    |
+| A    | G    | G    |
+
+: First Table {#tbl-first}
+
+| Col1 | Col2 | Col3 |
+|------|------|------|
+| A    | B    | C    |
+| E    | F    | G    |
+| A    | G    | G    |
+
+: Second Table {#tbl-second}
+
+Main Caption
+:::
+
+See @tbl-panel for details, especially @tbl-second.
+
+## List tables
+
+::: {#tbl-list .list-table}
+
+This is a table caption. {tbl-colwidths=[20,40,40]}
+
+* - Row 1, Col 1
+  - Row 1, Col 2
+  - Row 1, Col 3
+
+* - Row 2, Col 1
+  - Row 2, Col 2
+  - Row 2, Col 3
+
+:::
+
+see @tbl-list.
+
+Quarto syntax extension for `list-tables`: table ordering compatible with fenced-div crossrefs.
+
+::: {#tbl-list-2 .list-table}
+
+* - Row 1, Col 1
+  - Row 1, Col 2
+  - Row 1, Col 3
+
+* - Row 2, Col 1
+  - Row 2, Col 2
+  - Row 2, Col 3
+
+This is a table caption. {tbl-colwidths=[20,40,40]}
+
+:::
+
+See @tbl-list-2.