list-table: implement header-cols

Author: not-my-profile

list-table/README.md

@@ -120,7 +120,7 @@ the second column will be three times as wide as the first column.
 
 <!-- no demo because GFM does not support inline CSS -->
 
-## Header rows
+## Header rows & columns
 
 You can configure how many rows are part of the table head
 with the `header-rows` attribute (which defaults to 1).
@@ -149,3 +149,40 @@ results in:
 </tr>
 </tbody>
 </table>
+
+The same also works for `header-cols` (which however defaults to 0).
+For example:
+
+```
+:::{.list-table header-cols=1}
+   * - Name
+     - Initial release
+
+   * - Markdown
+     - 2004
+
+   * - reStructuredText
+     - 2002
+:::
+```
+
+results in:
+
+<table>
+<thead>
+<tr>
+<th>Name</th>
+<th>Initial release</th>
+</tr>
+</thead>
+<tbody>
+<tr>
+<th>Markdown</th>
+<td>2004</td>
+</tr>
+<tr>
+<th>reStructuredText</th>
+<td>2002</td>
+</tr>
+</tbody>
+</table>

list-table/expected.html

@@ -58,3 +58,17 @@
 </tr>
 </tbody>
 </table>
+<table>
+<thead>
+<tr class="header">
+<th>row 1, column 1</th>
+<th>row 1, column 2</th>
+</tr>
+</thead>
+<tbody>
+<tr class="odd">
+<th>row 2, column 1</th>
+<td>row 2, column 2</td>
+</tr>
+</tbody>
+</table>

list-table/list-table.lua

@@ -52,12 +52,12 @@ local function new_table_head(rows)
     return {{}, rows}
 end
 
-local function  new_table_body(rows)
+local function  new_table_body(rows, header_col_count)
     return {
         attr = {},
         body = rows,
         head = {},
-        row_head_columns = 0
+        row_head_columns = header_col_count
     }
 end
 
@@ -107,6 +107,9 @@ local function process(div)
     local header_row_count = tonumber(div.attr.attributes['header-rows']) or 1
     div.attr.attributes['header-rows'] = nil
 
+    local header_col_count = tonumber(div.attr.attributes['header-cols']) or 0
+    div.attr.attributes['header-cols'] = nil
+
     local colspecs = get_colspecs(div.attr.attributes, #rows[1][2])
     local thead_rows = {}
     for i = 1, header_row_count do
@@ -118,7 +121,7 @@ local function process(div)
         {long = caption, short = {}},
         colspecs,
         new_table_head(thead_rows),
-        {new_table_body(rows)},
+        {new_table_body(rows, header_col_count)},
         table_foot,
         div.attr
     )

list-table/sample.md

@@ -33,3 +33,11 @@
    * - row 2, column 1
      - row 2, column 2
 :::
+
+:::{.list-table header-cols=1}
+   * - row 1, column 1
+     - row 1, column 2
+
+   * - row 2, column 1
+     - row 2, column 2
+:::