Difference between revisions of "Module:Sandbox/AlphaZeta/test2"

From blackwiki
Jump to navigation Jump to search
blackwiki>AlphaZeta
blackwiki>AlphaZeta
Line 4: Line 4:
 
   
 
   
 
local p = {}
 
local p = {}
 
 
local HtmlBuilder = require('Module:HtmlBuilder')
 
local HtmlBuilder = require('Module:HtmlBuilder')
 
 
local args = {}
 
local args = {}
 
local origArgs
 
local origArgs
local root0
 
 
local root
 
local root
 +
local innerTable
 
   
 
   
 
function union(t1, t2)
 
function union(t1, t2)
Line 45: Line 43:
 
     -- or a label/data cell combination.
 
     -- or a label/data cell combination.
 
     if rowArgs.header then
 
     if rowArgs.header then
         root
+
         innerTable
 
             .tag('tr')
 
             .tag('tr')
 
                 .addClass(rowArgs.rowclass)
 
                 .addClass(rowArgs.rowclass)
Line 55: Line 53:
 
                     .wikitext(rowArgs.header)
 
                     .wikitext(rowArgs.header)
 
     elseif rowArgs.data then
 
     elseif rowArgs.data then
         local row = root.tag('tr')
+
         local row = innerTable.tag('tr')
 
         row.addClass(rowArgs.rowclass)
 
         row.addClass(rowArgs.rowclass)
 
         if rowArgs.label then
 
         if rowArgs.label then
Line 84: Line 82:
 
     if not args.title then return end
 
     if not args.title then return end
  
     root0
+
     root
 
         .tag('caption')
 
         .tag('caption')
 
             .addClass(args.titleclass)
 
             .addClass(args.titleclass)
Line 94: Line 92:
 
     if not args.above then return end
 
     if not args.above then return end
 
      
 
      
     root0
+
     root
 
         .tag('tr')
 
         .tag('tr')
 
             .tag('th')
 
             .tag('th')
Line 110: Line 108:
 
     if not args.below then return end
 
     if not args.below then return end
 
      
 
      
     root
+
     innerTable
 
         .tag('tr')
 
         .tag('tr')
 
             .tag('td')
 
             .tag('td')
Line 187: Line 185:
 
     if not args.name then return end
 
     if not args.name then return end
 
      
 
      
     root
+
     innerTable
 
         .tag('tr')
 
         .tag('tr')
 
             .tag('td')
 
             .tag('td')
Line 201: Line 199:
 
     local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
 
     local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
 
     if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
 
     if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
         root.wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
+
         innerTable.wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
 
     end
 
     end
 
end
 
end
Line 208: Line 206:
 
     if args.decat ~= 'yes' then
 
     if args.decat ~= 'yes' then
 
         if #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
 
         if #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
             root.wikitext('[[Category:Articles which use infobox templates with no data rows]]')
+
             innerTable.wikitext('[[Category:Articles which use infobox templates with no data rows]]')
 
         end
 
         end
 
         if args.child == 'yes' and args.title then
 
         if args.child == 'yes' and args.title then
             root.wikitext('[[Category:Articles which use embedded infobox templates with the title parameter]]')
+
             innerTable.wikitext('[[Category:Articles which use embedded infobox templates with the title parameter]]')
 
         end
 
         end
 
     end
 
     end
Line 220: Line 218:
 
     -- if the infobox is used as a 'child' inside another infobox.
 
     -- if the infobox is used as a 'child' inside another infobox.
 
     if args.child ~= 'yes' then
 
     if args.child ~= 'yes' then
         root0 = HtmlBuilder.create('table')
+
         root = HtmlBuilder.create('table')
         root0
+
         root
 
             .addClass('infobox')
 
             .addClass('infobox')
 
             .css('width', '22em')
 
             .css('width', '22em')
Line 229: Line 227:
 
         renderTitle()
 
         renderTitle()
 
         renderAboveRow()
 
         renderAboveRow()
   root=root0
+
   innerTable=root
 
   .tag('tr')
 
   .tag('tr')
 
   .tag('td')
 
   .tag('td')
 
   .tag('table')
 
   .tag('table')
   root
+
   innerTable
 
             .addClass('infobox')
 
             .addClass('infobox')
 
             .addClass(args.bodyclass)
 
             .addClass(args.bodyclass)
Line 239: Line 237:
 
                 .css('border', 'none')
 
                 .css('border', 'none')
 
                   -- .css('border', 'solid 1px red')
 
                   -- .css('border', 'solid 1px red')
                  .css('margin', '0')
+
                .css('margin', '0')
                 .css('min-width', '100%')
