Editing Module:List

Jump to navigation Jump to search
Warning: You are not logged in. Your IP address will be publicly visible if you make any edits. If you log in or create an account, your edits will be attributed to your username, along with other benefits.

The edit can be undone. Please check the comparison below to verify that this is what you want to do, and then publish the changes below to finish undoing the edit.

Latest revision Your text
Line 1: Line 1:
-- This module outputs different kinds of lists. At the moment, bulleted,
-- This module outputs different kinds of lists. At the moment, bulleted, unbulleted,
-- unbulleted, horizontal, ordered, and horizontal ordered lists are supported.
-- horizontal, ordered, and horizontal ordered lists are supported.
 
local libUtil = require('libraryUtil')
local checkType = libUtil.checkType
local mTableTools = require('Module:TableTools')


local p = {}
local p = {}


local listTypes = {
local function getListItem(data, style, itemStyle)
['bulleted'] = true,
if not data then
['unbulleted'] = true,
return nil
['horizontal'] = true,
['ordered'] = true,
['horizontal_ordered'] = true
}
 
function p.makeListData(listType, args)
-- Constructs a data table to be passed to p.renderList.
local data = {}
 
-- Classes
data.classes = {}
data.templatestyles = ''
if listType == 'horizontal' or listType == 'horizontal_ordered' then
table.insert(data.classes, 'hlist')
data.templatestyles = mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = 'Template:Flatlist/styles.css' }
}
elseif listType == 'unbulleted' then
table.insert(data.classes, 'plainlist')
data.templatestyles = mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = 'Template:Plainlist/styles.css' }
}
end
end
table.insert(data.classes, args.class)
if style or itemStyle then
 
style = style or ''
-- Main div style
itemStyle = itemStyle or ''
data.style = args.style
return mw.ustring.format(
 
'<li style="%s%s">%s</li>',
-- Indent for horizontal lists
style, itemStyle, data
if listType == 'horizontal' or listType == 'horizontal_ordered' then
)
local indent = tonumber(args.indent)
else
indent = indent and indent * 1.6 or 0
return mw.ustring.format(
if indent > 0 then
'<li>%s</li>',
data.marginLeft = indent .. 'em'
data
end
)
end
end
end
-- List style types for ordered lists
-- This could be "1, 2, 3", "a, b, c", or a number of others. The list style
-- type is either set by the "type" attribute or the "list-style-type" CSS
-- property.
if listType == 'ordered' or listType == 'horizontal_ordered' then
data.listStyleType = args.list_style_type or args['list-style-type']
data.type = args['type']


-- Detect invalid type attributes and attempt to convert them to
local function getArgNums(args)
-- list-style-type CSS properties.
-- Returns an array containing the keys of all positional arguments
if data.type  
-- that contain data (i.e. non-whitespace values).
and not data.listStyleType
local nums = {}
and not tostring(data.type):find('^%s*[1AaIi]%s*$')
for k, v in pairs(args) do
then
if type(k) == 'number' and
data.listStyleType = data.type
k >= 1 and  
data.type = nil
math.floor(k) == k and
mw.ustring.match(v, '%S') then
table.insert(nums, k)
end
end
end
end
table.sort(nums)
-- List tag type
return nums
if listType == 'ordered' or listType == 'horizontal_ordered' then
end
data.listTag = 'ol'
else
data.listTag = 'ul'
end


-- Start number for ordered lists
local function getClass(listType, args)
data.start = args.start
local classes = {}
if listType == 'horizontal_ordered' then
if listType == 'horizontal' or listType == 'horizontal_ordered' then
-- Apply fix to get start numbers working with horizontal ordered lists.
table.insert(classes, 'hlist')
local startNum = tonumber(data.start)
elseif listType == 'unbulleted' then
if startNum then
table.insert(classes, 'plainlist')
data.counterReset = 'listitem ' .. tostring(startNum - 1)
end
end
end
 
table.insert(classes, args.class)
-- List style
local ret
-- ul_style and ol_style are included for backwards compatibility. No
if #classes == 0 then
-- distinction is made for ordered or unordered lists.
return nil
data.listStyle = args.list_style
 
-- List items
-- li_style is included for backwards compatibility. item_style was included
-- to be easier to understand for non-coders.
data.itemStyle = args.item_style or args.li_style
data.items = {}
for i, num in ipairs(mTableTools.numKeys(args)) do
local item = {}
item.content = args[num]
item.style = args['item' .. tostring(num) .. '_style']
or args['item_style' .. tostring(num)]
item.value = args['item' .. tostring(num) .. '_value']
or args['item_value' .. tostring(num)]
table.insert(data.items, item)
end
end
return mw.ustring.format(' class="%s"', table.concat(classes, ' '))
return data
end
end


