local log = logging.new ("tablerows") return function(dom) local has_child_elements = function(child) -- detect if the element contains child elements local child_elements = 0 local children = child:get_children() local last_child_pos for pos, el in ipairs(children) do last_child_pos = pos local step = el:is_element() and 1 or 0 -- log:info("element name", el._name) child_elements = child_elements + step end -- longtable has

inside empty rows, we regard them as empty if child_elements == 1 and children[last_child_pos]:get_element_name() == "p" and child:get_text():gsub("%s", "") == "" then child_elements = 0 end return child_elements > 0 end local is_empty_row = function(row) local not_empty = false local element_count = 0 -- ignore hline rows local row_class = row:get_attribute("class") if row_class == "hline" or row_class == "cline" then return false end -- detect if the row contain only one empty child for _,child in ipairs(row:get_children() or {}) do if child:is_element() then element_count = element_count + 1 -- empty rows contain only one element, it is not empty otherwise if element_count > 1 or has_child_elements(child) then return false end -- detect if it contains only whitespace not_empty = child:get_text():gsub("%s","") ~= "" or not_empty end end -- print("element count", element_count, not_empty) return element_count == 1 and not_empty == false end local is_not_styled = function(row, css) -- get the id attribute and escape it, so it can be used in regexp local id = row:get_attribute("id") if not id then return true end -- no styling without id local search_term = "%#" .. id:gsub("%-", "%%-") -- if the CSS file contains the row id ( elements can also have id -- that matches this pattern, so we should keep the row if we match them too) return not css:match(search_term) end local hline_hr = function(row) -- remove
elements from "hline" rows for _, hr in ipairs(row:query_selector(".hline hr")) do hr:remove_node() end end local load_css_files = function() -- the empty rows can be styled using CSS, for example configuration for -- Booktabs does that. We shouldn't remove such rows. local cssfiles = {} for _, link in ipairs(dom:query_selector("head link")) do local src = link:get_attribute("href") if src then local f = io.open(src, "r") if f then local contents = f:read("*all") f:close() table.insert(cssfiles, contents) end end end return table.concat(cssfiles, "\n") end local css = load_css_files() for _, tbl in ipairs(dom:query_selector("table")) do -- find the empty rows for _, row in ipairs(tbl:query_selector("tr")) do if is_empty_row(row) and is_not_styled(row, css) then row:remove_node() end hline_hr(row) end end return dom end