+
                 .css('width', '100%')
 
             if args.subbox == 'yes' then
 
             if args.subbox == 'yes' then
                 root
+
                 innerTable
 
                     .css('padding', '0')
 
                     .css('padding', '0')
 
 
                     .css('margin', '-3px')
 
                     .css('margin', '-3px')
 
                     .css('width', 'auto')
 
                     .css('width', 'auto')
 
 
 
                     .css('font-size', '100%')
 
                     .css('font-size', '100%')
 
                     .css('clear', 'none')
 
                     .css('clear', 'none')
Line 253: Line 249:
 
                     .css('background-color', 'transparent')
 
                     .css('background-color', 'transparent')
 
             end
 
             end
         root
+
         innerTable
 
             .cssText(args.bodystyle)
 
             .cssText(args.bodystyle)
 
      
 
      
  
 
     else
 
     else
         root0 = HtmlBuilder.create()
+
         root = HtmlBuilder.create()
          
+
         root
        root0
 
 
             .wikitext(args.title)
 
             .wikitext(args.title)
 
     end
 
     end
Line 271: Line 266:
 
     renderItalicTitle()
 
     renderItalicTitle()
 
     renderTrackingCategories()
 
     renderTrackingCategories()
   
+
     return tostring(root)
     return tostring(root0)
 
 
end
 
end
  

Revision as of 17:29, 15 December 2013


The module “Sandbox/AlphaZeta” contains (specify) available calls that make so and such.

Usage

