Difference between revisions of "Module:Unsubst-infobox/sandbox"
Jump to navigation
Jump to search
blackwiki>Jc86035 (add indent option) |
blackwiki>Johnuniq (current Module:Unsubst-infobox) |
||
Line 9: | Line 9: | ||
['$A'] = 'aliases', | ['$A'] = 'aliases', | ||
['$I'] = 'indent', | ['$I'] = 'indent', | ||
+ | ['$L'] = 'lists', | ||
['$B'] = 'template content', | ['$B'] = 'template content', | ||
− | ['$X'] = 'flags' | + | ['$X'] = 'flags' |
} | } | ||
Line 28: | Line 29: | ||
-- Combine passed args with passed defaults | -- Combine passed args with passed defaults | ||
local args = {} | local args = {} | ||
− | for k, v in pairs( frame.args ) do | + | if string.find( ','..(frame.args['$X'] or '')..',', ',%s*override%s*,' ) then |
− | if not specialParams[k] then | + | for k, v in pairs( frame:getParent().args ) do |
− | if v == '__DATE__' then | + | args[k] = v |
− | + | end | |
+ | for k, v in pairs( frame.args ) do | ||
+ | if not specialParams[k] then | ||
+ | if v == '__DATE__' then | ||
+ | v = mw.getContentLanguage():formatDate( 'F Y' ) | ||
+ | end | ||
+ | args[k] = v | ||
+ | end | ||
+ | end | ||
+ | else | ||
+ | for k, v in pairs( frame.args ) do | ||
+ | if not specialParams[k] then | ||
+ | if v == '__DATE__' then | ||
+ | v = mw.getContentLanguage():formatDate( 'F Y' ) | ||
+ | end | ||
+ | args[k] = v | ||
end | end | ||
+ | end | ||
+ | for k, v in pairs( frame:getParent().args ) do | ||
args[k] = v | args[k] = v | ||
end | end | ||
− | |||
− | |||
− | |||
end | end | ||
Line 85: | Line 100: | ||
-- Pull lists from special parameters | -- Pull lists from special parameters | ||
local params = mw.text.split( frame.args['$P'], '%s*,%s*' ) | local params = mw.text.split( frame.args['$P'], '%s*,%s*' ) | ||
− | local sets, extra = {{}, {}, {}}, {} | + | local sets, extra, lists = {{}, {}, {}}, {}, {} |
for k = 1, 3 do | for k = 1, 3 do | ||
local v = frame.args['$S' .. k] | local v = frame.args['$S' .. k] | ||
Line 96: | Line 111: | ||
local tmp = mw.text.split( frame.args['$E'], '%s*,%s*' ) | local tmp = mw.text.split( frame.args['$E'], '%s*,%s*' ) | ||
for k, v in ipairs( tmp ) do extra[v] = true end | for k, v in ipairs( tmp ) do extra[v] = true end | ||
+ | end | ||
+ | if frame.args['$L'] then | ||
+ | local tmp = mw.text.split( frame.args['$L'], '%s*,%s*' ) | ||
+ | for k, v in ipairs( tmp ) do lists[v] = true end | ||
end | end | ||
Line 127: | Line 146: | ||
for k, v in ipairs( params ) do | for k, v in ipairs( params ) do | ||
− | ret = ret .. '\n' .. indent .. '| ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (args[v] or '') | + | local tmp = ' ' |
+ | if lists[v] then tmp = '\n' end | ||
+ | ret = ret .. '\n' .. indent .. '| ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' =' .. tmp .. (args[v] or '') | ||
end | end | ||
Revision as of 23:57, 19 May 2017
Documentation for this module may be created at Module:Unsubst-infobox/sandbox/doc
local p = {}
local specialParams = {
['$P'] = 'parameters',
['$E'] = 'extra parameters',
['$S1'] = 'parameter set 1', -- DOESN'T WORK
['$S2'] = 'parameter set 2', -- DOESN'T WORK
['$S3'] = 'parameter set 3', -- DOESN'T WORK
['$A'] = 'aliases',
['$I'] = 'indent',
['$L'] = 'lists',
['$B'] = 'template content',
['$X'] = 'flags'
}
p[''] = function ( frame )
if not frame:getParent() then
error( '{{#invoke:Unsubst-infobox|}} makes no sense without a parent frame' )
end
if not frame.args['$B'] then
error( '{{#invoke:Unsubst-infobox|}} requires parameter $B (template content)' )
end
if not frame.args['$P'] then
error( '{{#invoke:Unsubst-infobox|}} requires parameter $P (parameter list)' )
end
if mw.isSubsting() then
---- substing
-- Combine passed args with passed defaults
local args = {}
if string.find( ','..(frame.args['$X'] or '')..',', ',%s*override%s*,' ) then
for k, v in pairs( frame:getParent().args ) do
args[k] = v
end
for k, v in pairs( frame.args ) do
if not specialParams[k] then
if v == '__DATE__' then
v = mw.getContentLanguage():formatDate( 'F Y' )
end
args[k] = v
end
end
else
for k, v in pairs( frame.args ) do
if not specialParams[k] then
if v == '__DATE__' then
v = mw.getContentLanguage():formatDate( 'F Y' )
end
args[k] = v
end
end
for k, v in pairs( frame:getParent().args ) do
args[k] = v
end
end
-- Build an equivalent template invocation
-- First, find the title to use
local titleobj = mw.title.new(frame:getParent():getTitle())
local title
if titleobj.namespace == 10 then -- NS_TEMPLATE
title = titleobj.text
elseif titleobj.namespace == 0 then -- NS_MAIN
title = ':' .. titleobj.text
else
title = titleobj.prefixedText
end
-- Remove empty fields
for k, v in pairs( args ) do
if v == '' then args[k] = nil end
end
-- Pull information from parameter aliases
local aliases = {}
if frame.args['$A'] then
local list = mw.text.split( frame.args['$A'], '%s*,%s*' )
for k, v in ipairs( list ) do
local tmp = mw.text.split( v, '%s*>%s*' )
aliases[tmp[1]] = tmp[2]
end
end
for k, v in pairs( aliases ) do
if args[k] and not args[v] then args[v], args[k] = args[k], nil end
end
-- Build the invocation body with numbered args first, then named
local ret = '{{' .. title
for k, v in ipairs( args ) do
if string.find( v, '=', 1, true ) then
-- likely something like 1=foo=bar, we need to do it as a named arg
break
end
if not aliases[k] then
ret = ret .. '|' .. v
args[k] = nil
end
end
-- Pull lists from special parameters
local params = mw.text.split( frame.args['$P'], '%s*,%s*' )
local sets, extra, lists = {{}, {}, {}}, {}, {}
for k = 1, 3 do
local v = frame.args['$S' .. k]
if v then
local tmp = mw.text.split( v, '%s*,%s*' )
for _, x in ipairs( tmp ) do sets[k][x] = true end
end
end
if frame.args['$E'] then
local tmp = mw.text.split( frame.args['$E'], '%s*,%s*' )
for k, v in ipairs( tmp ) do extra[v] = true end
end
if frame.args['$L'] then
local tmp = mw.text.split( frame.args['$L'], '%s*,%s*' )
for k, v in ipairs( tmp ) do lists[v] = true end
end
-- Replace parameter list with short version if full version not necessary
local tmp = {}
for k, v in ipairs( sets ) do
if next(v) then -- if table v is not empty
for _, x in ipairs( params ) do
if args[x] and not v[x] then
tmp[k] = true
break
end
end
if not tmp[k] then params = v end
end
end
-- Align parameters correctly and remove extra ones
local maxlength = 0
local discard = {}
for k, v in ipairs( params ) do
if (not extra[v]) or args[v] then
local tmp = mw.ustring.len( v )
if tmp > maxlength then maxlength = tmp end
else
table.insert( discard, 1, k )
end
end
for k, v in ipairs( discard ) do table.remove( params, v ) end
local indent = string.rep(' ', (tonumber(frame.args['$I']) or 0))
for k, v in ipairs( params ) do
local tmp = ' '
if lists[v] then tmp = '\n' end
ret = ret .. '\n' .. indent .. '| ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' =' .. tmp .. (args[v] or '')
end
ret = ret .. '\n}}'
ret = mw.ustring.gsub(ret, '%s+\n', '\n')
return ret
else
-- Not substing
-- Just return the "body"
return frame.args['$B']
end
end
return p