ويكي‌حج

الفرق بين المراجعتين لصفحة: «وحدة:Navbox»

وحدة نقاش

وحدة:Navbox (عرض المصدر)

مراجعة ١٤:٠٧، ٢٥ يناير ٢٠٢٠

أُضيف ٦٠٦ بايت ،  ٢٥ يناير ٢٠٢٠
لا يوجد ملخص تحرير
ط (مراجعة واحدة)
لا ملخص تعديل
سطر ٩: سطر ٩:


local args
local args
local tableRowAdded = false
local border
local border
local listnums = {}
local listnums  
local ODD_EVEN_MARKER = '\127_ODDEVEN_\127'
local RESTART_MARKER = '\127_ODDEVEN0_\127'
local REGEX_MARKER = '\127_ODDEVEN(%d?)_\127'


local function striped(wikitext)
local function trim(s)
-- Return wikitext with markers replaced for odd/even striping.
    return (mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1"))
-- Child (subgroup) navboxes are flagged with a category that is removed
end
-- by parent navboxes. The result is that the category shows all pages
 
-- where a child navbox is not contained in a parent navbox.
local function addNewline(s)
local orphanCat = '[[رده:جعبه‌های ناوبری یتیم]]'
    if s:match('^[*:;#]') or s:match('^{|') then
if border == 'subgroup' and args.orphan ~= 'yes' then
        return '\n' .. s ..'\n'
-- No change; striping occurs in outermost navbox.
    else
return wikitext .. orphanCat
        return s
end
    end
local first, second = 'odd', 'even'
if args.evenodd then
if args.evenodd == 'swap' then
first, second = second, first
else
first = args.evenodd
second = first
end
end
local changer
if first == second then
changer = first
else
local index = 0
changer = function (code)
if code == '0' then
-- Current occurrence is for a group before a nested table.
-- Set it to first as a valid although pointless class.
-- The next occurrence will be the first row after a title
-- in a subgroup and will also be first.
index = 0
return first
end
index = index + 1
return index % 2 == 1 and first or second
end
end
local regex = orphanCat:gsub('([%[%]])', '%%%1')
return (wikitext:gsub(regex, ''):gsub(REGEX_MARKER, changer))  -- () omits gsub count
end
end


local function processItem(item, nowrapitems)
local function addTableRow(tbl)
if item:sub(1, 2) == '{|' then
    -- If any other rows have already been added, then we add a 2px gutter row.
-- Applying nowrap to lines in a table does not make sense.
    if tableRowAdded then
-- Add newlines to compensate for trim of x in |parm=x in a template.
        tbl
return '\n' .. item ..'\n'
            :tag('tr')
end
                :css('height', '2px')
if nowrapitems == 'yes' then
                :tag('td')
local lines = {}
                    :attr('colspan',2)
for line in (item .. '\n'):gmatch('([^\n]*)\n') do
    end
local prefix, content = line:match('^([*:;#]+)%s*(.*)')
 
if prefix and not content:match('^<span class="nowrap">') then
    tableRowAdded = true
line = prefix .. '<span class="nowrap">' .. content .. '</span>'
 
end
    return tbl:tag('tr')
table.insert(lines, line)
end
item = table.concat(lines, '\n')
end
if item:match('^[*:;#]') then
return '\n' .. item ..'\n'
end
return item
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
    -- or right to keep the title centered.
    local spacerSide = nil


if args.navbar ~= 'off' and args.navbar ~= 'plain' and not (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/sandbox$', '') == 'الگو:Navbox') then
    if args.navbar == 'off' then
titleCell:wikitext(navbar{
        -- No navbar, and client wants no spacer, i.e. wants the title to be shifted to the left. If there's
args.name,
        -- also no show/hide link, then we need a spacer on the right to achieve the left shift.
mini = 1,
        if args.state == 'plain' then spacerSide = 'left' end
fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') .. ';background:none transparent;border:none;-moz-box-shadow:none;-webkit-box-shadow:none;box-shadow:none;'
    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.
end
        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 = 'left' 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
end


سطر ٩٥: سطر ٧٨:
--
--
local function renderTitleRow(tbl)
local function renderTitleRow(tbl)
if not args.title then return end
    if not args.title then return end


local titleRow = tbl:tag('tr')
    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-right', '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.imageright 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')
:attr('id', mw.uri.anchorEncode(args.title))
            :addClass(args.titleclass)
:addClass(args.titleclass)
            :css('font-size', '114%')
:css('font-size', '114%')
            :wikitext(addNewline(args.title))
:css('margin', '0 4em')
:wikitext(processItem(args.title))
end
end


سطر ١٤٦: سطر ١٢٧:


local function getAboveBelowColspan()
local function getAboveBelowColspan()
local ret = 2
    local ret = 2
if args.imageright 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


tbl:tag('tr')
    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(processItem(args.above, args.nowrapitems))
                :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


tbl:tag('tr')
    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(processItem(args.below, args.nowrapitems))
                :wikitext(addNewline(args.below))
end
end


سطر ١٨٣: سطر ١٦٤:
--  List rows
--  List rows
--
--
local function renderListRow(tbl, index, listnum)
local function renderListRow(tbl, listnum)
local row = tbl:tag('tr')
    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')


if index == 1 and args.imageright then
        groupCell
row
            :attr('scope', 'row')
:tag('td')
            :addClass('navbox-group')
:addClass('navbox-image')
            :addClass(args.groupclass)
:addClass(args.imageclass)
            :cssText(args.basestyle)
:css('width', '1px')              -- Minimize width
:css('padding', '0px 2px 0px 0px')
:cssText(args.imagerightstyle)
:attr('rowspan', #listnums)
:tag('div')
:wikitext(processItem(args.imageright))
end


if args['group' .. listnum] then
        if args.groupwidth then
local groupCell = row:tag('th')
            groupCell:css('width', args.groupwidth)
        end


groupCell
        groupCell
:attr('scope', 'row')
            :cssText(args.groupstyle)
:addClass('navbox-group')
            :cssText(args['group' .. listnum .. 'style'])
:addClass(args.groupclass)
             :wikitext(args['group' .. listnum])
:cssText(args.basestyle)
    end
             :css('width', args.groupwidth or '1%') -- If groupwidth not specified, minimize width


groupCell
    local listCell = row:tag('td')
: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', 'right')
            :css('border-right-width', '2px')
            :css('border-right-style', 'solid')
    else
        listCell:attr('colspan', 2)
    end


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


if not args.groupwidth then
    local isOdd = (listnum % 2) == 1
listCell:css('width', '100%')
    local rowstyle = args.evenstyle
end
    if isOdd then rowstyle = args.oddstyle end


local rowstyle  -- usually nil so cssText(rowstyle) usually adds nothing
    local evenOdd
if index % 2 == 1 then
    if args.evenodd == 'swap' then
rowstyle = args.oddstyle
        if isOdd then evenOdd = 'even' else evenOdd = 'odd' end
else
    else
rowstyle = args.evenstyle
        if isOdd then evenOdd = args.evenodd or 'odd' else evenOdd = args.evenodd or 'even' end
end
    end


local listText = args['list' .. listnum]
    listCell
local oddEven = ODD_EVEN_MARKER
        :css('padding', '0px')
if listText:sub(1, 12) == '</div><table' then
        :cssText(args.liststyle)
-- Assume list text is for a subgroup navbox so no automatic striping for this row.
        :cssText(rowstyle)
oddEven = listText:find('<th[^>]*"navbox%-title"') and RESTART_MARKER or 'odd'
        :cssText(args['list' .. listnum .. 'style'])
end
        :addClass('navbox-list')
listCell
        :addClass('navbox-' .. evenOdd)
:css('padding', '0px')
        :addClass(args.listclass)
:cssText(args.liststyle)
        :tag('div')
:cssText(rowstyle)
            :css('padding', (listnum == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
:cssText(args['list' .. listnum .. 'style'])
            :wikitext(addNewline(args['list' .. listnum]))
:addClass('navbox-list')
:addClass('navbox-' .. oddEven)
:addClass(args.listclass)
:tag('div')
:css('padding', (index == 1 and args.list1padding) or args.listpadding or '0em 0.25em')
:wikitext(processItem(listText, args.nowrapitems))


if index == 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', '1px')               -- Minimize width
                :css('width', '0%')
:css('padding', '0px 0px 0px 2px')
                :css('padding', '0px 0px 0px 2px')
:cssText(args.imagestyle)
                :cssText(args.imagestyle)
:attr('rowspan', #listnums)
                :attr('rowspan', 2 * #listnums - 1)
:tag('div')
                :tag('div')
:wikitext(processItem(args.image))
                    :wikitext(addNewline(args.image))
end
    end
end
end


سطر ٢٧٥: سطر ٢٥٧:


local function needsHorizontalLists()
local function needsHorizontalLists()
if border == 'subgroup' or args.tracking == 'no' then
    if border == 'child' or border == 'subgroup' or args.tracking == 'no' then return false end
return false
 
end
    local listClasses = {'plainlist', 'hlist', 'hlist hnum', 'hlist hwrap', 'hlist vcard', 'vcard hlist', 'hlist vevent'}
local listClasses = {
    for i, cls in ipairs(listClasses) do
['plainlist'] = true, ['hlist'] = true, ['hlist hnum'] = true,
        if args.listclass == cls or args.bodyclass == cls then
['hlist hwrap'] = true, ['hlist vcard'] = true, ['vcard hlist'] = true,
            return false
['hlist vevent'] = true,
        end
}
    end
return not (listClasses[args.listclass] or listClasses[args.bodyclass])
 
    return true
end
end


local function hasBackgroundColors()
local function hasBackgroundColors()
for _, key in ipairs({'titlestyle', 'groupstyle', 'basestyle'}) do
    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 tostring(args[key]):find('background', 1, true) then
return true
end
end
end
 
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
end
return false
end
end


local function getTrackingCategories()
local function getTrackingCategories()
local cats = {}
    local cats = {}
if needsHorizontalLists() then table.insert(cats, 'ناوباکس‌های بدون فهرست افقی') end
    if needsHorizontalLists() then table.insert(cats, 'صناديق تصفح بلا لوائح مسطحة') end
if hasBackgroundColors() then table.insert(cats, 'جعبه‌های ناوبری با استفاده از رنگ‌های پس‌زمینه') end
    if hasBackgroundColors() then table.insert(cats, 'صناديق تصفح ذات خلفيات ملونة') end
if isIllegible() then table.insert(cats, 'ناوبری ناخوانا') 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 == 'توضیحات' or subpage == 'تمرین' or subpage == 'آزمایشی' then return end
    if subpage == 'doc' or subpage == 'sandbox' or subpage == 'testcases' then return end


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


سطر ٣٣٠: سطر ٢٩٥:
--
--
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('collapsible')
:addClass(args.state or 'autocollapse')
            :addClass(args.state or 'autocollapse')
end
    end


tbl:css('border-spacing', 0)
    tbl:css('border-spacing', 0)
if border == 'subgroup' 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, i, listnum)
        renderListRow(tbl, listnum)
end
    end
renderBelowRow(tbl)
    renderBelowRow(tbl)


return tbl
    return tbl
end
 
function p.getTransArgs(args0)
    local args1={}
    --mw.log("0>>"..mw.dumpObject(args0))
    local translateArgs = mw.loadData('وحدة:Navbox/وسائط')
    if args0[1] then args1[1] = args0[1] end
    for k, t in pairs(translateArgs) do
    if args0[k] ~= nil then
    args1[k] = args0[k]
    else
      for _, kt in ipairs(t) do
      if args0[kt] ~= nil then
      args1[k] = args0[kt]
      break
      end
      end
    end
    end
    return args1
end
end


function p._navbox(navboxArgs)
function p._navbox(navboxArgs)
args = navboxArgs
    args = navboxArgs
 
listnums = {}
for k, _ in pairs(args) do
    for k, _ in pairs(args) do
if type(k) == 'string' then
if type(k) == 'string' then
local listnum = k:match('^list(%d+)$')
local listnum = k:match('^list(%d+)$')
if listnum then table.insert(listnums, tonumber(listnum)) end
if listnum then table.insert(listnums, tonumber(listnum)) end
end
end
end
    end
table.sort(listnums)
    table.sort(listnums)


border = mw.text.trim(args.border or args[1] or '')
    border = trim(args.border or args[1] or '')
if border == 'child' then
border = 'subgroup'
end


-- 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
local nav = res:tag('div')
        res:node(tbl)
:attr('role', 'navigation')
    elseif border == 'subgroup' or border == 'child' then
:node(tbl)
        -- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
if args.title then
        -- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
        -- padding being applied, and at the end add a <div> to balance out the parent's </div>
else
        res
nav:attr('aria-label', 'Navbox')
            :wikitext('</div>') -- XXX: hack due to lack of unclosed support in mw.html.
end
            :node(tbl)
elseif border == 'subgroup' then
            :wikitext('<div>') -- XXX: hack due to lack of unclosed support in mw.html.
-- We assume that this navbox is being rendered in a list cell of a parent navbox, and is
    else
-- therefore inside a div with padding:0em 0.25em. We start with a </div> to avoid the
        res
-- padding being applied, and at the end add a <div> to balance out the parent's </div>
            :tag('table')
res
                :addClass('navbox')
:wikitext('</div>')
                :css('border-spacing', 0)
:node(tbl)
                :cssText(args.bodystyle)
:wikitext('<div>')
                :cssText(args.style)
else
                :tag('tr')
local nav = res:tag('div')
                    :tag('td')
:attr('role', 'navigation')
                        :css('padding', '1px')
:addClass('navbox')
                        :node(tbl)
:cssText(args.bodystyle)
    end
:cssText(args.style)
:css('padding', '3px')
:node(tbl)
if args.title then
nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))
else
nav:attr('aria-label', 'Navbox')
end
end


renderTrackingCategories(res)
    renderTrackingCategories(res)


return striped(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 = 'الگو:Navbox'})
    args = p.getTransArgs(getArgs(frame))
 
    --args = getArgs(frame, {wrappers = {'قالب:شريط', 'قالب:شريط/لب'}})
-- Read the arguments in the order they'll be output in, to make references number in the right order.
--mw.log(">>"..mw.dumpObject(args))
local _
_ = args.title
    -- Read the arguments in the order they'll be output in, to make references number in the right order.
_ = args.above
    local _
for i = 1, 20 do
    _ = args.title
_ = args["group" .. tostring(i)]
    _ = args.above
_ = args["list" .. tostring(i)]
    for i = 1, 20 do
end
        _ = args["group" .. tostring(i)]
_ = args.below
        _ = args["list" .. tostring(i)]
    end
    _ = args.below


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


return p
return p
مجلوبة من «https://ar.wikihaj.com/view/خاص:فرق_المحمول/484»