Module:Infobox

Documentation for this module may be created at Module:Infobox/doc

local p = {}
local episodesManga = mw.loadData( 'Module:Episodes/mangaData' )

function infoboxCreateDataItem(label, data)
    if data then
    	return '<data><label>' .. label .. '</label><default>' .. data .. '</default></data>'
    else
    	return '' -- No data (i.e. data is nil), no infobox row created
    end
end

function p.infoboxEpisodeManga(frame)
    local args = frame:getParent().args
    local argEp = args['episode']
    local epData = episodesManga[argEp]
    local months = {[1] = 'January', [2] = 'February', [3] = 'March', [4] = 'April', [5] = 'May', [6] = 'June', [7] = 'July', [8] = 'August', [9] = 'September', [10] = 'October', [11] = 'November', [12] = 'December'}
    
    --[[
        Handle installation info (e.g. vol, ep, arc, chapter)
    ]]--
    local epVol, epArc = epData['volume'], args['arc']
    local epPreludial = argEp:match('0%-(%d+)')
    
    if tonumber(epVol) then
        epVol = '[[Releases (Manga)#vol' .. epVol .. '|volume ' .. epVol ..']]'
    elseif epVol then
        epVol = 'volume ' .. epVol
    else
    	epVol = 'volume ' .. 'N/A' 
    end
    
    if epArc then
        epArc = '[[' .. epArc .. ']][[Category:' .. epArc .. ' Episodes]]'
    end
    
    local epInstall =
    	'<i>[[Berserk (Manga)|Berserk]]</i>'
    	.. ( epVol and ', ' .. epVol or '' )
    	.. ( epPreludial and ', preludial episode ' .. argEp:match('0%-(%d+)') or argEp and ', episode ' .. argEp or '' )
    	.. ( args['pages'] and ', ' .. args['pages'] .. ' pages' or '')
    
    --[[
        Handle publication date and magazine issue info
    ]]--
    local epPubFull
    
    if args['pub date'] and args['magazine'] then
        local dateY, dateM, dateD = args['pub date']:match('([0-9]*)-([0-9]*)-([0-9]*)')
        local epPubDate = tonumber(dateD) .. ' ' .. months[ tonumber(dateM) ] .. ' '.. dateY
        
        local epMagName, epMagIssue = args['magazine']:match('([AHY]*) #([^ ]*)')
        epMagName = ({['AH'] = '<i>Animal House</i>', ['YA'] = '<i>Young Animal</i>'})[epMagName]
        local epMagInfo = epMagName .. ' No. ' .. epMagIssue
        
        epPubFull = epMagInfo .. '<br>' .. epPubDate
    else
        epPubFull = args['full pub']
    end
    
    --[[
        Handle English and Japanese episode names
    ]]--
    local epNameEn = epData['ename']
    local epNameJa = epData['jname']
    
    if epNameEn ~= '' then
        epNameEn = '&ldquo;' .. epNameEn .. '&rdquo;'
        epNameEn = epNameEn .. '{{DISPLAYTITLE:' .. epNameEn .. '}}'
    else
    	epNameEn = '{{PAGENAME}}'
    end
    
    if epNameJa ~= '' then
    	epNameJa = '<navigation><center><span style="font-weight: bold; font-size: 1.4em;">' .. epNameJa .. '</span></center></navigation>'
    end
    
    --[[
        Search for prev and next episodes
    ]]--
	
    -- Find prev and next episode keys
    local epKeyPrev, epKeyNext
    local epKeys = {
        ['prevUnnumbered'] = epPreludial and string.format('0-%d', tonumber(argEp:match('0%-(%d+)')) - 1) or '',
        ['prevNumbered'] = tostring( (tonumber(argEp) or 1) - 1 ),
        ['nextUnnumbered'] = epPreludial and string.format('0-%d', tonumber(argEp:match('0%-(%d+)')) + 1) or '',
        ['nextNumbered'] = tostring( (tonumber(argEp) or -1) + 1 ),
    }
    
    -- Test for key episode's existence in episodesManga (Module:Episodes/mangaData)
    if episodesManga[ epKeys['prevNumbered'] ] then
    	epKeyPrev = epKeys['prevNumbered']
    elseif episodesManga[ epKeys['prevUnnumbered'] ] then
    	epKeyPrev = epKeys['prevUnnumbered']
    end
    
    if episodesManga[ epKeys['nextUnnumbered'] ] then
    	epKeyNext = epKeys['nextUnnumbered']
    elseif episodesManga[ epKeys['nextNumbered'] ] then
    	epKeyNext = epKeys['nextNumbered']
    end
    
    -- Set prev and next episode variables
    local epPrev = episodesManga[epKeyPrev]
    local epNext = episodesManga[epKeyNext]
    
    if args['prev'] then
    	epPrev = args['prev']
    elseif epPrev then
    	epPrev = '"[[Episode ' .. epKeyPrev .. " (Manga)|" .. epPrev['ename'] .. ']]"'
    end
    
    if args['next'] then
    	epNext = args['next']
    elseif epNext then
    	epNext = '"[[Episode ' .. epKeyNext .. " (Manga)|" .. epNext['ename'] .. ']]"'
    end
    
    --[[
    	Lead paragraph
    ]]--
    local epLeadPara
    
    if epPreludial then
    	epLeadPara = '<b>"' .. epData['ename'] .. '"</b>' .. ' is preludial episode ' .. argEp:match('0%-(%d+)') .. ' of the [[Berserk (Manga)|<i>Berserk</i>]] manga series.'
    else
    	epLeadPara = '<b>"' .. epData['ename'] .. '"</b>' .. ' is episode ' .. argEp .. ' of the [[Berserk (Manga)|<i>Berserk</i>]] manga series.'
    end
    
    --[[
        Generate infobox
    ]]--
    local infobox = {
        '<infobox>',
        '<title><default>' .. epNameEn .. '</default></title>',
        '<image><default>' .. ( args['image'] or '' ) .. '</default></image>',
        epNameJa,
        infoboxCreateDataItem( 'Installment', epInstall ),
        infoboxCreateDataItem( 'Story arc', epArc ),
        infoboxCreateDataItem( 'Chapter', ( args['chapter'] ) ),
        infoboxCreateDataItem( 'Publication', epPubFull ),
        infoboxCreateDataItem( 'Previous', epPrev ),
        infoboxCreateDataItem( 'Next', epNext ),
        '</infobox>',
        epLeadPara,
    }

    --[[
        SubstInfobox stuff
    ]]--
    --[[
    local epTlPub =
    	'|magazine=' .. ( epData['magazine'] or '' )
    	.. '\n|pub date=' .. ( epData['pub date'] or '' )
    	.. '\n|full pub=' .. ( epData['full pub'] or '')
    
    if epData['full pub'] == nil then
        epTlPub = '|magazine=' .. ( epData['magazine'] or '' ) .. '\n|pub date=' .. ( epData['pub date'] or '' )
    else
        epTlPub = '|magazine=\n|pub date=\n|full pub=' .. epData['full pub']
    end
    
    local epTlPrev, epTlNext = '', ''
    if args['prev'] == nil then
        epTlPrev = ''
    else
        epTlPrev = '|prev=' .. args['prev']
    end
    if args['next'] == nil then
        epTlNext = ''
    else
        epTlNext = '|next=' .. args['next']
    end
    
    local substInfobox = {
        '{{Infobox/Episode/Manga',
        '|image=' .. ( args['image'] or '' ),
        '|ename=' .. epNameEn,
        '|jname=' .. epNameJa,
        '|rname=' .. epRomName,
        '|volume=' .. epData['volume']
        '|episode=' .. argEp,
        '|pages=' .. ( args['pages'] or '' ),
        '|arc=' .. ( args['arc'] or '' ),
        '|chapter=' .. ( args['chapter'] or '' ),
        epTlPub .. epTlPrev .. epTlNext,
        '}}'
    }
    ]]--
    
    return frame:preprocess( table.concat(infobox, '\n') )
end

return p