summaryrefslogtreecommitdiff
path: root/support/make4ht/domfilters/make4ht-booktabs.lua
blob: edec8adbd8b9045f1d8d42a460f0155acc8af642 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

local function find_cmidrules(current_rows)
  -- save rows with cmidrules here
  local matched_rows = {}
  local continue = false
  for row_no, row in ipairs(current_rows) do
    local columnposition = 1
    local matched_cmidrule = false

    for _, col in ipairs(row:query_selector("td")) do
      -- keep track of culumns
      local span = tonumber(col:get_attribute("colspan")) or 1
      local cmidrule = col:query_selector(".cmidrule")
      -- column contain cmidrule
      if #cmidrule > 0 then
        -- remove any child elements, we don't need them anymore
        col._children = {}
        -- only one cmidrule can be on each row, save the position, column span and all attributes
        matched_rows[row_no] = {attributes = col._attr, column = columnposition, span = span, continue = continue}
        matched_cmidrule = true
      end
      columnposition = columnposition + span
    end
    if matched_cmidrule then
      -- save the row number of the first cmidrule on the current row
      continue = continue or row_no
    else
      continue = false
    end

  end
  -- save the table rows count, so we can loop over them sequentially later
  matched_rows.length = #current_rows
  return matched_rows
end

local function update_row(current_rows, match, newspan, i)
  local row_to_update = current_rows[match.continue]
  -- insert spanning column if necessary
  if newspan > 0 then
    local td = row_to_update:create_element("td", {colspan=tostring(newspan), span="nazdar"})
    row_to_update:add_child_node(td)
  end
  -- insert the rule column
  local td = row_to_update:create_element("td", match.attributes)
  row_to_update:add_child_node(td)
  -- remove unnecessary row
  current_rows[i]:remove_node()
end

local function join_rows(matched_rows,current_rows)
  for i = 1, matched_rows.length do
    local match = matched_rows[i]
    if match then
      -- we only need to process rows that place subsequent cmidrules on the same row
      local continue = match.continue
      if continue then
        local prev_row = matched_rows[continue]
        -- find column where the previous cmidrule ends
        local prev_end = prev_row.column + prev_row.span
        local newspan = match.column - prev_end 
        update_row(current_rows, match, newspan, i)
        -- update the current row position
        prev_row.column = match.column
        prev_row.span = match.span
      end
    end
  end
end

local function process_booktabs(dom)
  local tables = dom:query_selector("table")
  for _, tbl in ipairs(tables) do
    local current_rows = tbl:query_selector("tr")
    local matched_rows = find_cmidrules(current_rows)
    join_rows(matched_rows, current_rows)
  end
  return dom
end

return process_booktabs