יחידה:Navbox: הבדלים בין גרסאות בדף

local listnums = {}

local function trim(s)

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

local function addNewline(s)

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

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

    end

 

    if tableRowAdded then

            :tag('tr')

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

                :tag('td')

                    :attr('colspan',2)

    end

 

    tableRowAdded = true

 

    return tbl:tag('tr')

        titleCell:wikitext(navbar{

            args.name,

            mini = 1,

            fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') .. ';background:none transparent;border:none;'

        })

    end

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

            :attr('id', mw.uri.anchorEncode(args.title))

            :addClass(args.titleclass)

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

            :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 function renderListRow(tbl, listnum)

    local row = addTableRow(tbl)

 

                :tag('div')

    if args['group' .. listnum] then

        local groupCell = row:tag('th')

            :attr('scope', 'row')

            :addClass('navbox-group')

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

    local listCell = row:tag('td')

        listCell:attr('colspan', 2)

    if not args.groupwidth then

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

    end

    local isOdd = (listnum % 2) == 1

    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

    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 mw.ustring.match(args.titlestyle or '','background') or mw.ustring.match(args.groupstyle or '','background') or mw.ustring.match(args.basestyle or '','background')

local function isIllegible()

    local styleratio = require('Module:Color contrast')._styleratio

 

    for key, style in pairs(args) do

        if tostring(key):match("style$") then

            if styleratio{mw.text.unstripNoWiki(style)} < 4.5 then

                return true  

            end

        end

local function getTrackingCategories()

    local cats = {}

    if hasBackgroundColors() then table.insert(cats, 'Navboxes using background colours') end

    if isIllegible() then table.insert(cats, 'Potentially illegible navboxes') end

 

    for i, cat in ipairs(getTrackingCategories()) do

        builder:wikitext('[[Category:' .. cat .. ']]')

    end

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

            :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+)$')

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

    local tbl = renderMainTable()

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

        local nav = res:tag('div')

            :node(tbl)

        local nav = res:tag('div')

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

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

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

    end

    _ = args.below

    return p._navbox(args)