Module:Design

local p = {}
local h = require("Module:HF")
local getArgs = require('Dev:Arguments').getArgs
 
function p.lua_getMainBorderColor()
    return '#B5B7CF'
end
 
function p.lua_getMainBackgroundColor()
    return '#EFF0FF'
end
 
function p.lua_green(text)
    local output = ''
    if not h.isempty(text)
        then 
            output = mw.html.create( 'span' )
                :css( 'color', 'darkgreen' )
                :css( 'font-weight', 'bold' )
                :css( 'font-style', 'italic' )
                :css( 'font-size', 'smaller' )
                :wikitext('('..text..')')
                :done()
            output = tostring(output)
    end
    return output
end
 
 
function p.lua_span(text)
    local italic = mw.html.create( 'span' ):css( 'font-style', 'italic' )
    local bold = mw.html.create( 'span' ):css( 'font-weight', 'bold' )
    local both = mw.html.create( 'span' ):css( 'font-weight', 'bold' ):css( 'font-style', 'italic' )
    local output = { italic = '', bold = '', both = '' }
 
    if not h.isempty(text)
        then
            output = {
                italic  = tostring(italic:wikitext(text):done()),
                bold    = tostring(bold:wikitext(text):done()),
                both    = tostring(both:wikitext(text):done()),
            }
    end
 
    return output
end
 
 
-- creates message box
function p.messagebox(frame)
    local args = getArgs (frame)
    local width = args['width'] or '95%'
    local textalign = args['text-align'] or 'center'
    local fontsize = args['font-size'] or '100%'
    local border = args['border'] or p.lua_getMainBorderColor()
    local background = args['background'] or p.lua_getMainBackgroundColor()
    local margin = args['margin'] or '1em'
    local clear = args['clear'] or 'none'
    local padding = args['padding'] or '5px'
    local extrastyle = args['extrastyle'] or ''
    local message = args[1] or args['Message'] or ''
 
    local tag = mw.html.create( 'div' )
                :attr( 'id', 'messageBox' )
                :attr( 'align', 'center' )
                :css( 'width', width )
                :css( 'text-align', textalign )
                :css( 'font-size', fontsize )
                :css( 'border', '1px solid '..border )
                :css( 'background', background )
                :css( 'border-radius', '10px' )
                :css( 'margin', margin )
                :css( 'clear', clear )
                :css( 'padding', padding )
                :wikitext( message )
                :done()
    if not h.isempty(extrastyle)
        then tag:cssText (extrastyle):done()
    end
 
    return tostring(tag)
end
 
 
-- creates a header
function p.lua_header(text, level, align)
	local output = ''
	level = level or '2'
	align = align or 'left'
 
	if not h.isempty(text)
		then output = '\n'..tostring( mw.html.create( 'h'..level ):css('text-align', align):wikitext( text ) )
	end
 
	return output
end
 
 
function p.show_hide(frame)
    local args = getArgs (frame)
 
    local title = args['title'] or args['header'] or ' '
    local body = args['body'] or args['text'] or ''
    local collapsed = args['collapsed']
    local clear = args['clear'] or 'both'
    local border = args['border'] or p.lua_getMainBorderColor()
    local extrastyle = args['extrastyle'] or ''
    local extrastyle2 = args['extrastyle2'] or ''
    local extrastyle3 = args['extrastyle3'] or ''
    local width = args['width'] or '100%'
    local background = args['background'] or p.lua_getMainBackgroundColor()
    local titlestyle = args['titlestyle'] or ''
 
    if h.isempty(collapsed) or collapsed == 'true' or collapsed == true
        then collapsed = ' mw-collapsed'
        else collapsed = ''
    end
 
    local tag_td = mw.html.create( 'td' )
        :css( 'margin', '0.5em' )
        :css( 'font-size', '12px' )
        :wikitext(body)
        :done()
    if not h.isempty(extrastyle3)
        then tag_td:cssText (extrastyle3):done()
    end
    tag_td = '<tr>'..tostring(tag_td)..'</tr>'
 
    local tag_div = mw.html.create( 'div' )
        :css( 'font-weight', 'bold' )
        :wikitext(title)
        :done()
    if not h.isempty(titlestyle)
        then tag_div:cssText (titlestyle):done()
    end
    tag_div = tostring(tag_div)
 
    local tag_th = mw.html.create( 'th' )
        :attr('colspan', '1')
        :css( 'background-color', background )
        :css( 'font-size', '12px' )
        :wikitext(tag_div)
        :done()
    if not h.isempty(extrastyle2)
        then tag_th:cssText (extrastyle2):done()
    end
    tag_th = '<tr>'..tostring(tag_th)..'</tr>'
 
    local tag_table = mw.html.create( 'table' )
        :addClass('mw-collapsible'..collapsed)
        :css( 'clear', clear )
        :css( 'border', '1px solid '..border )
        :css( 'font-size', '12px' )
        :css( 'width', width )
        :wikitext(tag_th..tag_td)
        :done()
    if not h.isempty(extrastyle)
        then tag_table:cssText (extrastyle):done()
    end
 
 
    return tostring(tag_table) 
end
 
 
function p.lua_story_contributors(contributors, title, collapsed, reprint_message, part_of_story)
    reprint_message = reprint_message or ''
    part_of_story = part_of_story or ''
    return p.show_hide({
            collapsed   = collapsed,
            extrastyle  = 'width:100%; margin:0px; border:none; border-top:2px solid '..p.lua_getMainBorderColor()..'; text-align:left; font-size: 12px;',
            title       = title,
            body        = part_of_story..reprint_message..contributors,
        })
