|
|
--[[
|
|
|
RawBlock(el)
|
|
|
将 Markdown 文档中的 HTML <table> 片段解析为 AST 并注入到文档块中，
|
|
|
后续由 Table(el) 针对列内容自动设置对齐。
|
|
|
]]
|
|
|
function RawBlock(el)
|
|
|
local fmt = el.format or ""
|
|
|
if string.find(fmt, "html", 1, true) then
|
|
|
local s = el.text or ""
|
|
|
local sl = string.lower(s)
|
|
|
if string.match(sl, "^%s*<table") then
|
|
|
local doc = pandoc.read(s, "html")
|
|
|
return doc.blocks
|
|
|
end
|
|
|
end
|
|
|
end
|
|
|
|
|
|
--[[
|
|
|
Table(el)
|
|
|
自动设置表格列对齐：
|
|
|
- 数值型列（≥60% 单元格为数字/小数/百分比）右对齐；
|
|
|
- 其他列左对齐。
|
|
|
说明：对齐通过修改 el.colspecs[i].align 完成，最终由 Pandoc 写出为 GFM 的 :---/---: 等标记。
|
|
|
]]
|
|
|
function Table(el)
|
|
|
local function cell_text(cell)
|
|
|
return pandoc.utils.stringify(cell)
|
|
|
end
|
|
|
local function is_numeric(s)
|
|
|
s = (s or ""):gsub("%s+", "")
|
|
|
if s == "" then return false end
|
|
|
if s:match("^[+-]?%d+[%.,]?%d*%%?$") then return true end
|
|
|
return false
|
|
|
end
|
|
|
local texts_by_col = {}
|
|
|
local function collect_row(row)
|
|
|
for i, cell in ipairs(row.cells or {}) do
|
|
|
local t = cell_text(cell)
|
|
|
texts_by_col[i] = texts_by_col[i] or {}
|
|
|
table.insert(texts_by_col[i], t)
|
|
|
end
|
|
|
end
|
|
|
for _, row in ipairs((el.head and el.head.rows) or {}) do collect_row(row) end
|
|
|
for _, body in ipairs(el.bodies or {}) do
|
|
|
for _, row in ipairs(body.rows or {}) do collect_row(row) end
|
|
|
end
|
|
|
for _, row in ipairs((el.foot and el.foot.rows) or {}) do collect_row(row) end
|
|
|
|
|
|
for i, cs in ipairs(el.colspecs or {}) do
|
|
|
local cells = texts_by_col[i] or {}
|
|
|
local total, numeric = 0, 0
|
|
|
for _, v in ipairs(cells) do
|
|
|
total = total + 1
|
|
|
if is_numeric(v) then numeric = numeric + 1 end
|
|
|
end
|
|
|
if total > 0 and (numeric / total) >= 0.6 then
|
|
|
cs.align = pandoc.AlignRight
|
|
|
else
|
|
|
cs.align = pandoc.AlignLeft
|
|
|
end
|
|
|
end
|
|
|
return el
|
|
|
end |
