Toggle search
Toggle menu
1K
1.1K
35
7.2K
The Petit Planet Wiki
Toggle preferences menu
Toggle personal menu
Not logged in
Your IP address will be publicly visible if you make any edits.

Module:Sandbox/Stevium: Difference between revisions

From The Petit Planet Wiki
More actions
Browse history interactively
Created Module:Sandbox/Stevium
 
Testing subtitle
 
Line 1: Line 1:
-- Imported from: https://defaultloadout.wiki.gg/wiki/Module:Navbox
-- Imported from: https://defaultloadout.wiki.gg/wiki/Module:Infobox
-- version 1.2.5.1
-- version 0.1.11


-- config table for RANGER.
--------------------------------------
-- If you want to change the default config, DO NOT change it here,
-- User settings, you can modify these
-- please do it via the `onLoadConfig` hook in [[Module:Navbox/Hooks]].
--------------------------------------
local config = {
default_navbox_class = "navigation-not-searchable noexcerpt",  -- Base value of the `class` parameter.
default_title_class = nil,    -- Base value of the `title_class` parameter.
default_above_class = nil,    -- Base value of the `above_class` parameter.
default_below_class = nil,    -- Base value of the `below_class` parameter.
default_section_class =nil,  -- Base value of the `section_class` parameter.
default_header_class = nil,  -- Base value of the `header_class` parameter.
default_group_class = nil,    -- Base value of the `group_class` parameter.
default_list_class = 'hlist', -- Base value of the `list_class` parameter.
default_header_state = nil, -- Base value of the `state` parameter.


editlink_hover_message_key = 'Navbox-edit-hover', -- The system message name for hover text of the edit icon.
-- if you want to not always use divs in your wiki (as opposed to tables), you can change this default
-- just remember to change it back each time you update from the main "branch" on the support wiki!
-- you can also control it per infobox with `|useDivs=yes` or `|useDivs=no`
local USE_DIVS = true -- `false` or `true`


auto_flatten_top_level = true, -- If true, when a section has only one list with no content and no corresponding group but has sublists, these sublists will be moved to top level.
-- default value to show if a param is missing in some but not all tabs.
-- This helps make the hierarchy of sections and content clearer.
-- set to `nil` (not in quotes) to remove such rows altogether in the tabs where they're missing
-- An example:
local TABBED_NONEXIST = nil -- `''` or `nil` or `'N/A'` etc. Don't put nil in quotes.
-- {{navbox
-- ...
--  |header1 = Items
--  | group1.1 = Weapons
--  |  list1.1 = Swords · Guns · Wands
--  | group1.2 = Armors
--  |  list1.2 = Head pieces · Capes
--  |header2 = NPCs
--  | group2.1 = Town NPCs
--  |  list2.1 = Guide · Witch
-- ...
-- }}
-- will be equal to:
-- {{navbox
-- ...
--  |header1 = Items
--  | group2 = Weapons
--  |  list2 = Swords · Guns · Wands
--  | group3 = Armors
--  |  list3 = Head pieces · Capes
--  |header5 = NPCs
--  | group6 = Town NPCs
--  |  list6 = Guide · Witch
-- ...
-- }}
custom_render_handle = nil, -- usually for debugging purposes only. if set, it should be a function accept 2 parameters: `dataTree` and `args`, and return a string as module output.
}


---------------------------------------------------------------------
---------------------------------------------------------------------------
-- Do not modify anything below this line unless you know what you're doing
---------------------------------------------------------------------------


-- Argument alias.
local h = {}
local CANONICAL_NAMES = {
local p = {}
['titlestyle'] = 'title_style',
local hooks = {}
['listclass'] = 'list_class',
['groupstyle'] = 'group_style',
['collapsible'] = 'state',
['editlink'] = 'meta',
['editlinks'] = 'meta',
['editicon'] = 'meta',
['edit_link'] = 'meta',
['edit_links'] = 'meta',
['edit_icon'] = 'meta',
['navbar'] = 'meta',
['name'] = 'template',
['evenodd'] = 'striped',
['class'] = 'navbox_class',
['css'] = 'navbox_style',
['style'] = 'navbox_style',
['group'] = '1:group',
['list'] = '1:list',
}


local DEFAULT_ARGS = {
function p.arraymap(frame)
['meta'] = true,
-- a lua implementation of Page Forms' arraymap
}
local args = h.overwrite()
local items = h.split(args[1], args[2] or ',')
for i, item in ipairs(items) do
items[i] = args[4]:gsub(args[3], item)
end
return table.concat(items, args[5] or ',')
end


local STATES = {
function p.preprocess(frame)
['no'] = '',
return frame:preprocess(frame.args[1] or frame:getParent().args[1])
['off'] = '',
end
['plain'] = '',
['collapsed'] = 'mw-collapsible mw-collapsed',
['expanded'] = 'mw-collapsible',
}


local BOOL_FALSE = {
function p.main(frame)
['no'] = true,
h.registerHooks()
['off'] = true,
h.increment()
['false'] = true,
local args = h.overwrite()
}
local sep = args.sep or ','
h.castArgs(args, sep)
if h.castBool(args.setmainimage or 'yes') then
h.setMainImage(args.images[1])
end
return h.makeInfobox(args, sep)
end


local STRIPED = {
function h.registerHooks()
['odd'] = 'striped-odd',
if not mw.title.new('Module:Infobox/Hooks').exists then return end
['swap'] = 'striped-odd',
hooks = require('Module:Infobox/Hooks')
['y'] = 'striped-even',
end
['yes'] = 'striped-even',
['on'] = 'striped-even',
['even'] = 'striped-even',
['striped'] = 'striped-even',
}


