Difference between revisions of "Module:Navbox"

From Timelines
Jump to: navigation, search
(Add colour tracking per ER)
(Undid revision 679881839 by Alakzi (talk) - This change has more than just color tracking in it and is causing issues, see talk page)
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', '110%')
+
            :css('font-size', '114%')
: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
if isIllegible() then table.insert(cats, 'Potentially illegible navboxes') end
+
    return cats
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 310: Line 295:
 
--
 
--
 
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('mw-collapsible')
+
            :addClass('collapsible')
-- mw-collapsible doesn't have an "autocollapse" feature, so fall back on collapsed by default for now
+
            :addClass(args.state or 'autocollapse')
:addClass(args.state and 'mw-' .. args.state or 'mw-collapsed')
+
    end
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 navbox - bodystyle and style will be applied to the wrapper table
+
    else -- regular navobx - 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
  
local nowraplist = args.nowraplists and require('Module:Nowrap list')._main
+
    for k, v in pairs(args) do
for k, v in pairs(args) do
+
        local listnum = ('' .. k):match('^list(%d+)$')
local listnum = string.match(k, '^list(%d+)$')
+
        if listnum then table.insert(listnums, tonumber(listnum)) end
if listnum then table.insert(listnums, tonumber(listnum)) end
+
    end
-- preprocess lists in listX, above, and below if nowraplists has been set
+
    table.sort(listnums)
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 04:33, 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', '114%')
             :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 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
    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('collapsible')
            :addClass(args.state or 'autocollapse')
    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 navobx - 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

    for k, v in pairs(args) do
        local listnum = ('' .. k):match('^list(%d+)$')
        if listnum then table.insert(listnums, tonumber(listnum)) 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