Changes
first attempt to add support for list-style-type, but broken for now
end
local function getClass(listType, classargs)
local classes = {}
if listType == 'horizontal' or listType == 'horizontal_ordered' then
table.insert(classes, 'plainlist')
end
table.insert(classes, args.class)
local ret
if #classes == 0 then
end
local function getStyle(listType, indent, styleargs)
local styles = {}
if listType == 'horizontal' or listType == 'horizontal_ordered' then
local indent = args.indent and tonumber(indent)
indent = tostring((indent and indent * 1.6) or 0)
table.insert(styles, 'margin-left: ' .. indent .. 'em;')
end
local listStyleType = args['list-style-type'] if listStyleType then table.insert(styles, 'list-style-type: ' .. listStyleType .. ';') end table.insert(styles, args.style)
if #styles == 0 then
return nil
typeAttr = typeAttr or ''
-- Get the classes and styles and output the list.
local class = getClass(listType, args.class) or '' local style = getStyle(listType, args.indent, args.style) or ''
local list_style = args.list_style or args.ul_style or args.ol_style -- ul_style and ol_style are included for backwards compatibility. No distinction is made for ordered or unordered lists.
list_style = list_style and (' style="' .. list_style .. '"') or ''