function p.renderList(data)
local function getStyle(listType, args)
-- Renders the list HTML.
local styles = {}
if listType == 'horizontal' or listType == 'horizontal_ordered' then
-- Return the blank string if there are no list items.
local indent = args.indent and tonumber(indent)
if type(data.items) ~= 'table' or #data.items < 1 then
indent = tostring((indent and indent * 1.6) or 0)
return ''
table.insert(styles, 'margin-left: ' .. indent .. 'em;')
end
end
local listStyleType = args['list-style-type']
-- Render the main div tag.
if listStyleType then
local root = mw.html.create('div')
table.insert(styles, 'list-style-type: ' .. listStyleType .. ';')
for i, class in ipairs(data.classes or {}) do
root:addClass(class)
end
end
root:css{['margin-left'] = data.marginLeft}
table.insert(styles, args.style)
if data.style then
if #styles == 0 then
root:cssText(data.style)
return nil
end
end
return mw.ustring.format(' style="%s"', table.concat(styles, ' '))
end


-- Render the list tag.
function p.makeList(listType, args)
local list = root:tag(data.listTag or 'ul')
-- This is the main function to be called from other Lua modules.
list
-- First, get the list items.
:attr{start = data.start, type = data.type}
local listItems = {}
:css{
local argNums = getArgNums(args)
['counter-reset'] = data.counterReset,
for i, num in ipairs(argNums) do
['list-style-type'] = data.listStyleType
local item = getListItem(
}
args[num],
if data.listStyle then
args.item_style or args.li_style, -- li_style is included for backwards compatibility. item_style was included to be easier to understand for non-coders.
list:cssText(data.listStyle)
args['item_style' .. tostring(num)] or args['li_style' .. tostring(num)]
)
table.insert(listItems, item)
end
if #listItems == 0 then
return ''
end
end
 
-- Check if we need a ul tag or an ol tag, and get the start and type attributes for ordered lists.
-- Render the list items
local listTag = 'ul'
for i, t in ipairs(data.items or {}) do
local startAttr, typeAttr
local item = list:tag('li')
if listType == 'ordered' or listType == 'horizontal_ordered' then
if data.itemStyle then
listTag = 'ol'
item:cssText(data.itemStyle)
startAttr = args.start
if startAttr then
startAttr = ' start="' .. startAttr .. '"'
end
end
if t.style then
typeAttr = args.type
item:cssText(t.style)
if typeAttr then
end
typeAttr = ' type="' .. typeAttr .. '"'
item
:attr{value = t.value}
:wikitext(t.content)
end
 
return data.templatestyles .. tostring(root)
end
 
function p.renderTrackingCategories(args)
local isDeprecated = false -- Tracks deprecated parameters.
for k, v in pairs(args) do
k = tostring(k)
if k:find('^item_style%d+$') or k:find('^item_value%d+$') then
isDeprecated = true
break
end
end
end
end
local ret = ''
startAttr = startAttr or ''
if isDeprecated then
typeAttr = typeAttr or ''
ret = ret .. '[[Category:List templates with deprecated parameters]]'
-- Get the classes and styles and output the list.
end
local class = getClass(listType, args) or ''
return ret
local style = getStyle(listType, args) 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 ''
return mw.ustring.format(
'<div%s%s><%s%s%s%s>%s</%s></div>',
class, style, listTag, startAttr, typeAttr, list_style, table.concat(listItems), listTag
)
end
end


function p.makeList(listType, args)
local function makeWrapper(listType)
if not listType or not listTypes[listType] then
return function(frame)
error(string.format(
local origArgs
"bad argument #1 to 'makeList' ('%s' is not a valid list type)",
if frame == mw.getCurrentFrame() then
tostring(listType)
origArgs = frame:getParent().args
), 2)
for k, v in pairs(frame.args) do
end
origArgs = frame.args
checkType('makeList', 2, args, 'table')
break
local data = p.makeListData(listType, args)
local list = p.renderList(data)
local trackingCategories = p.renderTrackingCategories(args)
return list .. trackingCategories
end
 
for listType in pairs(listTypes) do
p[listType] = function (frame)
local mArguments = require('Module:Arguments')
local origArgs = mArguments.getArgs(frame, {
valueFunc = function (key, value)
if not value or not mw.ustring.find(value, '%S') then return nil end
if mw.ustring.find(value, '^%s*[%*#;:]') then
return value
else
return value:match('^%s*(.-)%s*$')
end
end
return nil
else
origArgs = frame
end
end
})
-- Copy all the arguments to a new table, for faster indexing.
local args = {}
local args = {}
for k, v in pairs(origArgs) do
for k, v in pairs(origArgs) do
args[k] = v
if type(k) == 'number' or v ~= '' then
args[k] = v
end
end
end
return p.makeList(listType, args)
return p.makeList(listType, args)
end
end
end
local funcNames = {'bulleted', 'unbulleted', 'horizontal', 'ordered', 'horizontal_ordered'}
for _, funcName in ipairs(funcNames) do
p[funcName] = makeWrapper(funcName)
end
end


return p
return p
Please note that all contributions to Meta Wiki may be edited, altered, or removed by other contributors. If you do not want your writing to be edited mercilessly, then do not submit it here.
You are also promising us that you wrote this yourself, or copied it from a public domain or similar free resource (see Meta Wiki:Copyrights for details). Do not submit copyrighted work without permission!
Cancel Editing help (opens in new window)

Template used on this page:

Retrieved from "https://meta.skywiki.org/wiki/Module:List"