모듈:Navbox

--[[ Navbox Module

• Fully CSS styled (inline styles possible but not default)
• Supports unlimited rows

by User:Tjcool007 http://layton.wikia.com/wiki/Module:Navbox

Next changes are applied by User:Cafeinlove:

• Parameter names are translated into Korean.
• CSS class names reflect BEM rules
• Parameters `name`, `border` are removed.
• VDE linkset no more requires Template:Vdelinks. It is generated out of

`참조` argument, and the links color is customizable via `참조색` argument.

• Parameters related to alternative group/list have been removed.

Instead, parameters for individual cells such as`제목클래스n`, `제목모양n`, `내용클래스n`, `내용모양n` are introduced.

• List items are separated by a middot(plain text) instead of CSS pseudo.
• List parameter accepts both list items and non-list items.
• Class `navbox__title` is assigned to `th` element instead of `tr` element.

]]

local p = {}

-- Default config. Values will be replaced with -- proprecessed arguments passed to template local args = {} local navbox -- Actual navbox

local rownums, skiprows = {}, {} local alt, hasrows, hasData, isChild = false, false, false, false local activeSection, sections, cimage, cimageleft local colspan, rowspan

local showText, hideText = '보이기', '숨기기'

---

-- Title

---

--- Processes the VDE links in the title -- -- @param titlecell The table cell of the title local function processVde( titlecell ) if not args['참조'] then return endlocal vde = { '보기', '토론', '편집' }local vdeLinks = {}local link, ns, fullurllocal page = args['참조']local color = args['참조색'] or '#111'for k, v in pairs(vde) dons = '틀' if v ~= '편집' thenif v == '토론' then ns = '틀토론' endlink = '' .. v .. '' elsefullurl = mw.uri.fullUrl( ns .. ':' .. page, 'action=edit')link = '[' .. tostring(fullurl) .. ' ' .. v .. ']' endtable.insert(vdeLinks, link) endtitlecell:tag('span'):addClass('navbox__vde'):wikitext( table.concat(vdeLinks, ' ᛫ ') )

end

--- Processes the main title row local function processTitle() local titlerow = mw.html.create('tr')local titlecell = mw.html.create('th'):addClass('navbox__title'):attr('colspan',colspan):attr('scope','col')processVde( titlecell )titlecell:wikitext( args['큰제목'] or ' ' )if args['큰제목클래스'] then titlerow:addClass( args['큰제목클래스'] ) endif args['큰제목모양'] then titlecell:cssText( args['큰제목모양'] ) endtitlerow:node( titlecell )navbox:node( titlerow ) end

local function _addGutter( parent, incRowspan ) parent:tag('tr'):addClass('navbox__gutter'):tag('td'):attr('colspan',2)if incRowspan thenrowspan = rowspan + 1 end end

---

-- Above/Below

---

--- Processes the above and below rows -- -- @param rowtype Either 'above' or 'below' local function processAboveBelow( rowtype, prefix ) if not args[rowtype .. '글'] then return endlocal abrow = mw.html.create('tr'):addClass('navbox__'..rowtype)local abcell = mw.html.create('td'):attr('colspan',colspan):wikitext( args[rowtype .. '글'] )if args[rowtype .. '클래스'] then abrow:addClass( args[rowtype .. '클래스'] ) endif args[rowtype .. '모양'] then abcell:cssText( args[rowtype .. '모양'] ) endabrow:node( abcell )_addGutter( navbox )navbox:node( abrow ) end

---

-- Main Rows

---

--- Processes the images local function _processImage(row, imgtype) if not args[imgtype] then return endlocal iclass = imgtype == '그림' and 'navboximage--right' or 'navboximage--left'local imagecell = mw.html.create('td'):addClass('navbox__image'):addClass(iclass)local image = args[imgtype]if image:sub(1,1) ~= '[' thenlocal width = args[imgtype .. '너비'] or '100px'imagecell:css('width',width):wikitext('' .. width .. '|link=' .. (args[imgtype .. '링크'] or ) .. '') elseimagecell:css('width','0%'):wikitext(image) endif args[imgtype .. '클래스'] then imagecell:addClass( args[imgtype .. '클래스'] ) endif args[imgtype .. '모양'] then imagecell:cssText( args[imgtype .. '모양'] ) endrow:node( imagecell )if imgtype == '그림' thencimage = imagecell elsecimageleft = imagecell end end

