in.wiki

Изменения

Модуль:List (посмотреть исходный код)

Версия от 20:57, 29 декабря 2022

2774 байта добавлено ,  2 года назад
add templatestyles for hlist
Строка 1: Строка 1:  +
local libUtil = require('libraryUtil')
 +
local checkType = libUtil.checkType
 +
local mTableTools = require('Module:TableTools')
 +
 
local p = {}
 
local p = {}
   −
local function get_args (frame)
+
local listTypes = {
−
-- На случай вызова из шаблона и из модуля:
+
['bulleted'] = true,
−
local args = frame:getParent () and mw.clone (frame:getParent ().args) or {}
+
['unbulleted'] = true,
−
-- Overrides:
+
['horizontal'] = true,
−
for key, val in pairs (frame.args) do
+
['ordered'] = true,
−
args [key] = val
+
['horizontal_ordered'] = true
 +
}
 +
 
 +
function p.makeListData(listType, args)
 +
-- Constructs a data table to be passed to p.renderList.
 +
local data = {}
 +
 
 +
-- Classes and TemplateStyles
 +
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 = 'Hlist/styles.css' }
 +
}
 +
elseif listType == 'unbulleted' then
 +
table.insert(data.classes, 'plainlist')
 +
data.templatestyles = mw.getCurrentFrame():extensionTag{
 +
name = 'templatestyles', args = { src = 'Plainlist/styles.css' }
 +
}
 
end
 
end
−
return args
+
table.insert(data.classes, args.class)
−
end -- local function get_args (frame)
     −
local function remove_empty (list)
+
-- Main div style
−
local ret = {}
+
data.style = args.style
−
for i, item in ipairs (list) do
+
 
−
if item ~= '' then
+
-- Indent for horizontal lists
−
ret [#ret + 1] = item
+
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
 
end
 
end
−
return ret
+
−
end -- local function remove_empty (list)
+
-- 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']
   −
local function multiline (list, mark, header)
+
-- Detect invalid type attributes and attempt to convert them to
−
local ret = ''
+
-- list-style-type CSS properties.
−
for _, item in ipairs (list) do
+
if data.type
−
ret = ret .. '\n' .. mark .. ' ' .. tostring (item)
+
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'
 +
else
 +
data.listTag = 'ul'
 
end
 
end
−
if ret ~= '' and header then
+
 
−
ret = header .. ret
+
-- 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
 
end
−
return ret
  −
end -- local function multiline (list, mark, header)
     −
p.multiline = multiline
+
-- List style
 +
-- ul_style and ol_style are included for backwards compatibility. No
 +
-- distinction is made for ordered or unordered lists.
 +
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 _, 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
 +
 +
return data
 +
end
   −
function p.l (frame)
+
function p.renderList(data)
−
local args = get_args (frame)
+
-- 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.
 +
local root = mw.html.create('div')
 +
for _, class in ipairs(data.classes or {}) do
 +
root:addClass(class)
 +
end
 +
root:css{['margin-left'] = data.marginLeft}
 +
if data.style then
 +
root:cssText(data.style)
 +
end
   −
-- Извлекаем параметры — не пункты списка:
+
-- Render the list tag.
−
local header = args ['заголовок']
+
local list = root:tag(data.listTag or 'ul')
−
local separator = args ['разделитель']
+
list
−
-- Для явно заданного разделителя, вроде «•», «и» не нужно:
+
:attr{start = data.start, type = data.type}
−
local last = separator or args ['последний']
+
:css{
 +
['counter-reset'] = data.counterReset,
 +
['list-style-type'] = data.listStyleType
 +
}
 +
if data.listStyle then
 +
list:cssText(data.listStyle)
 +
end
   −
-- Случай многострочного списка:
+
-- Render the list items
−
if separator == '*' or separator == '#' then
+
for _, t in ipairs(data.items or {}) do
−
return multiline (remove_empty (args), separator, header)
+
local item = list:tag('li')
−
else
+
if data.itemStyle then
−
local ret = mw.text.listToText (remove_empty (args), separator, last)
+
item:cssText(data.itemStyle)
−
if ret ~= '' and header then
+
end
−
ret = header .. ' ' .. ret
+
if t.style then
 +
item:cssText(t.style)
 
end
 
end
−
return ret
+
item
 +
:attr{value = t.value}
 +
:wikitext(t.content)
 
end
 
end
−
end -- function p.l (frame)
     −
function p.bl (frame)
+
return data.templatestyles .. tostring(root)
−
local args = get_args (frame)
+
end
−
-- Общий маркёр:
  −
local bullet = args ['маркёр'] or args ['bullet'] or '{{*}}'
     −
local lines = {}
+
function p.renderTrackingCategories(args)
−
for i = 1, #args, 2 do
+
local isDeprecated = false -- Tracks deprecated parameters.
−
lines [#lines + 1] = {bullet = args [i] or bullet, str = args [i + 1] or ''}
+
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
 
local ret = ''
 
local ret = ''
−
if #lines > 0 then
+
if isDeprecated then
−
ret = ret .. '<table style="background: transparent; vertical-align: top;">'
+
ret = ret .. '[[Category:List templates with deprecated parameters]]'
−
for _, line in ipairs (lines) do
  −
ret = ret .. '\n<tr><td style="vertical-align:top; padding-top: 0.3ex">' .. line.bullet
  −
  .. '</td><td style="vertical-align:top">' .. line.str .. '</td></tr>'
  −
end
  −
ret = ret .. '\n</table>'
   
end
 
end
 
return ret
 
return ret
−
end -- function p.bl (frame)
+
end
   −
function p.ul (frame)
+
function p.makeList(listType, args)
−
local args = get_args (frame)
+
if not listType or not listTypes[listType] then
−
-- Извлекаем параметры — не пункты списка:
+
error(string.format(
−
local header = args ['заголовок']
+
"bad argument #1 to 'makeList' ('%s' is not a valid list type)",
−
return multiline (remove_empty (args), '*', header)
+
tostring(listType)
−
end -- function p.ul (frame)
+
), 2)
 +
end
 +
checkType('makeList', 2, args, 'table')
 +
local data = p.makeListData(listType, args)
 +
local list = p.renderList(data)
 +
local trackingCategories = p.renderTrackingCategories(args)
 +
return list .. trackingCategories
 +
end
   −
function p.ol (frame)
+
for listType in pairs(listTypes) do
−
local args = get_args (frame)
+
p[listType] = function (frame)
−
-- Извлекаем параметры — не пункты списка:
+
local mArguments = require('Module:Arguments')
−
local header = args ['заголовок']
+
local origArgs = mArguments.getArgs(frame, {
−
return multiline (remove_empty (args), '#', header)
+
valueFunc = function (key, value)
−
end -- function p.ol (frame)
+
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
 +
return nil
 +
end
 +
})
 +
-- Copy all the arguments to a new table, for faster indexing.
 +
local args = {}
 +
for k, v in pairs(origArgs) do
 +
args[k] = v
 +
end
 +
return p.makeList(listType, args)
 +
end
 +
end
    
return p
 
return p
Анонимный участник
Источник — https://in.wiki/Служебная:Сравнение_версий/345919