end
 
 
function p.infobox_line(frame)
    local args = getArgs (frame)
    local left = args['left'] or ''
    local right = args['right'] or ''
    local text = args['text'] or ''
    local width_l = args['width_l'] or '40%' --'100px'
    local width_r = args['width_r'] or '60%' --'190px'
 
    local tag_l = mw.html.create( 'div' )
        :css( 'width', width_l )
        :css( 'text-align', 'left' )
        :css( 'float', 'left' )
        :wikitext(left)
        :done()        
    local tag_r = mw.html.create( 'div' )
        :css( 'width', width_r )
        :css( 'text-align', 'right' )
        :css( 'float', 'left' )
        :wikitext(right)
        :done() 
 
    tag_l = tostring(tag_l)
    tag_r = tostring(tag_r)
 
    local tag = mw.html.create( 'div' )
        :css( 'border-top', '1px solid '..p.lua_getMainBorderColor() )
        :css( 'text-align', 'center' )
        :css( 'clear', 'left' )
        :css( 'font-size', '12px' )
        :wikitext(text..tag_l..tag_r)
        :done()
 
    return tostring(tag)
end
 
 
function p.infobox_line_horizontal(frame)
    local args = getArgs (frame)
    local centralheader = args['central_header'] or ''
    local leftheader = args['left_header'] or ''
    local lefttext = args['left_text'] or ''
    local rightheader = args['right_header'] or ''
    local righttext = args['right_text'] or ''
    local totalwidth = args['total_width']
    local fontsize_text = args['font_size_text'] or '10px'
    local tag_centralheader
    local tag_leftheader
    local tag_rightheader
    local tag_lefttext
    local tag_righttext
    local output = ''
 
    if not h.isempty(righttext)
        then 
            if not h.isempty(totalwidth)
                then totalwidth = tostring(tonumber(totalwidth)/2)..'px' 
                else totalwidth = '50%'
            end
        else totalwidth = '100%'
    end
 
    if not h.isempty(centralheader)
        then
            tag_centralheader = mw.html.create( 'div' )
                :css( 'width', '100%' )
                :css( 'float', 'left' )
                :css( 'font-size', '12px' )
                :wikitext(centralheader)
                :done()
            output = output..tostring(tag_centralheader)
        else
            tag_leftheader = mw.html.create( 'div' )
                :css( 'width', totalwidth )
                :css( 'float', 'left' )
                :css( 'font-size', '12px' )
                :wikitext(leftheader)
                :done()
            output = output..tostring(tag_leftheader)
    end
 
    if not h.isempty(righttext) and h.isempty(centralheader)
        then
            tag_rightheader = mw.html.create( 'div' )
                    :css( 'width', totalwidth )
                    :css( 'float', 'left' )
                    :css( 'clear', 'right' )
                    :css( 'font-size', '12px' )
                    :wikitext(rightheader)
                    :done()
            output = output..tostring(tag_rightheader)
    end
 
    tag_lefttext = mw.html.create( 'div' )
        :css( 'width', totalwidth )
        :css( 'float', 'left' )
        :css( 'clear', 'left' )
        :css( 'font-size', fontsize_text )
        :wikitext(lefttext)
        :done()
    output = output..tostring(tag_lefttext)
 
 
    if not h.isempty(righttext)
        then
            tag_righttext = mw.html.create( 'div' )
                    :css( 'width', totalwidth )
                    :css( 'float', 'left' )
                    :css( 'font-size', fontsize_text )
                    :css( 'text-align', 'center' )
                    :wikitext(righttext)
                    :done()
            output = output..tostring(tag_righttext)
    end
 
    return tostring( mw.html.create( 'div' )
        :css( 'border-top', '1px solid '..p.lua_getMainBorderColor() )
        :css( 'text-align', 'center' )
        --:css( 'clear', 'left' )
        :wikitext(output)
        :done() )
end  
 
 
--transform the list of contributors into infobox line with or without categorization
function p.lua_infobox_line_staff(list, occupation, released, canceled, reprint)
    local SC = require("Module:StaffCorrection")
    local staff_info = mw.loadData("Module:Comics/Staff")
    local i
    local name = ''
    local s = ':Category:Marvel Staff/'
    local field_name = ''
    local names = {}
    local categories = {}
    local output = ''
 
    list = list or {}
    occupation = occupation or 1
    released = released or true
    canceled = canceled or false
 
    if not h.isempty(list)
        then 
            field_name = h.Link(s..staff_info[occupation].link, staff_info[occupation].text)
 
            for i = 1, #list do
                table.insert(names, list[i].link)
                table.insert(categories, list[i].category)
            end
 
            if not h.isempty(names)
                then
                    output = mw.text.listToText(names, '<br />', '<br />')
                    output = p.infobox_line( { left = field_name, right = output }) 
            end
        elseif not reprint and not canceled and released and staff_info[occupation].needed.category 
            then table.insert(categories, staff_info[occupation].category..' Credit Needed')
    end
 
    return output, categories
end
 
function p.lua_create_infobox(text, width)
    width = width or '300px'
 
    return tostring( mw.html.create( 'div' )
        :attr('class', 'infobox')
        :css( 'width', width )
        :css( 'float', 'right' )
        :css( 'clear', 'none' )
        :css( 'margin', '0px 0px 1em 1em' )
        :css( 'border', '1px solid '..p.lua_getMainBorderColor() )
        :css( 'background', p.lua_getMainBackgroundColor() )
        :css( 'border-radius', '10px' )
        :css( 'padding', '10px' )
        :wikitext(text)
        :done() )
end
 
 
-- used to add sections like "Notes", "Trivia", etc.
function p.lua_add_section(section, header)
    local output = ''
 
    if not h.isempty(section)
        then output = p.lua_header(header, 2)..'\n'..section
    end
 
    return output
end
 
return p