모듈:Navbox: 두 판 사이의 차이

local function striped(wikitext)

return wikitext .. orphanCat

changer = function (code)

-- Current occurrence is for a group before a nested table.

-- in a subgroup and will also be first.

local regex = orphanCat:gsub('([%[%]])', '%%%1')

return (wikitext:gsub(regex, ''):gsub(REGEX_MARKER, changer)) -- () omits gsub count

local function processItem(item, nowrapitems)

if item:sub(1, 2) == '{|' then

return '\n' .. item ..'\n'

end

if nowrapitems == 'yes' then

for line in (item .. '\n'):gmatch('([^\n]*)\n') do

local prefix, content = line:match('^([*:;#]+)%s*(.*)')

if prefix and not content:match('^<span class="nowrap">') then

line = prefix .. '<span class="nowrap">' .. content .. '</span>'

table.insert(lines, line)

end

item = table.concat(lines, '\n')

if item:match('^[*:;#]') then

if args.navbar ~= 'off' and args.navbar ~= 'plain' and not (not args.name and mw.getCurrentFrame():getParent():getTitle():gsub('/연습장$', '') == '틀:둘러보기 상자') then

titleCell:wikitext(navbar{

args.name,

mini = 1,

fontstyle = (args.basestyle or '') .. ';' .. (args.titlestyle or '') .. ';background:none transparent;border:none;-moz-box-shadow:none;-webkit-box-shadow:none;box-shadow:none;'

end

if not args.title then return end

local titleRow = tbl:tag('tr')

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(processItem(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

tbl:tag('tr')

:tag('td')

:addClass('navbox-abovebelow')

:addClass(args.aboveclass)

:cssText(args.basestyle)

:cssText(args.abovestyle)

:attr('colspan', getAboveBelowColspan())

:tag('div')

:wikitext(processItem(args.above, args.nowrapitems))

if not args.below then return end

tbl:tag('tr')

:tag('td')

:addClass('navbox-abovebelow')

:addClass(args.belowclass)

:cssText(args.basestyle)

:cssText(args.belowstyle)

:attr('colspan', getAboveBelowColspan())

:tag('div')

:wikitext(processItem(args.below, args.nowrapitems))

local function renderListRow(tbl, index, listnum)

local row = tbl:tag('tr')

if index == 1 and args.imageleft then

row

:tag('td')

:addClass('navbox-image')

:addClass(args.imageclass)

:css('width', '1px')               -- Minimize width

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

:cssText(args.imageleftstyle)

:attr('rowspan', #listnums)

:tag('div')

:wikitext(processItem(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)

:cssText(args.groupstyle)

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

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

end

local listCell = row:tag('td')

listCell:attr('colspan', 2)

if not args.groupwidth then

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

end

if index % 2 == 1 then

rowstyle = args.oddstyle

end

local listText = args['list' .. listnum]

if listText:sub(1, 12) == '</div><table' then

oddEven = listText:find('<th[^>]*"navbox%-title"') and RESTART_MARKER or 'odd'

:cssText(args.liststyle)

:cssText(rowstyle)

:css('padding', (index == 1 and args.list1padding) or args.listpadding or '0em 0.25em')

if index == 1 and args.image then

row

:tag('td')

:addClass('navbox-image')

:addClass(args.imageclass)

:css('width', '1px')               -- Minimize width

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

:cssText(args.imagestyle)

:attr('rowspan', #listnums)

:tag('div')

:wikitext(processItem(args.image))

end

if border == 'subgroup' or args.tracking == 'no' then

return false

end

local function hasBackgroundColors()

for _, key in ipairs({'titlestyle', 'groupstyle', 'basestyle', 'abovestyle', 'belowstyle'}) do

if tostring(args[key]):find('background', 1, true) then

return true

end

end

local function hasBorders()

for _, key in ipairs({'groupstyle', 'basestyle', 'abovestyle', 'belowstyle'}) do

if tostring(args[key]):find('border', 1, true) then

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

local cats = {}

if needsHorizontalLists() then table.insert(cats, '가로 목록을 지원하지 않는 둘러보기 상자') end

if hasBackgroundColors() then table.insert(cats, '배경색을 이용하는 둘러보기 상자') end

if isIllegible() then table.insert(cats, '잠재적 문제가 있는 둘러보기 상자') 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 == '설명문서' or subpage == '연습장' or subpage == '시험장' then return end

for _, 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('collapsible')

:addClass(args.state or 'autocollapse')

end

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

if border == 'subgroup' or border == 'none' then

tbl

:addClass('navbox-subgroup')

:cssText(args.bodystyle)

:cssText(args.style)

else -- regular navbox - 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, i, listnum)

end

renderBelowRow(tbl)

return tbl

args = navboxArgs

for k, _ in pairs(args) do

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

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

end

table.sort(listnums)

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

if border == '자식' then

border = 'child'

end

if border == '중첩' then

border = 'subgroup'

 

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

local res = mw.html.create()

if border == 'none' then

local nav = res:tag('div')

:node(tbl)

elseif border == 'subgroup' 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>')

:node(tbl)

:wikitext('<div>')

else

local nav = res:tag('div')

:attr('role', 'navigation')

:addClass('navbox')

:cssText(args.bodystyle)

:cssText(args.style)

:css('padding', '3px')

:node(tbl)

nav:attr('aria-labelledby', mw.uri.anchorEncode(args.title))

nav:attr('aria-label', 'Navbox')

end

renderTrackingCategories(res)

return striped(tostring(res))

if not getArgs then

getArgs = require('Module:Arguments').getArgs

end

args = getArgs(frame, {wrappers = {'틀:둘러보기 상자', '틀:둘러보기 상자/중첩'}})

-- Read the arguments in the order they'll be output in, to make references number in the right order.

local _

_ = args.title or args['제목'];

_ = args.above or args['윗글'];

for i = 1, 30 do

_ = args["group" .. tostring(i)] or args["묶음" .. tostring(i)];

_ = args["list" .. tostring(i)] or args["내용" .. tostring(i)];

end

_ = args.below or args["아랫글"];

return p._navbox(args)