--- Closes the currently active section (if any) local function _closeCurrentSection() if not activeSection then return endlocal row = mw.html.create('tr'):addClass('navbox__section-row')local cell = mw.html.create('td'):attr('colspan',2)if not hasrows then_processImage(row,'왼쪽그림') endcell:node(sections[activeSection])row:node(cell)local firstRow = falseif not hasrows thenfirstRow = truehasrows = true_processImage(row,'그림') end_addGutter(navbox,not firstRow)navbox:node(row) rowspan = rowspan + 1activeSection = falsehasData = false end

--- Handles alternating rows -- -- @return Alternatingly returns true or false. Always returns false if alternating rows -- are disabled with "alternaterows = no" local function _alternateRow() if args['색교차'] == 'no' then return false endif alt thenalt = falsereturn true elsealt = truereturn false end end

--- Process a single Header "row" -- -- @param num Number of the row to be processed local function processHeader(num) if not args['작은제목'..num] then return end_closeCurrentSection()local subtable = mw.html.create('table'):addClass('navbox__section')local headerrow = mw.html.create('tr')local header = mw.html.create('th'):addClass('navbox__header'):attr('colspan',2):attr('scope','col'):wikitext( args['작은제목'..num] )local collapseme = args['작은제목상태'..num] or falselocal state = falseif collapseme then-- Look at this oneif collapseme ~= 'plain' thenstate = collapseme == 'expanded' and 'expanded' or 'collapsed' end else-- Look at default local collapseall = args['작은제목기본상태'] or falseif collapseall thenstate = collapseall == 'expanded' and 'expanded' or 'collapsed' end endif state thensubtable:addClass('mw-collapsible'):attr('data-expandtext',showText):attr('data-collapsetext',hideText)if state == 'collapsed' thensubtable:addClass('mw-collapsed') end endif args['작은제목클래스'] then headerrow:addClass( args['작은제목클래스'] ) endif args['작은제목모양'] then header:cssText( args['작은제목모양'] ) endheaderrow:node(header) subtable:node(headerrow)sections[num] = subtableactiveSection = num end

--- Processes a single list row -- -- @param num Number of the row to be processed local function processList(num) if not args['내용'..num] then return endlocal row = mw.html.create('tr'):addClass('navbox__row')if not hasrows and not activeSection then_processImage(row, '왼쪽그림') endlocal listcell = mw.html.create('td'):addClass('navbox__list')

local data = args['내용'..num]local listTable = {}local list = local separator = ' ᛫ '

local function forwardJoined(str, tbl, sep)local joined = table.concat(tbl, sep)for i = 0, #tbl do tbl[i] = nil end -- empty tblreturn str .. joined end

local function appendWrapped(str, item, patt)return str .. string.format(patt, item) end

for line in data:gmatch('[^\r\n]+') do -- get line by lineif string.len(line) == 0 then break end

if line:sub(1, 2) == '* ' then -- line starting with '* 'table.insert(listTable, line:sub(3)) else -- other linesif #listTable ~= 0 thenlist = forwardJoined(list, listTable, separator)

