Module:Navbox：修订间差异

-- This module will implement {{Navbox}}

local listnums = {}

local function trim(s)

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

    if s:match('^[*:;#]') or s:match('^{|') then

        return '\n' .. s ..'\n'

    else

        return s

    end

local function addTableRow(tbl)

    -- If any other rows have already been added, then we add a 2px gutter row.

            :tag('tr')

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

                :tag('td')

                :attr('colspan', 3)

    return tbl:tag('tr')

    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() == 'Template:Navbox' and (border == 'subgroup' or border == 'child' or border == 'none')) 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

        -- Will render navbar (or error message). If there's no show/hide link, need a spacer on the right

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

    if not args.title then return end

    local titleRow = addTableRow(tbl)

        titleRow

            :tag('th')

                :addClass('navbox-group')

    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

    titleCell

        :cssText(args.basestyle)

        :cssText(args.titlestyle)

        :addClass('navbox-title')

        :attr('colspan', titleColspan)

    renderNavBar(titleCell)

    titleCell

        :tag('div')

            :css('font-size', '110%')

            :wikitext(addNewline(args.title))

    local ret = 2

    if args.imageleft then ret = ret + 1 end

    if args.image then ret = ret + 1 end

    return ret

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

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

    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)

            groupCell:css('width', args.groupwidth)

        groupCell

            :cssText(args.groupstyle)

            :cssText(args['group' .. listnum .. 'style'])

            :wikitext(args['group' .. listnum])

    end

    if args['group' .. listnum] then

            :css('border-left-width', '2px')

    if not args.groupwidth then

        listCell:css('width', '100%')

    local rowstyle = args.evenstyle

    if isOdd then rowstyle = args.oddstyle end

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

    listCell

        :tag('div')

            :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

    if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end

            return false

    end

    return true

    return mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')

if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end

if args.name ~= mw.title.getCurrentTitle().text then

    local cats = {}

    if needsHorizontalLists() then table.insert(cats, '没有使用水平列表的导航框') end

    if hasBackgroundColors() then table.insert(cats, '使用背景颜色的导航框') end

    if argNameAndRealTitleAreDifferent() then table.insert(cats, 'name參數和實際不同的導航框') end

    return cats

    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

    local tbl = mw.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)

    renderAboveRow(tbl)

    for i, listnum in ipairs(listnums) do

        renderListRow(tbl, listnum)  

    end

    renderBelowRow(tbl)

    return tbl

    args = navboxArgs

        local listnum = ('' .. k):match('^list(%d+)$')

        if listnum then table.insert(listnums, tonumber(listnum)) end

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

    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>') -- mw.html 未支持 unclosed

            :node(tbl)

            :wikitext('<div>') -- mw.html 未支持 unclosed

    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)

    renderTrackingCategories(res)

    return tostring(res)

    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, 35 do

        _ = args["group" .. tostring(i)]

        _ = args["list" .. tostring(i)]

    end  

    _ = args.below

    return p._navbox(args)