Module:Wikipedia

local export = {}


local function process_links(linkdata, prefix, name, wmlang, sc)
	prefix = prefix .. ":" .. (wmlang:getCode() == "sco" and "" or wmlang:getCode() .. ":")
	
	local links = {}
	local iplinks = {}
	
	local m_links = require("Module:Links2")
	local lang = wmlang:getWiktionaryLanguage()
	local ipalt = name .. " " .. (wmlang:getCode() == "sco" and "" or "<sup>" .. wmlang:getCode() .. "</sup>")
	
	for i, link in ipairs(linkdata) do
		link.lang = lang
		link.sc = sc
		link.term = prefix .. link.term
		link.tr = "-"
		table.insert(iplinks, "<span class=\"interProject\">[[" .. link.term .. "|" .. ipalt .. "]]</span>")
		table.insert(links, m_links.full_link(link, "bold"))
	end
	
	return links, iplinks
end


function export.wikipedia_box(frame)
	local params = {
		[1] = {},
		[2] = {},
		
		["cat"] = {},
		["category"] = {alias_of = "cat"},
		["dab"] = {},
		["disambiguation"] = {alias_of = "dab"},
		["i"] = {type = "boolean"},
		["lang"] = {default = "sco"},
		["mul"] = {},
		["mullabel"] = {},
		["mulcat"] = {},
		["mulcatlabel"] = {},
		["portal"] = {},
		["sc"] = {},
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	local wmlang = require("Module:wikimedia languages").getByCodeWithFallback(args["lang"]) or error("The Wikimedia language code \"" .. args["lang"] .. "\" is not valid.")
	local sc = args["sc"] and (require("Module:scripts").getByCode(args["sc"]) or error("The script code \"" .. sc .. "\" is not valid.")) or nil
	
	local linkdata = {}
	
	if args["cat"] then
		table.insert(linkdata, {term = "Category:" .. args["cat"], alt = args[1] or args["cat"]})
	elseif args["portal"] then
		table.insert(linkdata, {term = "Portal:" .. args["portal"], alt = args[1] or args["portal"]})
	else
		table.insert(linkdata, {term = args["dab"] or args[1] or mw.title.getCurrentTitle().text, alt = args[2] or args[1] or args["dab"] or mw.title.getCurrentTitle().text})
	end
	
	if args["mul"] or args["mulcat"] then
		if args["mulcat"] then
			table.insert(linkdata, {term = "Category:" .. args["mulcat"], alt = args["mulcatlabel"] or args["mulcat"]})
		else
			table.insert(linkdata, {term = args["mul"], alt = args["mullabel"] or args["mul"]})
		end
	end
	
	local links, iplinks = process_links(linkdata, "w", "Wikipedia", wmlang, sc)
	
	if frame.args["slim"] then
		return
			"<div class=\"sister-wikipedia sister-project noprint floatright\" style=\"border: solid #aaa 1px; font-size: 90%; background: #f9f9f9; width: 250px; padding: 2px; text-align: left;\">" ..
			"<div style=\"float: left;\">[[File:Wikipedia-logo.png|14px|none| ]]</div>" ..
			"<div style=\"margin-left: 15px;\">" ..
			" &nbsp;" ..
			table.concat(links, " and ") ..
			" on " ..
			(wmlang:getCode() == "sco" and "" or wmlang:getCanonicalName() .. "&nbsp;") ..
			"Wikipedia" ..
			"</div>" ..
			"</div>"
	else
		local linktype
		
		if args["cat"] then
			linktype = "a category"
		elseif args["mul"] or args["dab"] then
			linktype = "articles"
		elseif args["mulcat"] then
			linktype = "categories"
		elseif args["portal"] then
			linktype = "a portal"
		else
			linktype = "an article"
		end
		
		return
			"<div class=\"sister-wikipedia sister-project noprint floatright\" style=\"border: 1px solid #aaa; font-size: 90%; background: #f9f9f9; width: 250px; padding: 4px; text-align: left;\">" ..
			"<div style=\"float: left;\">[[File:Wikipedia-logo.png|44px|none|link=|alt=]]</div>" ..
			"<div style=\"margin-left: 60px;\">" ..
			(wmlang:getCode() == "sco" and "" or wmlang:getCanonicalName() .. " ") .. "[[Wikipaedia|Wikipaedia]] haes " .. linktype .. " on:" ..
			"<div style=\"margin-left: 10px;\">" .. table.concat(links, " and ") .. "</div>" ..
			"</div>" ..
			table.concat(iplinks) .. ((args[1] == mw.title.getCurrentTitle().text and not (args[2] or args["dab"])) and "[[Category:Wt/sco/wikipedia wi redundant first parameter]]" or "") ..
			"</div>"
	end
end


function export.projectlink(frame)
	local params = {
		[1] = {},
		[2] = {},
		
		["dab"] = {},
		["i"] = {type = "boolean"},
		["lang"] = {default = "sco"},
		["nodot"] = {},
		["sc"] = {},
	}
	
	local args = require("Module:parameters").process(frame:getParent().args, params)
	
	local wmlang = require("Module:wikimedia languages").getByCodeWithFallback(args["lang"]) or error("The Wikimedia language code \"" .. args["lang"] .. "\" is not valid.")
	local sc = args["sc"] and (require("Module:scripts").getByCode(args["sc"]) or error("The script code \"" .. sc .. "\" is not valid.")) or nil
	
	local linkdata = {term = args[1] or args["dab"] or mw.title.getCurrentTitle().text, alt = args[2] or args[1] or args["dab"] or mw.title.getCurrentTitle().text}
	
	if args["i"] then
		linkdata.alt = "''" .. linkdata.alt .. "''"
	end
	
	local links, iplinks = process_links({linkdata}, frame.args["prefix"], frame.args["name"], wmlang, sc)
	
	return
		"[[Image:" .. frame.args["image"] .. "|15px|link=" .. linkdata.term .. "]] " ..
		table.concat(links, " and ") ..
		" on " ..
		(wmlang:getCode() == "sco" and "" or "the " .. wmlang:getCanonicalName() .. " ") ..
		" " .. frame.args["name"] .. (args["nodot"] and "" or ".") ..
		table.concat(iplinks)
end

return export