local NAVBOX_CHILD_INDICATOR = '!!C$H$I$L$D!!'
function h.runHook(key, ...)
local NAVBOX_CHILD_INDICATOR_LENGTH = string.len( NAVBOX_CHILD_INDICATOR )
if hooks[key] then
 
hooks[key](...)
local CLASS_PREFIX = 'ranger-'
end
 
---------------------------------------------------------------------
 
local p = {}
local h = {} -- non-public
local hooks = mw.title.new('Module:Navbox/Hooks').exists and require('Module:Navbox/Hooks') or {}
 
---------------------------------------------------------------------
 
-- For templates: {{#invoke:navbox|main|...}}
function p.main(frame)
local args = p.mergeArgs(frame)
return p.build(args, true)
end
end


-- For modules: return require('module:navbox').build(args)
function h.increment()
-- By default this method will skip the arguments sanitizing phase
-- optional use of VariablesLua for better compatibility
-- (and onSanitizeArgsStart/onSanitizeArgsEnd hooks).
local VariablesLua = mw.ext.VariablesLua
-- Set `doParseArgs` to true to do arguments sanitizing.
if VariablesLua ~= nil then
-- If `customConfig` table is provided, it will be merged into default config table (after onLoadConfig()).
h.counter = VariablesLua.var('DRUID_INFOBOX_ID', 0) + 1
-- If `customHooks` table is provided, all default hook handles will be overrided, unprovided hooks will be empty.
VariablesLua.vardefine('DRUID_INFOBOX_ID', h.counter)
function p.build(args, doParseArgs, customConfig, customHooks)
return
if customHooks then
hooks = customHooks
end
end
local res
if doParseArgs then  
-- try to fall back to normal Variables
args = h.parseArgs(args)
res, h.counter = pcall(
function()
return mw.getCurrentFrame():callParserFunction('#var', {'DRUID_INFOBOX_ID', 0}) + 1
end
)
if res then
mw.getCurrentFrame():callParserFunction('#vardefine', {'DRUID_INFOBOX_ID', h.counter})
else
-- else use a random number so at least there's some unique id
h.counter = math.random(100000000000000000) -- random integer
end
end
end


h.runHook('onLoadConfig', config, args)
function h.castArgs(args, sep)
 
h.runHook('onCastArgsStart', args, sep, args.kind)
if customConfig then
args.tabs = h.split(args.tabs or args.image_labels, sep)
for k,v in pairs(customConfig) do
args.images = h.getImages(args, sep)
config[k] = v
args.sections = h.split(args.sections, sep)
for _, section in ipairs(args.sections) do
if h.castBool(args[section .. '_isdata']) then
args[section .. 'Data'] = args[section]
args[section] = section .. 'Data'
args[section .. 'Data_nolabel'] = 'true' -- will be cast later
end
end
end
args[section] = h.split(args[section], sep)
args[section .. '_tabs'] = h.split(args[section .. '_tabs'], sep)
--merge default args
if #args.tabs > 0 and #args[section .. '_tabs'] > 0 then
for k,v in pairs(DEFAULT_ARGS) do
error(('You cannot specify |tabs= and |%s= at the same time, please pick one'):format(section .. '_tabs'))
if args[k] == nil then
args[k] = DEFAULT_ARGS[k]
end
end
end
end
 
if args.useDivs then
h.runHook('onBuildTreeStart', args)
USE_DIVS = h.castBool(args.useDivs)
local dataTree = h.buildDataTree(args)
h.runHook('onBuildTreeEnd', dataTree, args)
if type(config.custom_render_handle) == 'function' then
return config.custom_render_handle(dataTree, args)
else
return h.render(dataTree)
end
end
-- this would be in the outer scope, but we're hiding it
h.entityType = USE_DIVS and 'div' or 'table' -- key of h.htmlEntities
h.runHook('onCastArgsEnd', args, sep, args.kind)
h.focusTab(args)
end
end


-- merge args from frame and frame:getParent()
function h.getImages(args, sep)
-- It may be used when creating custom wrapping navbox module.
if args.image and not args.images then
--
args.images = args.image
-- For example, Module:PillNavbox
end
--
if args.images then
-- local RANGER = require('Module:Navbox')
return h.split(args.images, sep)
-- local p = {}
-- function p.main(frame)
--    return RANGER.build(RANGER.mergeArgs(frame), true, {
--        default_navbox_class = 'pill', -- use "pill" style by default.
--    })
-- end
-- return p
--
function p.mergeArgs(frame)
local inputArgs = {}
for k, v in pairs(frame.args) do
v = mw.text.trim(tostring(v))
if v ~= '' then
inputArgs[k] = v
end
end
end
if not args.tabs then return {} end
for k, v in pairs(frame:getParent().args) do
local ret = {}
v = mw.text.trim(v)
for _, key in ipairs(args.tabs) do
if v ~= '' then
if args[key .. '_image'] then
inputArgs[k] = v
ret[#ret+1] = args[key .. '_image']
end
end
end
end
return ret
return inputArgs
end
end


------------------------------------------------------------------------
function h.setMainImage(file)
if h.counter > 1 then return end
if not file then return end
local fileText = file:gsub('.-:', '')
fileText = fileText:gsub('^([^|%]]+).*', '%1')
-- setmainimage is guaranteed to exist on wiki.gg but may not exist on other wikis
-- it's not a crucial piece of functionality so we'll fail silently if it doesn't exist
pcall(function() mw.getCurrentFrame():callParserFunction{
name = '#setmainimage',
args = { fileText },
} end)
end


-- equivalent to mw.text.split(str, div, true) for non-empty separator, but can be over 60x faster, since the latter is Unicode-aware.
function h.focusTab(args)
-- Original version credit: http://richard.warburton.it.
local hasFocusedTab = false
function h.explode(div, str)
if not args.tabs[1] then return end
if (div=='') then return nil end
for i, tab in ipairs(args.tabs) do
local pos,arr = 0,{}
if h.castBool(args[tab .. '_focused']) then
-- for each divider found
hasFocusedTab = true
for st,sp in function() return string.find(str,div,pos,true) end do
args[tab .. '_focused'] = true -- cast to bool
arr[#arr+1] = string.sub(str,pos,st-1) -- Attach chars left of current divider
else
pos = sp+1 -- Jump past current divider
args[tab .. '_focused'] = false
end
end
end
arr[#arr+1] = string.sub(str,pos) -- Attach chars right of last divider
if hasFocusedTab then return end
return arr
args[args.tabs[1] .. '_focused'] = true
end
end


function h.parseArgs(inputArgs)
function h.makeInfobox(args, sep)
h.runHook('onSanitizeArgsStart', inputArgs)
local out = mw.html.create(h.getTag('container'))
:addClass('druid-infobox')
local args = {}
:addClass('druid-container')
:addClass('noexcerpt')
for k, v in pairs(inputArgs) do
:addClass(args.class) -- warning: class can be nil, don't concat anything
if type(k) == 'string' then
:attr('id', args.id or ('druid-container-' .. h.counter))
-- all named args have already been trimmed
h.runHook('onMakeOutputStart', out, args)
local key = h.normalizeKey(k)
if args.kind then out:addClass('druid-container-' .. h.escape(args.kind)) end
args[key] = h.normalizeValue(key, v)
h.printTitle(out, args)
else
h.printSubtitle(out, args)
args[k] = mw.text.trim(v) -- keep number-index arguments (for {{navbox|child|...}})
h.printImages(out, args.images, args)
end
for _, section in ipairs(args.sections) do
-- cannot begin tagging here because we don't know if any applicable args are present
local cols = args[section .. '_columns']
local makeSection = cols and h.makeGridSection or h.makeSection
out:node(makeSection(section, args[section], args, tonumber(cols)))
end
end
h.runHook('onMakeOutputEnd', out, args)
h.runHook('onSanitizeArgsEnd', args, inputArgs)
return out
return args
end
end


-- Normalize the name string of arguments.
function h.printTitle(out, args)
-- the normalized form is (index:)?name, in which:
local tabs = args.tabs
-- index is number index such as 1, 1.3, 1.2.45,
if not tabs or #tabs == 0 then
-- name is in lowercase underscore-case, such as group, group_style
h.printSimpleTitle(out, args)
-- e.g: header_state, 1.3:list_style
return
-- the input argument name can be:
end
-- * camel-case: listStyle, ListStyle
if not h.hasComplexData('title', tabs, args) then
-- * space separated: list style
h.printSimpleTitle(out, args)
-- * prefix+index+postfix?, and can be in camel-case or space/hyphen separated or mixed: list 1 style, list1, list1Style, list1_style
return
-- * index.name: 1.3.list
end
-- * index_name: 1.3_list (Space separated are treated as underscore separated, therefore 1.3 list are vaild too)
local node = h.printTitleWrapper(out)
function h.normalizeKey(s)
h.printTabbedDataItem(node, 'title', tabs, args)
-- camel-case to lowercase underscore-case
end
s = s:gsub('%l%f[%u]', '%0_') -- listStyle to list_style
s = (s:gsub(' ', '_')):lower() -- space to underscore
s = s:gsub('%l%f[%d]', '%0_') -- group1* to group_1*
s = s:gsub('%d%f[%l]', '%0_') -- *1style to *1_style
-- number format x_y_z to x.y.z
s = s:gsub('(%d)_%f[%d]', '%1%.')
-- move index to the beginning:
-- group_1.2_style to 1.2:group_style
-- group_1 to 1:group
s = s:gsub('^([%l_]+)_([%d%.]+)', '%2:%1')
-- support index.name and index_name:
-- 1.2.group / 1.2_group to 1.2:group
s = s:gsub('^([%d%.]+)[%._]%f[%l]', '%1:')
-- now the key should be in normalized form, if the origin key is vaild


-- standardize *_css to *_style
function h.printSimpleTitle(out, args)
s = s:gsub('_css$', '_style')
if args.title then
-- standardize *collapsible to *state
local node = h.printTitleWrapper(out)
s = s:gsub('collapsible$', 'state')
node:wikitext(args.title)
end
end


-- standardize all aliases to the canonical name
function h.printTitleWrapper(out)
return CANONICAL_NAMES[s] or s
return out:tag(h.getTag('titleOuter'))
:tag(h.getTag('titleInner'))
:addClass('druid-title')
:attr('colspan', 2)
end
end


function h.normalizeValue(k, v)
function h.printSubtitle(out, args)
k = tostring(k)
if args.subtitle and args.subtitle ~= '' then
if k:find('_style$') then
out:tag(h.getTag('titleOuter'))
v = (v .. ';'):gsub(';;', ';')
:tag(h.getTag('titleInner'))
return v
:addClass('druid-subtitle')
elseif k:find('state$') then
:attr('colspan', 2)
return STATES[v]
:wikitext(args.subtitle)
elseif k == 'striped' then
return STRIPED[v]
elseif k == 'meta' then
return not BOOL_FALSE[v]
elseif v:sub(1, 2) == '{|' or v:match('^[*:;#]') then
-- Applying nowrap to lines in a table does not make sense.
-- Add newlines to compensate for trim of x in |parm=x in a template.
return '\n' .. v ..'\n'
end
end
return v
end
end


-- parse arguments, convert them to structured data tree
function h.printTabbedDataItem(node, item, tabs, args)
function h.buildDataTree(args)
-- hasData isn't used in the title case but we will need to track this
-- parse args to a tree
-- when we're printing section data later on
local tree = h.buildTree(args)
-- so we'll just track it always
local hasData = false
for i, label in ipairs(tabs) do
local div = node:tag('div')
:addClass('druid-toggleable-data')
:addClass('druid-toggleable')
:attr('data-druid', h.counter .. '-' .. i)
:attr('data-druid-tab-key', label)
if h.getTabbedContent(args, label, item) then
hasData = true
div:wikitext('\n\n' .. h.getTabbedContent(args, label, item))
div:addClass('druid-toggleable-data-nonempty')
else
div:addClass('druid-toggleable-data-empty')
end
if args[label .. '_focused'] then div:addClass('focused') end
end
return hasData
end


-- build root navbox data
function h.printImages(out, images, args)
local data = h.buildNavboxData(tree.info)
if #images == 0 and #args.tabs == 0 then return end
-- burden is on the user to format this as an image. this should be done in the infobox template,
-- Recursively build section tree
-- with something like |image={{#if:{{{image|}}}|[[File:{{{image|}}}{{!}}300px{{!}}link=]]}}
if tree.children then
local td = out:tag(h.getTag('section'))
data.sections = h.buildSections(tree.children, {
:addClass('druid-section-container')
listClass = h.mergeAttrs(args.list_class, config.default_list_class),
:tag(h.getTag('cell'))
listStyle = args.list_style,
:attr('colspan', 2)
groupClass = h.mergeAttrs(args.group_class, config.default_group_class),
local tabs = args.tabs
groupStyle = args.group_style,
local tabTexts = h.getImageTabTexts(tabs, images, args)
sectionClass = h.mergeAttrs(args.section_class, config.default_section_class),
h.printTabs(td, tabs, tabTexts, false, args)
sectionStyle = args.section_style,
if #images == 0 then return end
headerClass = h.mergeAttrs(args.header_class, config.default_header_class),
if #images == 1 then
headerStyle = args.header_style,
td:addClass('druid-main-image')
headerState = args.header_state or config.default_header_state,
:wikitext(images[1])
})
if args.caption then
td:tag('div')
:addClass('druid-main-image-caption')
:wikitext(args.caption)
end
return
end
end
if args[1] == 'child' then
td:addClass('druid-main-images')
data.CHILD_MODE = true
local imagesContainer = td:tag('div')
:addClass('druid-main-images-files')
for i, image in ipairs(images) do
local container = imagesContainer:tag('div')
:addClass('druid-main-images-file')
:addClass('druid-toggleable')
:attr('data-druid', h.counter .. '-' .. i)
:wikitext(image)
:attr('data-druid-tab-key', tabs[i])
local labelDisplay
local labelKey = tabs[i]
local caption = args.caption
if labelKey then
labelDisplay = args[labelKey .. '_label'] or labelKey
caption = args[labelKey .. '_caption'] or caption
else
labelDisplay = 'Image ' .. i
end
caption = args[labelDisplay .. '_caption'] or caption
if caption then
container:tag('div')
:addClass('druid-main-images-caption')
:wikitext(caption)
end
if labelKey and args[labelKey .. '_focused'] then
container:addClass('focused')
end
end
end
end


return data
function h.getImageTabTexts(tabs, images, args)
if #tabs == 0 and #images <= 1 then return {} end
local texts = {}
local i = 1
while images[i] or tabs[i] do
if tabs[i] then
texts[i] = args[tabs[i] .. '_label'] or tabs[i]
else
texts[i] = 'Image ' .. i
end
i = i + 1
end
return texts
end
end


function h.buildSections(list, defaults)
function h.printTabs(td, tabs, texts, isSection, args)
local sections = {}
if #texts == 0 then return end
local section = nil
local container = td:tag('div')
for k, node in h.orderedPairs(list) do
:addClass('druid-main-images-labels')
local info = node.info or {}
:addClass('druid-tabs')
--start a new section if needed
if isSection then
if info.header or not section then
container:addClass('druid-section-tabs')
section = {
end
class = h.mergeAttrs(info.section_class, defaults.sectionClass),
for i, item in ipairs(tabs) do
style = h.mergeAttrs(info.section_style, defaults.sectionStyle),
local label = container:tag('div')
body = {}
:addClass('druid-main-images-label')
}
:addClass('druid-tab')
-- Section header if needed.
:addClass('druid-toggleable')
-- If the value of a `|header_n=` is two or more consecutive "-" characters (e.g. --, -----),
:attr('data-druid', h.counter .. '-' .. i)
-- it means start a new section without header, and the new section will be not collapsable.
:wikitext(texts[i])
if info.header and not string.match(info.header, '^%-%-+$') then
:attr('data-druid-tab-key', item)
section.header = {
if isSection then
content = info.header,
label:addClass('druid-section-tab')
class = h.mergeAttrs(info.header_class, defaults.headerClass),
else
style = h.mergeAttrs(info.header_style, defaults.headerStyle),
label:addClass('druid-title-tab')
}
section.state = info.state or defaults.headerState or 'mw-collapsible'
end
sections[#sections+1] = section
end
end
-- above/below for this section
if args[item .. '_focused'] then
if info.above then
label:addClass('focused')
section.above = {
content = info.above,
class= h.mergeAttrs(info.above_class, config.default_above_class),
style = info.above_style,
}
end
end
if info.below then
-- this can be null, don't concat anything here
section.below = {
label:addClass(args[item .. '_class'])
content = info.below,
end
class= h.mergeAttrs(info.below_class, config.default_below_class),
end
style = info.below_style,
 
}
function h.makeGridSection(section, sectionFields, args, numCols)
end
local numItems = h.countItems(sectionFields, section, args)
-- this group+list row
if numItems == 0 then return end
if info.group or info.list or node.children then
local node = mw.html.create(h.getTag('section'))
local row = {}
:addClass('druid-section-container')
section.body[#section.body+1] = row
h.printSectionHeader(node, section, args)
if info.group then
h.printSectionTabs(node, section, args)
row.group = {
local tr = node:tag(h.getTag('row'))
content = info.group,
:attr('data-druid-section-row', h.escape(section))
class = h.mergeAttrs(info.group_class, defaults.groupClass),
if args[section .. '_collapsed'] then
style = h.mergeAttrs(info.group_style, defaults.groupStyle),
tr:addClass('druid-collapsed')
}
end
local grid = tr:tag(h.getTag('cell'))
:attr('colspan', 2)
:addClass('druid-grid-section')
:addClass('druid-grid-section-' .. h.escape(section))
:addClass(args[section .. '_class']) -- warning: class can be nil, don't concat anything
:tag('div')
:addClass('druid-grid')
local row, col, i = 1, 1, 1
local sizeOfLastRow = numItems % numCols
local lcm = h.getNumGridCols(numItems, sizeOfLastRow, numCols)
grid:css('grid-template-columns', ('repeat(%s, 1fr)'):format(lcm))
local size = lcm / numCols
for _, item in ipairs(sectionFields) do
local node = mw.html.create('div')
local shouldPrint = h.printData(node, item, section, args)
if shouldPrint then
if i == numItems - sizeOfLastRow + 1 then
size = lcm / sizeOfLastRow
end
end
if info.list then
i = i + 1
if string.sub(info.list, 1, NAVBOX_CHILD_INDICATOR_LENGTH) == NAVBOX_CHILD_INDICATOR then
local gStart = (col - 1) * size + 1
-- it is from {{navbox|child| ... }}
local gEnd = (col) * size + 1
row.sections = mw.text.jsonDecode(string.sub(info.list, NAVBOX_CHILD_INDICATOR_LENGTH+1))
local itemContainer = grid:tag('div')
else
:addClass('druid-grid-item')
row.list = {
:addClass('druid-grid-item-' .. h.escape(item))
content = info.list,
:addClass(args[item .. '_class']) -- warning: class can be nil, don't concat anything
class = h.mergeAttrs(info.list_class, defaults.listClass),
:css('grid-column', ('%s / %s'):format(gStart, gEnd))
style = h.mergeAttrs(info.list_style, defaults.listStyle),
:css('grid-row', row)
}
if not h.castBool(args[item .. '_nolabel']) then
end
h.printLabel(itemContainer:tag('div'), item, args)
end
end
-- sub-nodes, will override {{navbox|child| ... }}
itemContainer:node(node)
if node.children then
if col == numCols then
row.sections = h.buildSections(node.children, defaults)
row = row + 1
col = 1
else
col = col + 1
end
end
end
end
end
end
-- flatten if needed:
return node
-- If a section has only one list with no content and no corresponding group but has sublists, these sublists will be moved to upper level.
end
if config.auto_flatten_top_level then
 
for _, sect in ipairs(sections) do
function h.makeSection(section, sectionFields, args)
if #sect.body == 1 then
if section == '' then return end -- bruteforce fix for trailing commas
local node = sect.body[1]
local shouldPrint = false
if not node.group and not node.list and node.sections and #node.sections == 1 and not node.sections[1].header then
local container = mw.html.create(h.getTag('section'))
sect.body = node.sections[1].body
:addClass('druid-section-container')
end
:addClass(args[section .. '_class']) -- warning: class can be nil, don't concat anything
h.printSectionHeader(container, section, args)
h.printSectionTabs(container, section, args)
for _, item in ipairs(sectionFields) do
local node = mw.html.create(h.getTag('cell'))
local shouldPrintItem = h.printData(node, item, section, args)
if shouldPrintItem then
shouldPrint = true
local tr = container:tag(h.getTag('row'))
:addClass('druid-row')
:addClass('druid-row-' .. h.escape(item))
:addClass(args[item .. '_class']) -- warning: class can be nil, don't concat anything
:attr('data-druid-section-row', h.escape(section))
if args[section .. '_collapsed'] then
tr:addClass('druid-collapsed')
end
if h.castBool(args[item .. '_wide']) or h.castBool(args[item .. '_nolabel']) then
node
:attr('colspan', 2)
:addClass('druid-data-wide')
else
h.printLabel(tr:tag(h.getTag('label')), item, args)
end
end
tr:node(node)
end
end
end
end
return sections
if not shouldPrint then return nil end
return container
end
end
 
function h.buildNavboxData(info)
function h.countItems(sectionFields, section, args)
local data = {
local numItems = 0
state = info.state or 'mw-collapsible', -- here we need a default value for empty input
for _, v in ipairs(sectionFields) do
striped = info.striped,
-- we aren't actually printing here, but we're finding out if we should print anything
class = h.mergeAttrs(info.navbox_class, config.default_navbox_class),
-- because we need the count of columns before we print anything in grid data
style = info.navbox_style,
if h.printData(mw.html.create(), v, section, args) then
}
numItems = numItems + 1
-- data for titlebar
if info.title or info.meta or data.state ~= '' then
data.title = {
content = info.title,
class = h.mergeAttrs(info.title_class, config.default_title_class),
style = info.title_style,
}
if info.meta then
data.metaLinks = {
link = info.meta_link, -- will be used as [[$link|$text]]
url = info.meta_url,  -- will be used as [$url $text], only if there is no data.metaLinks.link
text = info.meta_text, --hovertext
}
if not info.meta_link and not info.meta_url then
-- default link target
local title = mw.title.new(info.template or mw.getCurrentFrame():getParent():getTitle(), 'Template')
if not title then
error('Invalid title ' .. info.template)
end
data.metaLinks.link = title.fullText
end
if not info.meta_text then
local msg = mw.message.new(config.editlink_hover_message_key)
data.metaLinks.text = msg:exists() and msg:plain() or 'View or edit this template'
end
end
end
end
end
return numItems
-- above/below
end
if info.above then
 
data.above = {
function h.getNumGridCols(numItems, sizeOfLastRow, numCols)
content = info.above,
if not numCols then return numItems, 1 end
class= h.mergeAttrs(info.above_class, config.default_above_class),
if numItems < numCols then return numItems, 1 end
style = info.above_style,
if sizeOfLastRow == 0 then
}
return numCols, 1
end
end
 
local a, b = sizeOfLastRow, numCols
if info.below then
while b ~= 0 do
data.below = {
a, b = b, a % b
content = info.below,
class= h.mergeAttrs(info.below_class, config.default_below_class),
style = info.below_style,
}
end
end
local lcm = sizeOfLastRow * numCols / a
return data
return lcm
end
end


-- parse arguments, convert them into a tree based on their index
function h.printLabel(node, item, args)
-- each node on tree is { info = { #data for this node# }, children = {#children nodes#}  }
return node
function h.buildTree(args, defaults)
:addClass('druid-label')
local tree = { info = {} }
:addClass('druid-label-' .. h.escape(item))
local check = function(key, value)
:wikitext(args[item .. '_display'] or args[item .. '_label'] or item)
local index, name = string.match(key, '^([%d%.]+):(.+)$')
end


-- no number index found, for root node
function h.printData(node, item, section, args)
if not index then
-- prints data to the node
tree.info[key] = value
-- and also returns whether the item is nonempty or not
return
local hasData = false
end
local sectionTabs = args[section .. '_tabs']
 
local tabs = args.tabs
-- filter invalid number index
if sectionTabs and #sectionTabs > 0 then
if string.match(index, '^%.') or string.match(index, '%.$') or string.match(index, '%.%.') then
tabs = sectionTabs
return
end
end
if not tabs or #tabs == 0 then
return h.printSimpleData(node, item, args)
-- find the node that matches the index in the tree
end
local arr = h.explode('.', index)
if not h.hasComplexData(item, tabs, args) then
local node = tree
return h.printSimpleData(node, item, args)
for _, v in ipairs(arr) do
v = tonumber(v)
if not node.children then
node.children = {}
end
if not node.children[v] then  
node.children[v] = { info = {} }
end
node = node.children[v]
end
node.info[name] = value
end
end
for k,v in pairs(args) do
hasData = hasData or h.printTabbedDataItem(node, item, tabs, args)
check(k, v)
if hasData then
node:addClass('druid-data')
end
end
return tree
return hasData
end
 
function h.getTabbedContent(args, label, item)
return args[label .. '_' .. item] or args[item] or TABBED_NONEXIST
end
end


function h.render(data)
function h.printSimpleData(node, item, args)
-- handle {{navbox|child|...}} syntax
if args[item] and type(args[item]) ~= 'string' then
if data.CHILD_MODE then
error(("Invalid use of field %s as both a section and a data value"):format(item))
return NAVBOX_CHILD_INDICATOR..mw.text.jsonEncode(data.sections)
end
end
if not args[item] then return false end
node:addClass('druid-data')
:addClass('druid-data-' .. h.escape(item))
:addClass('druid-data-nonempty')
:wikitext('\n\n' .. args[item])
return true
end


-----  normal case -----
function h.hasComplexData(item, tabs, args)
for _, v in ipairs(tabs) do
local out = mw.html.create()
if args[v .. '_' .. item] then return true end
end
-- build navbox container
return false
local navbox = out:tag('div')
end
:attr('role', 'navigation'):attr('aria-label', 'Navbox')
:addClass(CLASS_PREFIX..'navbox')
:addClass(data.class)
:addClass(data.striped)
:addClass(data.state)
:cssText(data.style)


--title bar
function h.printSectionHeader(node, section, args)
if data.title then
if h.castBool(args[section .. '_nolabel']) then return end
local titlebar = navbox:tag('div'):addClass(CLASS_PREFIX..'title')
local tr = node:tag(h.getTag('row'))
titlebar:tag('div'):addClass('mw-collapsible-toggle-placeholder')
:attr('data-druid-section', h.escape(section))
if data.metaLinks then
local th = tr:tag(h.getTag('sectionTitle'))
titlebar:node(h.renderMetaLinks(data.metaLinks))
:attr('colspan', 2)
:addClass('druid-section')
:addClass('druid-section-' .. h.escape(section))
if args[section .. '_collapsible'] or args[section .. '_collapsed'] then
tr:addClass('druid-collapsible')
if args[section .. '_collapsed'] then
tr:addClass('druid-collapsible-collapsed')
end
end
if data.title then
end
titlebar:addClass(data.title.class):tag('div')
local emptySections = {}
:addClass(CLASS_PREFIX..'title-text')
for _, label in ipairs(args.tabs) do
:addClass(data.title.class)
local hasLabel = false
:cssText(data.title.style)
for _, item in ipairs(args[section] or {}) do
:wikitext(data.title.content)
if h.getTabbedContent(args, label, item) then
hasLabel = true
end
end
end
if not hasLabel then emptySections[label] = true end
end
end
 
if not next(emptySections) then
--above
th:wikitext(args[section .. '_label'] or section)
if data.above then
return
navbox:tag('div')
:addClass(CLASS_PREFIX..'above mw-collapsible-content')
:addClass(data.above.class)
:cssText(data.above.style)
:wikitext(data.above.content)
:attr('id', (not data.title) and mw.uri.anchorEncode(data.above.content) or nil) -- id for aria-labelledby attribute, if no title
end
end
for i, label in ipairs(args.tabs) do
-- sections
local div = th:tag('div')
if data.sections then
:addClass('druid-toggleable-heading')
h.renderSections(data.sections, navbox, 0, true)
:addClass('druid-toggleable')
else
:attr('data-druid', h.counter .. '-' .. i)
-- Insert a blank section for completely empty navbox to ensure it behaves correctly when collapsed.
:wikitext(args[section .. '_label'] or section)
if not data.above and not data.below then  
-- we are going to print the section content even in empty nodes
navbox:tag('div'):addClass(CLASS_PREFIX..'section mw-collapsible-content')
-- for compatibility with browsers without :has, where hiding empty rows won't happen
if emptySections[label] then
div:addClass('druid-toggleable-heading-empty')
end
if args[label .. '_focused'] then
div:addClass('focused')
end
end
end
end
end


--below
function h.printSectionTabs(node, section, args)
if data.below then
local tabs = args[section .. '_tabs']
navbox:tag('div')
if not tabs or #tabs == 0 then return end
:addClass(CLASS_PREFIX..'below mw-collapsible-content')
local tr = node:tag(h.getTag('sectionTabsOuter'))
:addClass(data.below.class)
:attr('data-druid-section', h.escape(section))
:cssText(data.below.style)
:attr('data-druid-section-tabs', h.escape(section))
:wikitext(data.below.content)
local th = tr:tag(h.getTag('sectionTabs'))
:attr('colspan', 2)
:addClass('druid-section-tabs')
:addClass('druid-section-tabs-' .. h.escape(section))
local texts = {}
for i, item in ipairs(tabs) do
texts[i] = args[item .. '_label'] or item
end
end
return tostring(out)
h.printTabs(th, tabs, texts, true, args)
end
end


function h.renderSections(data, container, level, even)
----------------------------
for i,sect in ipairs(data) do
-- general utility functions
--section box
----------------------------
local section = container:tag('div')
 
:addClass(CLASS_PREFIX..'section mw-collapsible-content')
function h.overwrite()
:addClass(sect.class)
-- this is a generic utility function that collects args from the invoke call & the parent template.
:addClass(sect.state)
-- normally, you merge args with parent template overwriting the invoke call, but
:cssText(sect.style)
-- since we'll be putting markup/formatting into our invoke call,
-- section header
-- we actually want to overwrite what the user sent.
if sect.header then
local f = mw.getCurrentFrame()
section:tag('div')
local origArgs = f.args
:addClass(CLASS_PREFIX..'header')
local parentArgs = f:getParent().args
:addClass(sect.header.class)
 
:cssText(sect.header.style)
local args = {}
:tag('div'):addClass('mw-collapsible-toggle-placeholder'):done()
:tag('div'):addClass(CLASS_PREFIX..'header-text'):wikitext(sect.header.content)
for k, v in pairs(parentArgs) do
v = mw.text.trim(v)
if v ~= '' then
args[k] = v
end
end
-- above:
end
if sect.above then
section:tag('div')
for k, v in pairs(origArgs) do
:addClass(CLASS_PREFIX..'above mw-collapsible-content')
v = mw.text.trim(tostring(v))
:addClass(sect.above.class)
if v ~= '' then
:cssText(sect.above.style)
args[k] = v
:wikitext(sect.above.content)
end
-- body: groups&lists
local box = section:tag('div'):addClass(CLASS_PREFIX..'section-body mw-collapsible-content')
even = h.renderBody(sect.body, box, level, (level==0) and true or even) -- reset even status each section
-- below:
if sect.below then
section:tag('div')
:addClass(CLASS_PREFIX..'below mw-collapsible-content')
:addClass(sect.below.class)
:cssText(sect.below.style)
:wikitext(sect.below.content)
end
end
end
end
return even
return args
end
end


-- generic utility functions
-- these would normally be provided by other modules, but to make installation easy
-- I'm including everything here


function h.renderMetaLinks(info)
function h.split(text, pattern, plain)
local box = mw.html.create('span'):addClass(CLASS_PREFIX..'meta')
if not text then
local meta = box:tag('span'):addClass('nv nv-view')
return {}
end
if info.link then
local ret = {}
meta:wikitext('[['..info.link..'|')
for m in h.gsplit(text, pattern, plain) do
:tag('span'):wikitext(info.text):attr('title', info.text):done()
ret[#ret+1] = m
:wikitext(']]')
elseif info.url then
meta:wikitext('['..info.url..' ')
:tag('span'):wikitext(info.text):attr('title', info.text):done()
:wikitext(']')
end
end
return ret
return box
end
end


function h.renderBody(info, box, level, even)
function h.gsplit( text, pattern, plain )
local count = 0
if not pattern then pattern = ',' end
for _,v in h.orderedPairs(info) do
if not plain then
if v.group or v.list or v.sections then
pattern = '%s*' .. pattern .. '%s*'
count = count + 1
end
-- row container
local s, l = 1, text:len()
local row = box:tag('div'):addClass(CLASS_PREFIX..'row')
return function ()
-- group cell
if s then
if v.group or (v.sections and level > 0 and not v.list) then
local e, n = text:find( pattern, s, plain )
local groupCell = row:tag('div')
local ret
:addClass(CLASS_PREFIX..'group level-'..level)
if not e then
:addClass((level > 0) and CLASS_PREFIX..'subgroup' or nil)
ret = text:sub( s )
local groupContentWrap = groupCell:tag('div'):addClass(CLASS_PREFIX..'wrap')
s = nil
if v.group then
elseif n < e then
groupCell:addClass(v.group.class):cssText(v.group.style)
-- Empty separator!
groupContentWrap:wikitext(v.group.content)
ret = text:sub( s, e )
if e < l then
s = e + 1
else
else
groupCell:addClass('empty')
s = nil
row:addClass('empty-group-list')
end
end
else
else
row:addClass('empty-group')
ret = e > s and text:sub( s, e - 1 ) or ''
end
s = n + 1
-- list cell
local listCell = row:tag('div'):addClass(CLASS_PREFIX..'listbox')
if not v.list and not v.sections then
listCell:addClass('empty')
row:addClass('empty-list')
end
if v.list or (v.group and not v.sections) then
--listCell:node(h.renderList(v['list'] or '', k, level, args))
even = not even -- flip even/odd status
local cell = listCell:tag('div')
:addClass(CLASS_PREFIX..'wrap')
:addClass(even and CLASS_PREFIX..'even' or CLASS_PREFIX..'odd')
if v.list then
cell:addClass(v.list.class):cssText(v.list.style)
:tag('div'):addClass(CLASS_PREFIX..'list'):wikitext(v.list.content)
end
end
if v.sections then
local sublistBox = listCell:tag('div'):addClass(CLASS_PREFIX..'sublist level-'..level)
even = h.renderSections(v.sections, sublistBox, level+1, even)
end
end
return ret
end
end
end
end, nil, nil
if count > 0 then
box:css('--count', count) -- for flex-grow
end
return even
end
end


-- pairs, but sort the keys alphabetically
-- char-set of characters to escape/replace
function h.orderedPairs(t, f)
local escapePattern = '[' -- required for pattern; do not remove.
local a = {}
.. ' '
for n in pairs(t) do table.insert(a, n) end
.. '"'
table.sort(a, f)
.. "'"
local i = 0      -- iterator variable
.. "%?"
local iter = function ()  -- iterator function
.. "%%"
i = i + 1
.. "%["
if a[i] == nil then return nil
.. "%]"
else return a[i], t[a[i]]
.. "{"
end
.. ']' -- required for pattern; do not remove.
end
 
return iter
function h.escape(s)
s = s:gsub(escapePattern, '')
return s
end
end


-- For cascading parameters, such as style or class, they are merged in exact order (from general to specific).
 
-- Any parameter starting with multiple hyphens(minus signs) will terminate the cascade.
-- normally I would make these constants at the top of the file
-- An example:
-- but I don't want to mistake them with user-set constants
-- For group_1.1, its style is affected by parameters |group_1.1_style=... , |subgroup_level_1_style=... , and |subgroup_style=... .
h.boolFalse = { ['false'] = true, ['no'] = true, [''] = true, ['0'] = true, ['nil'] = true }
-- If we have |group_1.1_style= color:red; |subgroup_level_1_style= font-weight: bold; and |subgroup_style= color: green; ,
 
-- the style of group_1.1 will be style="color:green; font-weight: bold; color: red;" ;
function h.castBool(x)
-- if we have |group_1.1_style= -- color:red; |subgroup_level_1_style= font-weight: bold; and |subgroup_style= color: green; ,
if not x then return false end
-- the style of group_1.1 will be style="color: red;" only, and the cascade is no longer performed for |subgroup_level_1_style and |subgroup_style.
return not h.boolFalse[tostring(x):lower()]
function h.mergeAttrs(...)
local trim = mw.text.trim
local s = ''
for i=1, select('#', ...) do
local v = trim(select(i, ...) or '')
local str = string.match(v, '^%-%-+(.*)$')
if str then
s = trim(str..' '..s)
break
else
s = trim(v..' '..s)
end
end
if s == '' then s = nil end
return s
end
end


function h.runHook(key, ...)
h.htmlEntities = {
if hooks[key] then
table = {
hooks[key](...)
container = 'table',
end
titleOuter = 'tr',
titleInner = 'th',
section = '',
sectionTitle = 'th',
sectionTabsOuter = 'tr',
sectionTabs = 'td',
row = 'tr',
label = 'th',
cell = 'td',
},
div = {
container = 'div',
titleOuter = 'div',
titleInner = 'div',
section = 'div',
sectionTitle = 'div',
sectionTabsOuter = 'div',
sectionTabs = 'div',
row = 'div',
label = 'div',
cell = 'div',
}
}
 
function h.getTag(key)
-- try not to totally fail here
return h.htmlEntities[h.entityType or 'div'][key]
end
end


-----------------------------------------------
return p
return p
Retrieved from "https://petitplanet.wiki/Module:Sandbox/Stevium"