Module:Navbox: Difference between revisions

    From Nonbinary Wiki
    m>Edokter
    (Slight adjustment)
    m>Izkala
    (Add colour tracking per ER)
    Line 14: Line 14:


    local function trim(s)
    local function trim(s)
        return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
    return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
    end
    end


    local function addNewline(s)
    local function addNewline(s)
        if s:match('^[*:;#]') or s:match('^{|') then
    if s:match('^[*:;#]') or s:match('^{|') then
            return '\n' .. s ..'\n'
    return '\n' .. s ..'\n'
        else
    else
            return s
    return s
        end
    end
    end
    end


    local function addTableRow(tbl)
    local function addTableRow(tbl)
        -- If any other rows have already been added, then we add a 2px gutter row.
    -- If any other rows have already been added, then we add a 2px gutter row.
        if tableRowAdded then
    if tableRowAdded then
            tbl
    tbl
                :tag('tr')
    :tag('tr')
                    :css('height', '2px')
    :css('height', '2px')
                    :tag('td')
    :tag('td')
                        :attr('colspan',2)
    :attr('colspan',2)
        end
    end


        tableRowAdded = true
    tableRowAdded = true


        return tbl:tag('tr')
    return tbl:tag('tr')
    end
    end


    local function renderNavBar(titleCell)
    local function renderNavBar(titleCell)
        -- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
    -- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
        -- or right to keep the title centered.
    -- or right to keep the title centered.
        local spacerSide = nil
    local spacerSide = nil


        if args.navbar == 'off' then
    if args.navbar == 'off' then
            -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
    -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
            -- also no show/hide link, then we need a spacer on the right to achieve the left shift.
    -- also no show/hide link, then we need a spacer on the right to achieve the left shift.
            if args.state == 'plain' then spacerSide = 'right' end
    if args.state == 'plain' then spacerSide = 'right' end
        elseif args.navbar == 'plain' or (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'Template:Navbox') then
    elseif args.navbar == 'plain' or (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'Template:Navbox') then
            -- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
    -- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
            if args.state ~= 'plain' then spacerSide = 'left' end
    if args.state ~= 'plain' then spacerSide = 'left' end
        else
    else
            -- Will render navbar (or error message). If there's no show/hide link, need a spacer on the right
    -- Will render navbar (or error message). If there's no show/hide link, need a spacer on the right
            -- to balance out the width of the navbar.
    -- to balance out the width of the navbar.
            if args.state == 'plain' then spacerSide = 'right' end
    if args.state == 'plain' then spacerSide = 'right' end


            titleCell:wikitext(navbar{
    titleCell:wikitext(navbar{
                args.name,
    args.name,
                mini = 1,
    mini = 1,
                fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') ..  ';background:none transparent;border:none;'
    fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') ..  ';background:none transparent;border:none;'
            })
    })
        end
    end


        -- Render the spacer div.
    -- Render the spacer div.
        if spacerSide then
    if spacerSide then
            titleCell
    titleCell
                :tag('span')
    :tag('span')
                    :css('float', spacerSide)
    :css('float', spacerSide)
                    :css('width', '6em')
    :css('width', '6em')
                    :wikitext(' ')
    :wikitext(' ')
        end
    end
    end
    end


    Line 78: Line 78:
    --
    --
    local function renderTitleRow(tbl)
    local function renderTitleRow(tbl)
        if not args.title then return end
    if not args.title then return end


        local titleRow = addTableRow(tbl)
    local titleRow = addTableRow(tbl)


        if args.titlegroup then
    if args.titlegroup then
            titleRow
    titleRow
                :tag('th')
    :tag('th')
                    :attr('scope', 'row')
    :attr('scope', 'row')
                    :addClass('navbox-group')
    :addClass('navbox-group')
                    :addClass(args.titlegroupclass)
    :addClass(args.titlegroupclass)
                    :cssText(args.basestyle)
    :cssText(args.basestyle)
                    :cssText(args.groupstyle)
    :cssText(args.groupstyle)
                    :cssText(args.titlegroupstyle)
    :cssText(args.titlegroupstyle)
                    :wikitext(args.titlegroup)
    :wikitext(args.titlegroup)
        end
    end


        local titleCell = titleRow:tag('th'):attr('scope', 'col')
    local titleCell = titleRow:tag('th'):attr('scope', 'col')


        if args.titlegroup then
    if args.titlegroup then
            titleCell
    titleCell
                :css('border-left', '2px solid #fdfdfd')
    :css('border-left', '2px solid #fdfdfd')
                :css('width', '100%')
    :css('width', '100%')
        end
    end


        local titleColspan = 2
    local titleColspan = 2
        if args.imageleft then titleColspan = titleColspan + 1 end
    if args.imageleft then titleColspan = titleColspan + 1 end
        if args.image then titleColspan = titleColspan + 1 end
    if args.image then titleColspan = titleColspan + 1 end
        if args.titlegroup then titleColspan = titleColspan - 1 end
    if args.titlegroup then titleColspan = titleColspan - 1 end


        titleCell
    titleCell
            :cssText(args.basestyle)
    :cssText(args.basestyle)
            :cssText(args.titlestyle)
    :cssText(args.titlestyle)
            :addClass('navbox-title')
    :addClass('navbox-title')
            :attr('colspan', titleColspan)
    :attr('colspan', titleColspan)


        renderNavBar(titleCell)
    renderNavBar(titleCell)


        titleCell
    titleCell
            :tag('div')
    :tag('div')
                :addClass(args.titleclass)
    :addClass(args.titleclass)
                :css('font-size', '114%')
    :css('font-size', '110%')
                :wikitext(addNewline(args.title))
    :wikitext(addNewline(args.title))
    end
    end


    Line 127: Line 127:


    local function getAboveBelowColspan()
    local function getAboveBelowColspan()
        local ret = 2
    local ret = 2
        if args.imageleft then ret = ret + 1 end
    if args.imageleft then ret = ret + 1 end
        if args.image then ret = ret + 1 end
    if args.image then ret = ret + 1 end
        return ret
    return ret
    end
    end


    local function renderAboveRow(tbl)
    local function renderAboveRow(tbl)
        if not args.above then return end
    if not args.above then return end


        addTableRow(tbl)
    addTableRow(tbl)
            :tag('td')
    :tag('td')
                :addClass('navbox-abovebelow')
    :addClass('navbox-abovebelow')
                :addClass(args.aboveclass)
    :addClass(args.aboveclass)
                :cssText(args.basestyle)
    :cssText(args.basestyle)
                :cssText(args.abovestyle)
    :cssText(args.abovestyle)
                :attr('colspan', getAboveBelowColspan())
    :attr('colspan', getAboveBelowColspan())
                :tag('div')
    :tag('div')
                    :wikitext(addNewline(args.above))
    :wikitext(addNewline(args.above))
    end
    end


    local function renderBelowRow(tbl)
    local function renderBelowRow(tbl)
        if not args.below then return end
    if not args.below then return end


        addTableRow(tbl)
    addTableRow(tbl)
            :tag('td')
    :tag('td')
                :addClass('navbox-abovebelow')
    :addClass('navbox-abovebelow')
                :addClass(args.belowclass)
    :addClass(args.belowclass)
                :cssText(args.basestyle)
    :cssText(args.basestyle)
                :cssText(args.belowstyle)
    :cssText(args.belowstyle)
                :attr('colspan', getAboveBelowColspan())
    :attr('colspan', getAboveBelowColspan())
                :tag('div')
    :tag('div')
                    :wikitext(addNewline(args.below))
    :wikitext(addNewline(args.below))
    end
    end


    Line 165: Line 165:
    --
    --
    local function renderListRow(tbl, listnum)
    local function renderListRow(tbl, listnum)
        local row = addTableRow(tbl)
    local row = addTableRow(tbl)


        if listnum == 1 and args.imageleft then
    if listnum == 1 and args.imageleft then
            row
    row
                :tag('td')
    :tag('td')
                    :addClass('navbox-image')
    :addClass('navbox-image')
                    :addClass(args.imageclass)
    :addClass(args.imageclass)
                    :css('width', '0%')
    :css('width', '0%')
                    :css('padding', '0px 2px 0px 0px')
    :css('padding', '0px 2px 0px 0px')
                    :cssText(args.imageleftstyle)
    :cssText(args.imageleftstyle)
                    :attr('rowspan', 2 * #listnums - 1)
    :attr('rowspan', 2 * #listnums - 1)
                    :tag('div')
    :tag('div')
                        :wikitext(addNewline(args.imageleft))
    :wikitext(addNewline(args.imageleft))
        end
    end


        if args['group' .. listnum] then
    if args['group' .. listnum] then
            local groupCell = row:tag('th')
    local groupCell = row:tag('th')


            groupCell
    groupCell
                :attr('scope', 'row')
    :attr('scope', 'row')
                :addClass('navbox-group')
    :addClass('navbox-group')
                :addClass(args.groupclass)
    :addClass(args.groupclass)
                :cssText(args.basestyle)
    :cssText(args.basestyle)


            if args.groupwidth then
    if args.groupwidth then
                groupCell:css('width', args.groupwidth)
    groupCell:css('width', args.groupwidth)
            end
    end


            groupCell
    groupCell
                :cssText(args.groupstyle)
    :cssText(args.groupstyle)
                :cssText(args['group' .. listnum .. 'style'])
    :cssText(args['group' .. listnum .. 'style'])
                :wikitext(args['group' .. listnum])
    :wikitext(args['group' .. listnum])
        end
    end


        local listCell = row:tag('td')
    local listCell = row:tag('td')


        if args['group' .. listnum] then
    if args['group' .. listnum] then
            listCell
    listCell
                :css('text-align', 'left')
    :css('text-align', 'left')
                :css('border-left-width', '2px')
    :css('border-left-width', '2px')
                :css('border-left-style', 'solid')
    :css('border-left-style', 'solid')
        else
    else
            listCell:attr('colspan', 2)
    listCell:attr('colspan', 2)
        end
    end


        if not args.groupwidth then
    if not args.groupwidth then
            listCell:css('width', '100%')
    listCell:css('width', '100%')
        end
    end


        local isOdd = (listnum % 2) == 1
    local isOdd = (listnum % 2) == 1
        local rowstyle = args.evenstyle
    local rowstyle = args.evenstyle
        if isOdd then rowstyle = args.oddstyle end
    if isOdd then rowstyle = args.oddstyle end


        local evenOdd
    local evenOdd
        if args.evenodd == 'swap' then
    if args.evenodd == 'swap' then
            if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
    if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
        else
    else
            if isOdd then evenOdd = args.evenodd or 'odd' else evenOdd = args.evenodd or 'even' end
    if isOdd then evenOdd = args.evenodd or 'odd' else evenOdd = args.evenodd or 'even' end
        end
    end


        listCell
    listCell
            :css('padding', '0px')
    :css('padding', '0px')
            :cssText(args.liststyle)
    :cssText(args.liststyle)
            :cssText(rowstyle)
    :cssText(rowstyle)
            :cssText(args['list' .. listnum .. 'style'])
    :cssText(args['list' .. listnum .. 'style'])
            :addClass('navbox-list')
    :addClass('navbox-list')
            :addClass('navbox-' .. evenOdd)
    :addClass('navbox-' .. evenOdd)
            :addClass(args.listclass)
    :addClass(args.listclass)
            :tag('div')
    :tag('div')
                :css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
    :css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
                :wikitext(addNewline(args['list' .. listnum]))
    :wikitext(addNewline(args['list' .. listnum]))


        if listnum == 1 and args.image then
    if listnum == 1 and args.image then
            row
    row
                :tag('td')
    :tag('td')
                    :addClass('navbox-image')
    :addClass('navbox-image')
                    :addClass(args.imageclass)
    :addClass(args.imageclass)
                    :css('width', '0%')
    :css('width', '0%')
                    :css('padding', '0px 0px 0px 2px')
    :css('padding', '0px 0px 0px 2px')
                    :cssText(args.imagestyle)
    :cssText(args.imagestyle)
                    :attr('rowspan', 2 * #listnums - 1)
    :attr('rowspan', 2 * #listnums - 1)
                    :tag('div')
    :tag('div')
                        :wikitext(addNewline(args.image))
    :wikitext(addNewline(args.image))
        end
    end
    end
    end


    Line 257: Line 257:


    local function needsHorizontalLists()
    local function needsHorizontalLists()
        if border == 'child' or border == 'subgroup'  or args.tracking == 'no' then return false end
    if border == 'child' or border == 'subgroup'  or args.tracking == 'no' then return false end


        local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
    local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
        for i, cls in ipairs(listClasses) do
    for i, cls in ipairs(listClasses) do
            if args.listclass == cls or args.bodyclass == cls then
    if args.listclass == cls or args.bodyclass == cls then
                return false
    return false
            end
    end
        end
    end


        return true
    return true
    end
    end


    local function hasBackgroundColors()
    local function hasBackgroundColors()
        return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')
    return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')
    end
     
    local function isIllegible()
    local styleratio = require('Module:Color contrast')._styleratio
     
    for key, style in pairs(args) do
    if key:match("style$") then
    if styleratio { style, "black", "white" } < 4.5 then
    return true
    end
    end
    end
     
    return false
    end
    end


    local function getTrackingCategories()
    local function getTrackingCategories()
        local cats = {}
    local cats = {}
        if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') end
    if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') end
        if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end
    if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end
        return cats
    if isIllegible() then table.insert(cats, 'Potentially illegible navboxes') end
    return cats
    end
    end


    local function renderTrackingCategories(builder)
    local function renderTrackingCategories(builder)
        local title = mw.title.getCurrentTitle()
    local title = mw.title.getCurrentTitle()
        if title.namespace ~= 10 then return end -- not in template space
    if title.namespace ~= 10 then return end -- not in template space
        local subpage = title.subpageText
    local subpage = title.subpageText
        if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end
    if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end


        for i, cat in ipairs(getTrackingCategories()) do
    for i, cat in ipairs(getTrackingCategories()) do
            builder:wikitext('[[Category:' .. cat .. ']]')
    builder:wikitext('[[Category:' .. cat .. ']]')
        end
    end
    end
    end


    Line 295: Line 310:
    --
    --
    local function renderMainTable()
    local function renderMainTable()
        local tbl = mw.html.create('table')
    local tbl = mw.html.create('table')
            :addClass('nowraplinks')
    :addClass('nowraplinks')
            :addClass(args.bodyclass)
    :addClass(args.bodyclass)


        if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
    if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
            tbl
    tbl
                :addClass('collapsible')
    :addClass('mw-collapsible')
                :addClass(args.state or 'autocollapse')
    -- mw-collapsible doesn't have an "autocollapse" feature, so fall back on collapsed by default for now
        end
    :addClass(args.state and 'mw-' .. args.state or 'mw-collapsed')
    end


        tbl:css('border-spacing', 0)
    tbl:css('border-spacing', 0)
        if border == 'subgroup' or border == 'child' or border == 'none' then
    if border == 'subgroup' or border == 'child' or border == 'none' then
            tbl
    tbl
                :addClass('navbox-subgroup')
    :addClass('navbox-subgroup')
                :cssText(args.bodystyle)
    :cssText(args.bodystyle)
                :cssText(args.style)
    :cssText(args.style)
        else -- regular navobx - bodystyle and style will be applied to the wrapper table
    else -- regular navbox - bodystyle and style will be applied to the wrapper table
            tbl
    tbl
                :addClass('navbox-inner')
    :addClass('navbox-inner')
                :css('background', 'transparent')
    :css('background', 'transparent')
                :css('color', 'inherit')
    :css('color', 'inherit')
        end
    end
        tbl:cssText(args.innerstyle)
    tbl:cssText(args.innerstyle)


        renderTitleRow(tbl)
    renderTitleRow(tbl)
        renderAboveRow(tbl)
    renderAboveRow(tbl)
        for i, listnum in ipairs(listnums) do
    for i, listnum in ipairs(listnums) do
            renderListRow(tbl, listnum)
    renderListRow(tbl, listnum)
        end
    end
        renderBelowRow(tbl)
    renderBelowRow(tbl)


        return tbl
    return tbl
    end
    end


    function p._navbox(navboxArgs)
    function p._navbox(navboxArgs)
        args = navboxArgs
    args = navboxArgs


        for k, v in pairs(args) do
    local nowraplist = args.nowraplists and require('Module:Nowrap list')._main
            local listnum = ('' .. k):match('^list(%d+)$')
    for k, v in pairs(args) do
            if listnum then table.insert(listnums, tonumber(listnum)) end
    local listnum = string.match(k, '^list(%d+)$')
        end
    if listnum then table.insert(listnums, tonumber(listnum)) end
        table.sort(listnums)
    -- preprocess lists in listX, above, and below if nowraplists has been set
    if nowraplist and (listnum or string.match(k, '^above') or string.match(k, '^below')) then
    args[k] = nowraplist(v)
    end
    end
    table.sort(listnums)


        border = trim(args.border or args[1] or '')
    border = trim(args.border or args[1] or '')


        -- render the main body of the navbox
    -- render the main body of the navbox
        local tbl = renderMainTable()
    local tbl = renderMainTable()


        -- render the appropriate wrapper around the navbox, depending on the border param
    -- render the appropriate wrapper around the navbox, depending on the border param
        local res = mw.html.create()
    local res = mw.html.create()
        if border == 'none' then
    if border == 'none' then
            res:node(tbl)
    res:node(tbl)
        elseif border == 'subgroup' or border == 'child' then
    elseif border == 'subgroup' or border == 'child' then
            -- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
    -- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
            -- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
    -- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
            -- padding being applied, and at the end add a <div> to balance out the parent's </div>
    -- padding being applied, and at the end add a <div> to balance out the parent's </div>
            res
    res
                :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
    :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
                :node(tbl)
    :node(tbl)
                :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
    :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
        else
    else
            res
    res
                :tag('table')
    :tag('table')
                    :addClass('navbox')
    :addClass('navbox')
                    :css('border-spacing', 0)
    :css('border-spacing', 0)
                    :cssText(args.bodystyle)
    :cssText(args.bodystyle)
                    :cssText(args.style)
    :cssText(args.style)
                    :tag('tr')
    :tag('tr')
                        :tag('td')
    :tag('td')
                            :css('padding', '2px')
    :css('padding', '2px')
                            :node(tbl)
    :node(tbl)
        end
    end


        renderTrackingCategories(res)
    renderTrackingCategories(res)


        return tostring(res)
    return tostring(res)
    end
    end


    function p.navbox(frame)
    function p.navbox(frame)
        if not getArgs then
    if not getArgs then
            getArgs = require('Module:Arguments').getArgs
    getArgs = require('Module:Arguments').getArgs
        end
    end
        args = getArgs(frame, {wrappers = 'Template:Navbox'})
    args = getArgs(frame, {wrappers = 'Template:Navbox'})


        -- Read the arguments in the order they'll be output in, to make references number in the right order.
    -- Read the arguments in the order they'll be output in, to make references number in the right order.
        local _
    local _
        _ = args.title
    _ = args.title
        _ = args.above
    _ = args.above
        for i = 1, 20 do
    for i = 1, 20 do
            _ = args["group" .. tostring(i)]
    _ = args["group" .. tostring(i)]
            _ = args["list" .. tostring(i)]
    _ = args["list" .. tostring(i)]
        end
    end
        _ = args.below
    _ = args.below


        return p._navbox(args)
    return p._navbox(args)
    end
    end


    return p
    return p

    Revision as of 11:05, 7 September 2015

    Documentation for this module may be created at Module:Navbox/doc

    --
    -- This module implements {{Navbox}}
    --
    
    local p = {}
    
    local navbar = require('Module:Navbar')._navbar
    local getArgs -- lazily initialized
    
    local args
    local tableRowAdded = false
    local border
    local listnums = {}
    
    local function trim(s)
    	return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
    end
    
    local function addNewline(s)
    	if s:match('^[*:;#]') or s:match('^{|') then
    		return '\n' .. s ..'\n'
    	else
    		return s
    	end
    end
    
    local function addTableRow(tbl)
    	-- If any other rows have already been added, then we add a 2px gutter row.
    	if tableRowAdded then
    		tbl
    			:tag('tr')
    				:css('height', '2px')
    				:tag('td')
    					:attr('colspan',2)
    	end
    
    	tableRowAdded = true
    
    	return tbl:tag('tr')
    end
    
    local function renderNavBar(titleCell)
    	-- Depending on the presence of the navbar and/or show/hide link, we may need to add a spacer div on the left
    	-- or right to keep the title centered.
    	local spacerSide = nil
    
    	if args.navbar == 'off' then
    		-- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
    		-- also no show/hide link, then we need a spacer on the right to achieve the left shift.
    		if args.state == 'plain' then spacerSide = 'right' end
    	elseif args.navbar == 'plain' or (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'Template:Navbox') then
    		-- No navbar. Need a spacer on the left to balance out the width of the show/hide link.
    		if args.state ~= 'plain' then spacerSide = 'left' end
    	else
    		-- Will render navbar (or error message). If there's no show/hide link, need a spacer on the right
    		-- to balance out the width of the navbar.
    		if args.state == 'plain' then spacerSide = 'right' end
    
    		titleCell:wikitext(navbar{
    			args.name,
    			mini = 1,
    			fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') ..  ';background:none transparent;border:none;'
    		})
    	end
    
    	-- Render the spacer div.
    	if spacerSide then
    		titleCell
    			:tag('span')
    				:css('float', spacerSide)
    				:css('width', '6em')
    				:wikitext('&nbsp;')
    	end
    end
    
    --
    --   Title row
    --
    local function renderTitleRow(tbl)
    	if not args.title then return end
    
    	local titleRow = addTableRow(tbl)
    
    	if args.titlegroup then
    		titleRow
    			:tag('th')
    				:attr('scope', 'row')
    				:addClass('navbox-group')
    				:addClass(args.titlegroupclass)
    				:cssText(args.basestyle)
    				:cssText(args.groupstyle)
    				:cssText(args.titlegroupstyle)
    				:wikitext(args.titlegroup)
    	end
    
    	local titleCell = titleRow:tag('th'):attr('scope', 'col')
    
    	if args.titlegroup then
    		titleCell
    			:css('border-left', '2px solid #fdfdfd')
    			:css('width', '100%')
    	end
    
    	local titleColspan = 2
    	if args.imageleft then titleColspan = titleColspan + 1 end
    	if args.image then titleColspan = titleColspan + 1 end
    	if args.titlegroup then titleColspan = titleColspan - 1 end
    
    	titleCell
    		:cssText(args.basestyle)
    		:cssText(args.titlestyle)
    		:addClass('navbox-title')
    		:attr('colspan', titleColspan)
    
    	renderNavBar(titleCell)
    
    	titleCell
    		 :tag('div')
    			 :addClass(args.titleclass)
    			 :css('font-size', '110%')
    			 :wikitext(addNewline(args.title))
    end
    
    --
    --   Above/Below rows
    --
    
    local function getAboveBelowColspan()
    	local ret = 2
    	if args.imageleft then ret = ret + 1 end
    	if args.image then ret = ret + 1 end
    	return ret
    end
    
    local function renderAboveRow(tbl)
    	if not args.above then return end
    
    	addTableRow(tbl)
    		:tag('td')
    			:addClass('navbox-abovebelow')
    			:addClass(args.aboveclass)
    			:cssText(args.basestyle)
    			:cssText(args.abovestyle)
    			:attr('colspan', getAboveBelowColspan())
    			:tag('div')
    				:wikitext(addNewline(args.above))
    end
    
    local function renderBelowRow(tbl)
    	if not args.below then return end
    
    	addTableRow(tbl)
    		:tag('td')
    			:addClass('navbox-abovebelow')
    			:addClass(args.belowclass)
    			:cssText(args.basestyle)
    			:cssText(args.belowstyle)
    			:attr('colspan', getAboveBelowColspan())
    			:tag('div')
    				:wikitext(addNewline(args.below))
    end
    
    --
    --   List rows
    --
    local function renderListRow(tbl, listnum)
    	local row = addTableRow(tbl)
    
    	if listnum == 1 and args.imageleft then
    		row
    			:tag('td')
    				:addClass('navbox-image')
    				:addClass(args.imageclass)
    				:css('width', '0%')
    				:css('padding', '0px 2px 0px 0px')
    				:cssText(args.imageleftstyle)
    				:attr('rowspan', 2 * #listnums - 1)
    				:tag('div')
    					:wikitext(addNewline(args.imageleft))
    	end
    
    	if args['group' .. listnum] then
    		local groupCell = row:tag('th')
    
    		groupCell
    			:attr('scope', 'row')
    			:addClass('navbox-group')
    			:addClass(args.groupclass)
    			:cssText(args.basestyle)
    
    		if args.groupwidth then
    			groupCell:css('width', args.groupwidth)
    		end
    
    		groupCell
    			:cssText(args.groupstyle)
    			:cssText(args['group' .. listnum .. 'style'])
    			:wikitext(args['group' .. listnum])
    	end
    
    	local listCell = row:tag('td')
    
    	if args['group' .. listnum] then
    		listCell
    			:css('text-align', 'left')
    			:css('border-left-width', '2px')
    			:css('border-left-style', 'solid')
    	else
    		listCell:attr('colspan', 2)
    	end
    
    	if not args.groupwidth then
    		listCell:css('width', '100%')
    	end
    
    	local isOdd = (listnum % 2) == 1
    	local rowstyle = args.evenstyle
    	if isOdd then rowstyle = args.oddstyle end
    
    	local evenOdd
    	if args.evenodd == 'swap' then
    		if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
    	else
    		if isOdd then evenOdd = args.evenodd or 'odd' else evenOdd = args.evenodd or 'even' end
    	end
    
    	listCell
    		:css('padding', '0px')
    		:cssText(args.liststyle)
    		:cssText(rowstyle)
    		:cssText(args['list' .. listnum .. 'style'])
    		:addClass('navbox-list')
    		:addClass('navbox-' .. evenOdd)
    		:addClass(args.listclass)
    		:tag('div')
    			:css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
    			:wikitext(addNewline(args['list' .. listnum]))
    
    	if listnum == 1 and args.image then
    		row
    			:tag('td')
    				:addClass('navbox-image')
    				:addClass(args.imageclass)
    				:css('width', '0%')
    				:css('padding', '0px 0px 0px 2px')
    				:cssText(args.imagestyle)
    				:attr('rowspan', 2 * #listnums - 1)
    				:tag('div')
    					:wikitext(addNewline(args.image))
    	end
    end
    
    
    --
    --   Tracking categories
    --
    
    local function needsHorizontalLists()
    	if border == 'child' or border == 'subgroup'  or args.tracking == 'no' then return false end
    
    	local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
    	for i, cls in ipairs(listClasses) do
    		if args.listclass == cls or args.bodyclass == cls then
    			return false
    		end
    	end
    
    	return true
    end
    
    local function hasBackgroundColors()
    	return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')
    end
    
    local function isIllegible()
    	local styleratio = require('Module:Color contrast')._styleratio
    
    	for key, style in pairs(args) do
    		if key:match("style$") then
    			if styleratio { style, "black", "white" } < 4.5 then
    				return true	
    			end
    		end
    	end
    
    	return false
    end
    
    local function getTrackingCategories()
    	local cats = {}
    	if needsHorizontalLists() then table.insert(cats, 'Navigational boxes without horizontal lists') end
    	if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end
    	if isIllegible() then table.insert(cats, 'Potentially illegible navboxes') end
    	return cats
    end
    
    local function renderTrackingCategories(builder)
    	local title = mw.title.getCurrentTitle()
    	if title.namespace ~= 10 then return end -- not in template space
    	local subpage = title.subpageText
    	if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end
    
    	for i, cat in ipairs(getTrackingCategories()) do
    		builder:wikitext('[[Category:' .. cat .. ']]')
    	end
    end
    
    --
    --   Main navbox tables
    --
    local function renderMainTable()
    	local tbl = mw.html.create('table')
    		:addClass('nowraplinks')
    		:addClass(args.bodyclass)
    
    	if args.title and (args.state ~= 'plain' and args.state ~= 'off') then
    		tbl
    			:addClass('mw-collapsible')
    			-- mw-collapsible doesn't have an "autocollapse" feature, so fall back on collapsed by default for now
    			:addClass(args.state and 'mw-' .. args.state or 'mw-collapsed')
    	end
    
    	tbl:css('border-spacing', 0)
    	if border == 'subgroup' or border == 'child' or border == 'none' then
    		tbl
    			:addClass('navbox-subgroup')
    			:cssText(args.bodystyle)
    			:cssText(args.style)
    	else -- regular navbox - bodystyle and style will be applied to the wrapper table
    		tbl
    			:addClass('navbox-inner')
    			:css('background', 'transparent')
    			:css('color', 'inherit')
    	end
    	tbl:cssText(args.innerstyle)
    
    	renderTitleRow(tbl)
    	renderAboveRow(tbl)
    	for i, listnum in ipairs(listnums) do
    		renderListRow(tbl, listnum)
    	end
    	renderBelowRow(tbl)
    
    	return tbl
    end
    
    function p._navbox(navboxArgs)
    	args = navboxArgs
    
    	local nowraplist = args.nowraplists and require('Module:Nowrap list')._main
    	for k, v in pairs(args) do
    		local listnum = string.match(k, '^list(%d+)$')
    		if listnum then table.insert(listnums, tonumber(listnum)) end
    		-- preprocess lists in listX, above, and below if nowraplists has been set
    		if nowraplist and (listnum or string.match(k, '^above') or string.match(k, '^below')) then
    			args[k] = nowraplist(v)
    		end
    	end
    	table.sort(listnums)
    
    	border = trim(args.border or args[1] or '')
    
    	-- render the main body of the navbox
    	local tbl = renderMainTable()
    
    	-- render the appropriate wrapper around the navbox, depending on the border param
    	local res = mw.html.create()
    	if border == 'none' then
    		res:node(tbl)
    	elseif border == 'subgroup' or border == 'child' then
    		-- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
    		-- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
    		-- padding being applied, and at the end add a <div> to balance out the parent's </div>
    		res
    			:wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
    			:node(tbl)
    			:wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
    	else
    		res
    			:tag('table')
    				:addClass('navbox')
    				:css('border-spacing', 0)
    				:cssText(args.bodystyle)
    				:cssText(args.style)
    				:tag('tr')
    					:tag('td')
    						:css('padding', '2px')
    						:node(tbl)
    	end
    
    	renderTrackingCategories(res)
    
    	return tostring(res)
    end
    
    function p.navbox(frame)
    	if not getArgs then
    		getArgs = require('Module:Arguments').getArgs
    	end
    	args = getArgs(frame, {wrappers = 'Template:Navbox'})
    
    	-- Read the arguments in the order they'll be output in, to make references number in the right order.
    	local _
    	_ = args.title
    	_ = args.above
    	for i = 1, 20 do
    		_ = args["group" .. tostring(i)]
    		_ = args["list" .. tostring(i)]
    	end
    	_ = args.below
    
    	return p._navbox(args)
    end
    
    return p