list-table: support individual cell alignment

Author: not-my-profile

list-table/README.md

@@ -230,3 +230,8 @@ results in:
 </tr>
 </tbody>
 </table>
+
+Individual cell alignment is also supported via the `align` attribute.
+Expected values are `l`, `r`, `c` for left, right and center respectively.
+(Please mind that contrary to [column alignments](#column-alignments)
+this attribute is singular).

list-table/expected.html

@@ -87,7 +87,7 @@
 </tr>
 <tr class="even">
 <td>reStructuredText</td>
-<td><code>``code``</code></td>
+<td style="text-align: center;"> <code>``code``</code></td>
 </tr>
 </tbody>
 </table>

list-table/list-table.lua

@@ -7,6 +7,13 @@ else
     error("pandoc version >=2.11 is required")
 end
 
+local alignments = {
+    d = 'AlignDefault',
+    l = 'AlignLeft',
+    r = 'AlignRight',
+    c = 'AlignCenter'
+}
+
 local function get_colspecs(div_attributes, column_count)
     -- list of (align, width) pairs
     local colspecs = {}
@@ -16,12 +23,6 @@ local function get_colspecs(div_attributes, column_count)
     end
 
     if div_attributes.aligns then
-        local alignments = {
-            d = 'AlignDefault',
-            l = 'AlignLeft',
-            r = 'AlignRight',
-            c = 'AlignCenter'
-        }
         local i = 1
         for a in div_attributes.aligns:gmatch('[^,]') do
             assert(alignments[a] ~= nil,
@@ -82,6 +83,8 @@ local function new_cell(contents)
                 attr.attributes.colspan = nil
                 rowspan = attr.attributes.rowspan or 1
                 attr.attributes.rowspan = nil
+                align = alignments[attr.attributes.align] or pandoc.AlignDefault
+                attr.attributes.align = nil
             end
         end
     end

list-table/sample.md

@@ -52,5 +52,5 @@
      - `` `code` ``
 
    * - reStructuredText
-     - ` ``code`` `
+     - []{align=c} ` ``code`` `
 :::