Module:Navbox/sandbox: Difference between revisions

Revision as of 08:58, 11 August 2014

Revision as of 09:03, 11 August 2014

Line 5:

local p = {}

local HtmlBuilder = require('Module:HtmlBuilder')

local navbar = require('Module:Navbar')._navbar

local getArgs -- lazily initialized

Line 30 ⟶ 29:

if tableRowAdded then

tbl

.:tag('tr')

.:css('height', '2px')

.:tag('td')

.:attr('colspan',2)

end

tableRowAdded = true

return tbl.:tag('tr')

end

Line 58 ⟶ 57:

if args.state == 'plain' then spacerSide = 'right' end

titleCell.:wikitext(navbar{

args.name,

mini = 1,

Line 64 ⟶ 63:

})

end

-- Render the spacer div.

if spacerSide then

titleCell

.:tag('span')

.:css('float', spacerSide)

.:css('width', '6em')

.:wikitext(' ')

end

end

Line 82 ⟶ 81:

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

Line 138 ⟶ 137:

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

Line 152 ⟶ 151:

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

Line 167 ⟶ 166:

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

Line 227 ⟶ 226:

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

Line 259 ⟶ 258:

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

Line 286 ⟶ 285:

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 .. ']]')

Line 296 ⟶ 295:

--

local function renderMainTable()

local tbl = HtmlBuildermw.html.create('table')

.:attr('cellspacing', 0)

.: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)

Line 346 ⟶ 345:

-- render the appropriate wrapper around the navbox, depending on the border param

local res = HtmlBuildermw.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

Line 354 ⟶ 353:

-- padding being applied, and at the end add a <div> to balance out the parent's </div>

res

.:tag('/div', {unclosed = true})

.:done()

.:node(tbl)

.:tag('div', {unclosed = true})

else

res

.:tag('table')

.:attr('cellspacing', 0)

.:addClass('navbox')

.:css('border-spacing', 0)

.:cssText(args.bodystyle)

.:cssText(args.style)

.:tag('tr')

.:tag('td')

.:css('padding', '2px')

.:node(tbl)

end