Module:Citation web

local p = {}

local function is_set (var)
	return not (var == nil or var == '');
end

local function italics (var)
	return "''" .. var .. "''"
end

function p.cite( frame )
	local pframe = frame:getParent()

	local Author = pframe.args.author
	if is_set (pframe.args.journalist) then
		Author = pframe.args.journalist
	end
	local Date = pframe.args['date']
	local Title = pframe.args.title
	local URL = pframe.args.url
	local Website = pframe.args.newspaper or pframe.args.website
	local ArchiveURL = pframe.args['archive-url']
	local ArchiveDate = pframe.args['archive-date']
	local Retrieved = pframe.args.retrieved
	local Quote = pframe.args.quote
	local Image = pframe.args.image
	local ImageCaption = pframe.args['image-caption']
	
	if is_set (Author) then
		if is_set (Date) then
			first_part = Author .. " (" .. Date .. ")."
			else
				first_part = Author .. "."
		end
		else
			first_part = ""
	end
	
	if is_set (Image) then
		local span = mw.html.create ( 'span' )
		span
		:wikitext('[[File:' .. Image .. '|center|300px|frameless]]')
		local br = mw.html.create ('br', selfClosing)

		if is_set(ImageCaption) then 
			local caption = mw.html.create ('div')
			caption
			:attr("style", "text-align:center;font-size:85%;")
			:wikitext(ImageCaption)
			first_part = tostring(span) .. tostring(caption) .. first_part
			else
				first_part = tostring(span) .. first_part
		end
				
	end
	
	if is_set (Title) then
		if is_set (URL) then
			Title = "[" .. URL .. " " .. "\"" .. Title .. "\"" .. "]"
			end
		if not is_set (Author) then
			if is_set (Date) then
			Title = Title .. " (" .. Date .. ")."
			else
				Title = Title .. "."
			end
	end
		second_part = Title
		else
			second_part = ""
	end
	
	if is_set(Website) then
			third_part = "''" .. Website .. "''."
			else
				third_part = ""
		end
		

	if is_set(ArchiveURL) then
		if is_set(ArchiveDate) then
			fourth_part = "[" .. ArchiveURL .. " " .. "Archived" .. "]" .. " " .. " from the original on" .. " " .. ArchiveDate .. "."
			else
				fourth_part = "[" .. ArchiveURL .. " " .. "Archived" .. "]" .. " from the original."
		end
			else
				fourth_part = ""
	end
			
	if is_set (Retrieved) then
		fifth_part = "Retrieved" .. " " .. Retrieved .. "."
		else
			fifth_part = ""
	end
		
	if is_set (Quote) then
		Quote = string.gsub(Quote,"\n","<br>")
		Quote = "“" .. Quote .. "”"
		local div = mw.html.create ('div')
		div
		:attr("style", "width:80%; margin-left:10%;")
		:wikitext(Quote)
		local br = mw.html.create ('br', selfClosing)
		first_part = italics(tostring(div)) .. tostring(br) .. first_part
	end


	if is_set (first_part) then
		first_part = first_part .. " "
	end
	
	if is_set (second_part) then
		second_part = second_part .. " "
	end
	
	if is_set (third_part) then
		third_part = third_part .. " "
	end
	
	if is_set (fourth_part) then
		fourth_part = fourth_part .. " "
	end
	
	Render = first_part .. second_part .. third_part .. fourth_part .. fifth_part
	
	return Render
end
return p