Difference between revisions of "Module:Singles"

From The New Prairie Universe Wiki
Jump to navigation Jump to search
 
(3 intermediate revisions by the same user not shown)
Line 4: Line 4:
 
local function getArgNums(args, prefix)
 
local function getArgNums(args, prefix)
 
     -- Returns a table containing the numbers of the arguments that exist
 
     -- Returns a table containing the numbers of the arguments that exist
−
     -- for the specified prefix. For example, if the prefix was 'data', and
+
     -- for the specified prefix. For example, if the prefix were to be 'data', and
−
     -- 'data1', 'data2', and 'data5' exist, it would return {1, 2, 5}.
+
     -- 'data1', 'data2', and 'data5' were to exist, it would return {1, 2, 5}.
 
     local nums = {}
 
     local nums = {}
 
     for k, v in pairs(args) do
 
     for k, v in pairs(args) do
Line 13: Line 13:
 
     table.sort(nums)
 
     table.sort(nums)
 
     return nums
 
     return nums
 +
end
 +
 +
-- Forked from Module:Unsubst-infobox
 +
 +
local specialParams = {
 +
['$B'] = 'template content'
 +
}
 +
 +
p[''] = function ( frame )
 +
if not frame.args['$B'] then
 +
error( '{{#invoke:Singles|}} requires parameter $B (template content)' )
 +
end
 +
 +
if mw.isSubsting() then
 +
---- substing
 +
-- Passed args
 +
local args = {}
 +
for k, v in pairs( frame:getParent().args ) do
 +
args[k] = v
 +
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 aliases
 +
local nums = getArgNums(args, '[Ss]ingle ?')
 +
for _, num in ipairs(nums) do
 +
args['single' .. num] = args['single' .. num] or args['single ' .. num] or args['Single ' .. num]
 +
args['single' .. num .. 'date'] = args['single' .. num .. 'date'] or args['single ' .. num .. ' date'] or args['Single ' .. num .. ' date'] or ''
 +
args['single ' .. num], args['Single ' .. num], args['single ' .. num .. ' date'], args['Single ' .. num .. ' date'] = nil, nil, nil, nil
 +
end
 +
for k, v in pairs( {Type = 'type', Name = 'name'} ) do
 +
if args[k] and not args[v] then args[v], args[k] = args[k], nil end
 +
end
 +
 +
-- Build the invocation body
 +
local ret = '{{' .. title
 +
 +
-- Make parameter list
 +
local params = {'name', 'type'}
 +
for _, num in ipairs( nums ) do table.insert( params, 'single' .. num ); table.insert( params, 'single' .. num .. 'date' ) end
 +
 +
-- Align parameters correctly and remove extra ones
 +
local maxlength = 0
 +
for k, v in ipairs( params ) do
 +
local tmp = mw.ustring.len( v )
 +
if tmp > maxlength then maxlength = tmp end
 +
end
 +
 +
for k, v in ipairs( params ) do
 +
ret = ret .. '\n | ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (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
 
end
  
 
function p.main(frame)
 
function p.main(frame)
 
local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:Singles'})
 
local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:Singles'})
−
local out = [=[<tr>
+
local out = ''
−
  <th style="text-align:center; background:]=] .. frame:expandTemplate{title = 'Infobox album/color', args = {args.Type}} .. [=[;" colspan="3">Singles from '']=] .. (args.Name or mw.title.getCurrentTitle().prefixedText) .. [=[''</th>
+
local nums = getArgNums(args, '[Ss]ingle ?')
−
</tr>
 
−
<tr style="text-align:left; vertical-align:top;">
 
−
  <td colspan="3">]=]
 
−
local nums = getArgNums(args, '[Ss]ingle ')
 
 
for _, num in ipairs(nums) do
 
for _, num in ipairs(nums) do
−
out = out .. '\n# <span class="item"><span class="fn">"' .. (args['Single ' .. num] or args['single ' .. num]) .. '"</span>'
+
out = out .. '\n# <span class="item"><span class="fn">"' .. (args['single' .. num] or args['single ' .. num] or args['Single ' .. num]) .. '"</span>'
−
local date = args['Single ' .. num .. ' date'] or args['single ' .. num .. ' date']
+
local date = args['single' .. num .. 'date'] or args['single ' .. num .. ' date'] or args['Single ' .. num .. ' date']
 