endlist = appendWrapped(list, line, '

%s

')

endendlist = forwardJoined(list, listTable, separator)listcell:wikitext( list )local altRow = _alternateRow()if altRow then row:addClass( 'alt' ) end -- 홀수 행if args['모든내용클래스'] then listcell:addClass( args['모든내용클래스'] ) endif args['모든내용모양'] then listcell:cssText( args['모든내용모양'] ) endlocal listclass = args['내용클래스'..num] or falseif listclass then listcell:addClass( listclass ) endlocal liststyle = args['내용모양'..num] or falseif liststyle then listcell:cssText( liststyle ) endif args['제목'..num] thenlocal groupcell = mw.html.create('th'):addClass('navbox__group'):attr('scope','row'):wikitext( args['제목'..num] )if args['모든제목클래스'] then groupcell:addClass( args['모든제목클래스'] ) endif args['모든제목모양'] then groupcell:cssText( args['모든제목모양'] ) endlocal groupclass = args['제목클래스'..num] or falseif groupclass then groupcell:addClass( groupclass ) endlocal groupstyle = args['제목모양'..num] or falseif groupstyle then groupcell:cssText( groupstyle ) endrow:node( groupcell )elselistcell:attr('colspan',2):addClass('no-group')endrow:node( listcell )local firstRow = falseif not hasrows and not activeSection thenfirstRow = truehasrows = true_processImage(row, '그림')endif activeSection thenlocal parent = sections[activeSection]if not isChild or not firstRow then_addGutter(parent) endparent:node(row)hasData = trueelseif not isChild or not firstRow then_addGutter(navbox,not firstRow) endnavbox:node( row )rowspan = rowspan + 1end end

--- Processes all rows local function processRows() sections = {}for i=1,#rownums dolocal num = rownums[i]if not skiprows[num] thenprocessHeader(num)processList(num) end end_closeCurrentSection()if cimageleft thencimageleft:attr('rowspan',rowspan) endif cimage thencimage:attr('rowspan',rowspan) end end

---

-- ARGUMENTS PREPROCESSOR -- * Extracts arguments from frame and stores them in args table -- * At the same time, checks for valid row numbers

---

--- Preprocessor for the arguments. -- Will fill up the args table with the parameters from the frame grouped by their type. -- -- @param frame The frame passed to the Module. local function preProcessArgs(frame) local tmp = {}if frame == mw.getCurrentFrame() thentmp = frame:getParent().args elsetmp = frame end-- Storage tableslocal nums = {}-- Loop over all the argsfor k,v in pairs(tmp) do-- Skip empty args, which are uselessif v ~= thenlocal cat,num = tostring(k):match('^(.-)([1-9]%d*)$')

if cat == '제목' or cat == '내용' thennums[num] = true end args[k] = v -- Simple copyend endcolspan = args['그림'] and 3 or 2if args['왼쪽그림'] then colspan = colspan + 1 endrowspan = 0if args['색교차'] == '반전' then alt = true endfor k, v in pairs(nums) dotable.insert(rownums, tonumber(k)) endtable.sort(rownums)-- Calculate skip rowslocal cSection, cSkiplocal showall = args['상태']for i = 1, #rownums dolocal num = rownums[i]if args['작은제목'..num] thencSection = truecSkip = falselocal showme = args['작은제목상태'..num]if showme == hideText thencSkip = true elseif showme == '자동' or (showme ~= showText and showall ~= showText) thenif not args['내용'..num] thenlocal nextNum = rownums[i+1]cSkip = not nextNum or args['작은제목'..nextNum] -- If next has a header -> skip end end endif cSection and cSkip thenskiprows[num] = true end end end

---

-- MAIN FUNCTIONS

---

--- Processes the arguments to create the navbox. -- -- @return A string with HTML that is the navbox. local function _navbox() -- Create the root HTML elementlocal trim = function(s)return s and mw.ustring.gsub(s, "^%s*(.-)%s*$", "%1") or endisChild = (trim(args[1]) == '하위')if isChild thennavbox = mw.html.create('table'):addClass('navbox__subgroup') elsenavbox = mw.html.create('table'):addClass('navbox') if args['상태'] ~= 'plain' thennavbox:addClass('mw-collapsible'):attr('data-expandtext',showText):attr('data-collapsetext',hideText)if args['상태'] == 'collapsed' thennavbox:addClass('mw-collapsed') end end endif args['클래스'] then navbox:addClass(args['클래스']) endif args['모양'] then navbox:cssText(args['모양']) end-- Process...if not isChild thenprocessTitle()processAboveBelow('above', '윗')processRows()processAboveBelow('below', '아랫') return tostring(navbox) elseprocessRows() return tostring(navbox) end end

--- Main module entry point.

-- To be called with

or directly from another module.

-- -- @param frame The frame passed to the module via the #invoke. If called from another -- module directly, this should be a table with the parameter definition. function p.main(frame) -- Save the arguments in a local variable so other functions can use them.preProcessArgs(frame)return _navbox() end

return p