Module:LocationList

local p = {} function p.locationlist( f ) local args = f:getParent.args

local listtype, extrastyle = 'ul', '' local showOne = args.showQuantityOne or false local asPerCent = args.showQuantityAsPerCent or false

if args.columns ~= nil then extrastyle = extrastyle..'column-count:'..args.columns..';' end

if args.columnWidth ~= nil then extrastyle = extrastyle..'column-width:'..args.columnWidth..';' end

if args.marginLeft ~= nil then extrastyle = extrastyle..'margin-left:'..args.marginLeft..';' end

if args.listtype ~= nil then if args.listtype == 'ol' then listtype = 'ol' else -- none extrastyle = extrastyle..'list-style:none;margin-left:0;' end end

-- split first value at comma, e.g. for data from module:dv local items = {} for v in mw.text.gsplit(args[1], ',', true) do   if #v > 0 then -- skip empty table.insert(items, v)   end end

-- append rest parameters for _,v in ipairs(args) do    if _ > 1 and #v > 0 then table.insert(items, v)   end end

-- read arguments list into locationList (consists of tables, at index 1 is the text, at index 2 the quantity (optional)) local locationList, i, lastItem = {}, 0, nil for _, item in ipairs(items) do   item = item:match "^%s*(.-)%s*$" -- trim

if string.len(item) > 0 then if lastItem and (item:match "^[%d.]*$" or item:match "^[%d.]*%-[%d.]*$") then if asPerCent then locationList[i][2] = item * 100 -- item is per cent value elseif item ~= '1' or showOne then LocationList[i][2] = item -- item is quantity end lastItem = nil else table.insert(locationList, {item, nil} ) -- item is text i = i + 1 lastItem = item end end end

-- output locationList local output = {} local quantitySign = asPerCent and '% ' or ' × ' for _, item in ipairs(locationList) do   local fileName = string.gsub(item[1],':',' ')

table.insert(output, ''..(item[2] ~= nil and item[2]..quantitySign or )..' '....(item[1])..''..'') end

if #output == 0 then return end

-- if the list is long and has no explicit style, break it into columns automatically if #output > 5 and extrastyle == '' then extrastyle = 'column-width:15em;' end

return '<'..listtype..(extrastyle ~=  and ' style="'..extrastyle..'"' or )..'>'..table.concat(output, '')..'' end

return p