if date then
 
if date then
 
out = out .. '<br />Released: ' .. date
 
out = out .. '<br />Released: ' .. date
Line 31: Line 104:
 
out = out .. '</span>'
 
out = out .. '</span>'
 
end
 
end
−
out = out .. [=[]=]
+
 +
if out ~= '' then
 +
if mw.ustring.match(out, '</?t[drh][ >]') then out = out .. ' [[Category:Music infoboxes with malformed table placement|R]]' end
 +
return '<div style="text-align:left">' .. out .. '\n</div>'
 +
end
 +
 
return out
 
return out
 
end
 
end
  
 
return p
 
return p

Latest revision as of 00:04, 4 January 2018

local p = {}

-- Ripped from Module:Infobox. TODO: Make a utility module that can do this kind of thing local function getArgNums(args, prefix) 

   -- Returns a table containing the numbers of the arguments that exist
   -- for the specified prefix. For example, if the prefix were to be 'data', and
   -- 'data1', 'data2', and 'data5' were to exist, it would return {1, 2, 5}.
   local nums = {}
   for k, v in pairs(args) do
       local num = tostring(k):match('^' .. prefix .. '([1-9]%d*)$')
       if num then table.insert(nums, tonumber(num)) end
   end
   table.sort(nums)
   return nums

end

-- Forked from Module:Unsubst-infobox

local specialParams = { ['$B'] = 'template content' }

p[] = function ( frame ) if not frame.args['$B'] then error( 'Lua error at line 25: <strong class="error"><span class="scribunto-error" id="mw-scribunto-error-0">Lua error at line 25: {{#invoke:Singles|}} requires parameter $B (template content).</span></strong> requires parameter $B (template content). requires parameter $B (template content)' ) end

if mw.isSubsting() then ---- substing -- Passed args local args = {} for k, v in pairs( frame:getParent().args ) do args[k] = v 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 aliases local nums = getArgNums(args, '[Ss]ingle ?') for _, num in ipairs(nums) do args['single' .. num] = args['single' .. num] or args['single ' .. num] or args['Single ' .. num] args['single' .. num .. 'date'] = args['single' .. num .. 'date'] or args['single ' .. num .. ' date'] or args['Single ' .. num .. ' date'] or args['single ' .. num], args['Single ' .. num], args['single ' .. num .. ' date'], args['Single ' .. num .. ' date'] = nil, nil, nil, nil end for k, v in pairs( {Type = 'type', Name = 'name'} ) do if args[k] and not args[v] then args[v], args[k] = args[k], nil end end

-- Build the invocation body local ret = '{{' .. title

-- Make parameter list local params = {'name', 'type'} for _, num in ipairs( nums ) do table.insert( params, 'single' .. num ); table.insert( params, 'single' .. num .. 'date' ) end

-- Align parameters correctly and remove extra ones local maxlength = 0 for k, v in ipairs( params ) do local tmp = mw.ustring.len( v ) if tmp > maxlength then maxlength = tmp end end

for k, v in ipairs( params ) do ret = ret .. '\n | ' .. v .. string.rep(' ', (maxlength - mw.ustring.len( v ))) .. ' = ' .. (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

function p.main(frame) local args = require('Module:Arguments').getArgs(frame, {wrappers = 'Template:Singles'}) local out = local nums = getArgNums(args, '[Ss]ingle ?') for _, num in ipairs(nums) do out = out .. '\n# "' .. (args['single' .. num] or args['single ' .. num] or args['Single ' .. num]) .. '"' local date = args['single' .. num .. 'date'] or args['single ' .. num .. ' date'] or args['Single ' .. num .. ' date'] if date then out = out .. '
Released: ' .. date end out = out .. '' end

if out ~= then if mw.ustring.match(out, '</?t[drh][ >]') then out = out .. end

return '

' .. out .. '\n

'

end

return out end

return p

Retrieved from "http://wiki.randombell.com/index.php?title=Module:Singles&oldid=3823"