{{#invoke:Sandbox/AlphaZeta|function_name|…}}

Parameters

The text below assumes that functions are declared as

function p.function_name( frame )
  • Positional parameters – the value of frame.args[1] is passed after function name and vertical bar, the value of frame.args[2] is passed after the value of frame.args[1] and vertical bar, and so on.
  • Named parameters (specify them) – the same name=value syntax as in MediaWiki templates, are accessible inside the function as frame.args["name"].

Examples

Script error: No such module "Sandbox/AlphaZeta".


--
-- This module implements {{Infobox}}
--
 
local p = {}
local HtmlBuilder = require('Module:HtmlBuilder')
local args = {}
local origArgs
local root
local innerTable
 
function union(t1, t2)
    -- Returns the union of the values of two tables, as a sequence.
    local vals = {}
    for k, v in pairs(t1) do
        vals[v] = true
    end
    for k, v in pairs(t2) do
        vals[v] = true
    end
    local ret = {}
    for k, v in pairs(vals) do
        table.insert(ret, k)
    end
    return ret
end

local function getArgNums(prefix)
    -- Returns a table containing the numbers of the arguments that exist
    -- for the specified prefix. For example, if the prefix was 'data', and
    -- 'data1', 'data2', and 'data5' 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

local function addRow(rowArgs)
    -- Adds a row to the infobox, with either a header cell
    -- or a label/data cell combination.
    if rowArgs.header then
        innerTable
            .tag('tr')
                .addClass(rowArgs.rowclass)
                .tag('th')
                    .attr('colspan', 2)
                    .addClass(rowArgs.class)
                    .css('text-align', 'center')
                    .cssText(args.headerstyle)
                    .wikitext(rowArgs.header)
    elseif rowArgs.data then
        local row = innerTable.tag('tr')
        row.addClass(rowArgs.rowclass)
        if rowArgs.label then
            row
                .tag('th')
                    .attr('scope', 'row')
                    .css('text-align', 'left')
                    .cssText(args.labelstyle)
                    .wikitext(rowArgs.label)
                    .done()
        end
        
        local dataCell = row.tag('td')
        if not rowArgs.label then 
            dataCell
                .attr('colspan', 2)
                .css('text-align', 'center') 
        end
        dataCell
            .addClass(rowArgs.class)
            .cssText(rowArgs.datastyle)
            .newline()
            .wikitext(rowArgs.data)
    end
end

local function renderTitle()
    if not args.title then return end

    root
        .tag('caption')
            .addClass(args.titleclass)
            .cssText(args.titlestyle)
            .wikitext(args.title)
end

local function renderAboveRow()
    if not args.above then return end
    
    root
        .tag('tr')
            .tag('th')
                .attr('colspan', 2)
                .addClass(args.aboveclass)
                .css('text-align', 'center')
                .css('font-size', '125%')
                .css('font-weight', 'bold')
                .css('padding','5px 0 5px 0')
                .cssText(args.abovestyle)
                .wikitext(args.above)
end

local function renderBelowRow()
    if not args.below then return end
    
    innerTable
        .tag('tr')
            .tag('td')
                .attr('colspan', '2')
                .addClass(args.belowclass)
                .css('text-align', 'center')
                .cssText(args.belowstyle)
                .newline()
                .wikitext(args.below)
end

local function renderSubheaders()
    if args.subheader then
        args.subheader1 = args.subheader
    end
    if args.subheaderrowclass then
        args.subheaderrowclass1 = args.subheaderrowclass
    end
    local subheadernums = getArgNums('subheader')
    for k, num in ipairs(subheadernums) do
        addRow({
            data = args['subheader' .. tostring(num)],
            datastyle = args.subheaderstyle or args['subheaderstyle' .. tostring(num)],
            class = args.subheaderclass,
            rowclass = args['subheaderrowclass' .. tostring(num)]
        })
    end
end

local function renderImages()
    if args.image then
        args.image1 = args.image
    end
    if args.caption then
        args.caption1 = args.caption
    end
    local imagenums = getArgNums('image')
    for k, num in ipairs(imagenums) do
        local caption = args['caption' .. tostring(num)]
        local data = HtmlBuilder.create().wikitext(args['image' .. tostring(num)])
        if caption then
            data
                .tag('br', {selfClosing = true})
                    .done()
                .tag('div')
                    .cssText(args.captionstyle)
                    .wikitext(caption)
        end
        addRow({
            data = tostring(data),
            datastyle = args.imagestyle,
            class = args.imageclass,
            rowclass = args['imagerowclass' .. tostring(num)]
        })
    end
end

local function renderRows()
    -- Gets the union of the header and data argument numbers,
    -- and renders them all in order using addRow.
    local rownums = union(getArgNums('header'), getArgNums('data'))
    table.sort(rownums)
    for k, num in ipairs(rownums) do
        addRow({
            header = args['header' .. tostring(num)],
            label = args['label' .. tostring(num)],
            data = args['data' .. tostring(num)],
            datastyle = args.datastyle,
            class = args['class' .. tostring(num)],
            rowclass = args['rowclass' .. tostring(num)]
        })
    end
end

local function renderNavBar()
    if not args.name then return end
    
    innerTable
        .tag('tr')
            .tag('td')
                .attr('colspan', '2')
                .css('text-align', 'right')
                .wikitext(mw.getCurrentFrame():expandTemplate({ 
                    title = 'navbar', 
                    args = { args.name, mini = 1 }
                }))
end

local function renderItalicTitle()
    local italicTitle = args['italic title'] and mw.ustring.lower(args['italic title'])
    if italicTitle == '' or italicTitle == 'force' or italicTitle == 'yes' then
        innerTable.wikitext(mw.getCurrentFrame():expandTemplate({title = 'italic title'}))
    end
end

local function renderTrackingCategories()
    if args.decat ~= 'yes' then
        if #(getArgNums('data')) == 0 and mw.title.getCurrentTitle().namespace == 0 then
            innerTable.wikitext('[[Category:Articles which use infobox templates with no data rows]]')
        end
        if args.child == 'yes' and args.title then
            innerTable.wikitext('[[Category:Articles which use embedded infobox templates with the title parameter]]')
        end
    end
end

local function _infobox()
    -- Specify the overall layout of the infobox, with special settings
    -- if the infobox is used as a 'child' inside another infobox.
    if args.child ~= 'yes' then
        root = HtmlBuilder.create('table')
        root
        	    .addClass('infobox')
        	    .css('width', '22em')
        	    .css('padding', '0')
        	    .attr('cellspacing', 0)
             	-- .css('border-spacing', '3px')
        renderTitle()
        renderAboveRow()
   		innerTable=root
   			.tag('tr')
   				.tag('td')
   					.tag('table')
   		innerTable
            	.addClass('infobox')
            	.addClass(args.bodyclass)
           	 	.attr('cellspacing', 3)
                 .css('border', 'none')
                  -- .css('border', 'solid 1px red')
                 .css('margin', '0')
                 .css('width', '100%')
            if args.subbox == 'yes' then
                innerTable
                    .css('padding', '0')
                    .css('margin', '-3px')
                    .css('width', 'auto')
                    .css('font-size', '100%')
                    .css('clear', 'none')
                    .css('float', 'none')
                    .css('background-color', 'transparent')
            end
        innerTable
            .cssText(args.bodystyle)
    

    else
        root = HtmlBuilder.create()
        root
            .wikitext(args.title)
    end

    renderSubheaders()
    renderImages() 
    renderRows() 
    renderBelowRow()  
    renderNavBar()
    renderItalicTitle()
    renderTrackingCategories()
    return tostring(root)
end

local function preprocessSingleArg(argName)
    -- If the argument exists and isn't blank, add it to the argument table.
    -- Blank arguments are treated as nil to match the behaviour of ParserFunctions.
    if origArgs[argName] and origArgs[argName] ~= '' then
        args[argName] = origArgs[argName]
    end
end

local function preprocessArgs(prefixTable, step)
    -- Assign the parameters with the given prefixes to the args table, in order, in batches
    -- of the step size specified. This is to prevent references etc. from appearing in the
    -- wrong order. The prefixTable should be an array containing tables, each of which has
    -- two possible fields, a "prefix" string and a "depend" table. The function always parses
    -- parameters containing the "prefix" string, but only parses parameters in the "depend"
    -- table if the prefix parameter is present and non-blank.
    if type(prefixTable) ~= 'table' then
        error("Non-table value detected for the prefix table", 2)
    end
    if type(step) ~= 'number' then
        error("Invalid step value detected", 2)
    end
    
    -- Get arguments without a number suffix, and check for bad input.
    for i,v in ipairs(prefixTable) do
        if type(v) ~= 'table' or type(v.prefix) ~= "string" or (v.depend and type(v.depend) ~= 'table') then
            error('Invalid input detected to preprocessArgs prefix table', 2)
        end
        preprocessSingleArg(v.prefix)
        -- Only parse the depend parameter if the prefix parameter is present and not blank.
        if args[v.prefix] and v.depend then
            for j, dependValue in ipairs(v.depend) do
                if type(dependValue) ~= 'string' then
                    error('Invalid "depend" parameter value detected in preprocessArgs')
                end
                preprocessSingleArg(dependValue)
            end
        end
    end

    -- Get arguments with number suffixes.
    local a = 1 -- Counter variable.
    local moreArgumentsExist = true
    while moreArgumentsExist == true do
        moreArgumentsExist = false
        for i = a, a + step - 1 do
            for j,v in ipairs(prefixTable) do
                local prefixArgName = v.prefix .. tostring(i)
                if origArgs[prefixArgName] then
                    moreArgumentsExist = true -- Do another loop if any arguments are found, even blank ones.
                    preprocessSingleArg(prefixArgName)
                end
                -- Process the depend table if the prefix argument is present and not blank, or
                -- we are processing "prefix1" and "prefix" is present and not blank, and
                -- if the depend table is present.
                if v.depend and (args[prefixArgName] or (i == 1 and args[v.prefix])) then
                    for j,dependValue in ipairs(v.depend) do
                        local dependArgName = dependValue .. tostring(i)
                        preprocessSingleArg(dependArgName)
                    end
                end
            end
        end
        a = a + step
    end
end
 
function p.infobox(frame)
    -- If called via #invoke, use the args passed into the invoking template.
    -- Otherwise, for testing purposes, assume args are being passed directly in.
    if frame == mw.getCurrentFrame() then
        origArgs = frame:getParent().args
    else
        origArgs = frame
    end
    
    -- Parse the data parameters in the same order that the old {{infobox}} did, so that
    -- references etc. will display in the expected places. Parameters that depend on
    -- another parameter are only processed if that parameter is present, to avoid
    -- phantom references appearing in article reference lists.
    preprocessSingleArg('child')
    preprocessSingleArg('bodyclass')
    preprocessSingleArg('subbox')
    preprocessSingleArg('bodystyle')
    preprocessSingleArg('title')
    preprocessSingleArg('titleclass')
    preprocessSingleArg('titlestyle')
    preprocessSingleArg('above')
    preprocessSingleArg('aboveclass')
    preprocessSingleArg('abovestyle')
    preprocessArgs({
        {prefix = 'subheader', depend = {'subheaderstyle', 'subheaderrowclass'}}
    }, 10)
    preprocessSingleArg('subheaderstyle')
    preprocessSingleArg('subheaderclass')
    preprocessArgs({
        {prefix = 'image', depend = {'caption', 'imagerowclass'}}
    }, 10)
    preprocessSingleArg('captionstyle')
    preprocessSingleArg('imagestyle')
    preprocessSingleArg('imageclass')
    preprocessArgs({
        {prefix = 'header'},
        {prefix = 'data', depend = {'label'}},
        {prefix = 'rowclass'},
        {prefix = 'class'}
    }, 50)
    preprocessSingleArg('headerstyle')
    preprocessSingleArg('labelstyle')
    preprocessSingleArg('datastyle')
    preprocessSingleArg('below')
    preprocessSingleArg('belowclass')
    preprocessSingleArg('belowstyle')
    preprocessSingleArg('name')
    args['italic title'] = origArgs['italic title'] -- different behaviour if blank or absent
    preprocessSingleArg('decat')
 
    return _infobox()
end
 
return p