lua - quarto.Tabset shouldn't require Attr

news/changelog-1.5.md

@@ -157,6 +157,7 @@ All changes included in 1.5:
 ## Lua filters
 
 - ([#9572](https://github.com/quarto-dev/quarto-cli/issues/9572)): Add `quarto.config.cli_path()` in Quarto LUA to return the path to the Quarto CLI executable of the installation running the Lua script in quarto context.
+- ([#9691](https://github.com/quarto-dev/quarto-cli/issues/9691)): Provide default Attr object to `quarto.Tabset` constructor.
 
 ## Other Fixes and Improvements
 

src/resources/filters/customnodes/panel-tabset.lua

@@ -124,7 +124,7 @@ _quarto.ast.add_handler({
     local custom_data = {
       __quarto_custom_node = node,
       level = params.level or 2,
-      attr = params.attr or pandoc.Attr(),
+      attr = params.attr or pandoc.Attr("", {"panel-tabset"}),
     }
 
     local function make_tab_metaobject(custom_data, index)

tests/docs/smoke-all/2024/05/15/9691.qmd

@@ -0,0 +1,21 @@
+---
+format: html
+filters:
+  - topanel.lua
+_quarto:
+  tests:
+    html:
+      ensureHtmlElements:
+        - ["div.panel-tabset"]
+---
+
+
+::: {.to-panel}
+
+```{r}
+#| echo: true
+
+print("Hello, world")
+```
+
+:::

tests/docs/smoke-all/2024/05/15/topanel.lua

@@ -0,0 +1,28 @@
+function Div(div)
+  if not div.classes:includes("to-panel") then 
+    return
+  end
+  local code_block = nil
+  local cell_output = nil
+  quarto._quarto.ast.walk(div.content, {
+    CodeBlock = function(code)
+      if code.classes:includes("cell-code") then
+        code_block = code
+      end
+    end,
+    Div = function(div)
+      if div.classes:includes("cell-output") then
+        cell_output = div
+      end
+    end
+  })
+
+  local rendered = quarto.Tab({ title = "Rendered", content = cell_output })
+  local source = quarto.Tab({ title = "Source", code_block })
+  local tabs = pandoc.List({ rendered, source })
+
+  return quarto.Tabset({
+    level = 3,
+    tabs = tabs
+  })
+end