-- This module outputs different kinds of lists. At the moment, bulleted,
-- unbulleted, horizontal, ordered, and horizontal ordered lists are supported.
-- local libUtil = require('libraryUtil')
-- local checkType = libUtil.checkType
-- local mTableTools = require('Module:TableTools')
local p = {}
local listTypes = {
['bulleted'] = true,
['unbulleted'] = true,
['horizontal'] = true,
['ordered'] = true,
['horizontal_ordered'] = true,
concat = true,
list_to_text = true
}
function p.makeListData(listType, args)
-- Constructs a data table to be passed to p.renderList.
local data = {}
-- Classes
data.classes = {}
if listType == 'horizontal' or listType == 'horizontal_ordered' then
table.insert(data.classes, 'hlist')
elseif listType == 'unbulleted' then
table.insert(data.classes, 'plainlist')
end
table.insert(data.classes, args.class)
-- 设置trim是否为true
do
local trim = args.trim
data.trim = not(trim=='0' or trim==false)
end
-- Indent for horizontal lists
if listType == 'horizontal' or listType == 'horizontal_ordered' then
local indent = tonumber(args.indent)
indent = indent and indent * 1.6 or 0
if indent > 0 then
data.marginLeft = indent .. 'em'
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.liststyletype
data.type = args['type']
-- Detect invalid type attributes and attempt to convert them to
-- list-style-type CSS properties.
if data.type
and not data.listStyleType
and not tostring(data.type):find('^%s*[1AaIi]%s*$')
then
data.listStyleType = data.type
data.type = nil
end
end
-- List tag type
if listType == 'ordered' or listType == 'horizontal_ordered' then
data.listTag = 'ol'
elseif listType == 'concat' or listType == 'list_to_text' then
data.listTag = false
else
data.listTag = 'ul'
end
-- Start number for ordered lists
data.start = args.start
if listType == 'horizontal_ordered' then
-- Apply fix to get start numbers working with horizontal ordered lists.
local startNum = tonumber(data.start)
if startNum then
data.counterReset = 'listitem ' .. tostring(startNum - 1)
end
end
-- List style
-- ul_style and ol_style are included for backwards compatibility. No
-- distinction is made for ordered or unordered lists.
data.listStyle = args.liststyle or args.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.itemstyle
data.items = {}
if #args == 0 then
table.insert(args, args.default)
end
local trim = data.trim
for num, v in pairs(args) do
if type(num) == 'number' then
if trim then
v = mw.text.trim(v)
end
if (not trim) or v~='' then
-- 实际上相当于if trim and v=='' then continue end，
-- 但是Lua没有continue语法。
local item = {}
item.content = v
item.style = args['item' .. tostring(num) .. 'style']
item.value = args['item' .. tostring(num) .. 'value']
table.insert(data.items, item)
end
end
end
-- 列表修饰函数。修饰函数在渲染列表时才调用。
data.modify = false --初始化
-- if args.modification or args['function'] then
-- 指定调用一个模块对参数进行修改。
-- 如果没有指定函数名称，则将整个模块作为函数。
-- 如果指定了函数但是没有指定模块名称，
-- 则模块名称默认为Module:List/preset functions
-- local module_name = args.modification or 'Module:List/preset functions'
-- local function_name = args['function']
-- local success, target_module=pcall(require, module_name)
-- if success then
-- if function_name and type(target_module)=='table' then
-- data.modify = target_module[function_name]
-- elseif type(target_module)=='function'
-- or (getmetatable(target_module) or {}).__call then
-- data.modify = target_module
-- end
-- end
-- end
-- if args.call then
-- -- 指定一个模板，并且调用它。并且调用模板时，以列表项内容为参数。
-- -- 如果有第二个参数，取para作为第二个参数。
-- local template_name = args.call
-- local frame = frame or mw.getCurrentFrame()
-- local para = args.para
-- local call_args = {}
-- local content_key = args.content_as or 1
-- for k,v in pairs(args) do
-- local key = k:match('^para_(.+)')
-- if key then call_args[key]=v end
-- end
-- if content_key then
-- call_args[content_key] = content
-- end
-- function data.modify(content)
-- return frame:expandTemplate{
-- title = template_name,
-- args = call_args
-- }
-- end
-- end
--[[
if args.format then
-- 指定一个格式，并将其应用。
-- 注意：一个格式标记只能使用一次！
-- 由于使用多余一次会导致错误，故该函数暂时禁用。
function data.modify(content)
return string.format(args.format, content)
end
end
]]
if args.replacement then
-- 指定一串文本，将其%s替换为其内容。
-- 可以替换多次。
function data.modify(content)
return args.replacement:gsub('%%s',content)
end
end
if args.prefix or args.suffix then
-- 指定前缀和后缀，将其应用。
local prefix = args.prefix or ''
local suffix = args.suffix or ''
function data.modify(content)
return prefix .. content .. suffix
end
end
return data
end
function p.renderList(data)
-- Renders the list HTML.
-- Return the blank string if there are no list items.
if type(data.items) ~= 'table' or #data.items < 1 then
return ''
end
-- Render the main div tag.
-- 这里简化代码，不这样渲染
-- Render the list tag.
local list = mw.html.create(data.listTag or 'ul')
for i, class in ipairs(data.classes or {}) do
list:addClass(class)
end
list
:attr{start = data.start, type = data.type}
:css{
['counter-reset'] = data.counterReset,
['list-style-type'] = data.listStyleType,
['margin-left'] = data.marginLeft
}
if data.listStyle then
list:cssText(data.listStyle)
end
local modify = type(data.modify) == 'function' and data.modify or nil
-- Render the list items
for i, t in ipairs(data.items or {}) do
local item = list:tag('li')
local content
if modify then
content = modify(t.content)
else
content = t.content
end
if data.itemStyle then
item:cssText(data.itemStyle)
end
if t.style then
item:cssText(t.style)
end
item
:attr{value = t.value}
:wikitext(content)
end
return tostring(list)
end
function p.renderList2(data, listType, separation, conjunction)
local list = {}
local modify = type(data.modify) == 'function' and data.modify or nil
for i, t in ipairs(data.items or {}) do
local item
local content
if modify then
content = modify(t.content)
else
content = t.content
end
if data.itemStyle or t.style then -- 这一项定义了样式
item = mw.html.create'span'
:wikitext(content)
:cssText(data.itemStyle)
:cssText(t.style)
table.insert(list, tostring(item))
else -- 这一项没有定义任何样式
table.insert(list, content)
end
end
if listType=='concat' then
if separation and conjunction then
return mw.text.listToText(list, separation, conjunction)
else
return table.concat(list, separation)
end
elseif listType=='list_to_text' then
return mw.text.listToText(list, separation, conjunction)
end
end
function p.makeList(listType, args)
-- 如果未指定listType或listType指定不正确，取默认值bulleted
if not listType or not listTypes[listType] then
listType = 'bulleted'
end
-- checkType('makeList', 2, args, 'table')
local data = p.makeListData(listType, args)
if listType == 'concat' or listType == 'list_to_text' then
return p.renderList2(data,listType,args.separation or args.sep,args.conjunction or args.conj)
else
return p.renderList(data)
end
end
for listType in pairs(listTypes) do
p[listType] = function (frame)
local getArgs = require('Module:Arguments').getArgs
local origArgs = getArgs(frame, {frame=true})
local parentArgs = getArgs(frame, {parentOnly=true})
local arguments = origArgs.arguments or 'self'
-- 关于此参数的说明：
-- self（默认）：只考虑通过#invoke调用的模块自身的参数
-- parent：使用调用了此模块的模板时传入的参数
-- template：数字参数为parent，其他参数为self
-- both：同时考虑二者，且模板参数优先，相当于parentFirst
-- Copy all the arguments to a new table, for faster indexing.
local args = {}
if arguments=='self' or arguments=='both' or arguments=='template' then
for k, v in pairs(origArgs) do
if arguments~='template' or type(k)~='number' then
v = type(k)=='number' and v or mw.text.trim(v)
args[k] = v~='' and v or nil
end
end
end
if arguments=='parent' or arguments=='both' or arguments=='template' then
for k,v in pairs(parentArgs) do
if arguments~='template' or type(k)=='number' then
v = type(k)=='number' and v or mw.text.trim(v)
args[k] = v~='' and v or nil
end
end
end
return p.makeList(listType, args)
end
end
return p
