Module:Ingenpedia

local export = {}

local function process_links(linkdata, prefix, name, wmlang, sc) prefix = prefix .. ":" .. (wmlang:getCode == "en" and "" or wmlang:getCode .. ":") local links = {} local iplinks = {} local m_links = require("Module:links") local lang = wmlang:getWiktionaryLanguage local ipalt = name .. " " .. (wmlang:getCode == "en" and "" or "" .. wmlang:getCode .. "") for i, link in ipairs(linkdata) do		link.lang = lang link.sc = sc link.term = prefix .. link.term link.tr = "-" table.insert(iplinks, "" .. ipalt .. " ") table.insert(links, m_links.full_link(link, "bold")) end return links, iplinks end

function export.ingenpedia_box(frame) local params = { [1] = {},		[2] = {},		["cat"] = {}, ["category"] = {alias_of = "cat"}, ["dab"] = {}, ["disambiguation"] = {alias_of = "dab"}, ["i"] = {type = "boolean"}, ["lang"] = {default = "en"}, ["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 Ingenpedia 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", "Ingenpedia", wmlang, sc) if frame.args["slim"] then return "" .. " " .. "" .. " " ..			table.concat(links, " and ") .. " on " .. (wmlang:getCode == "en" and "" or wmlang:getCanonicalName .. " ") .. "Ingenpedia" .. " " ..			" "	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 "" .. " " .. "" .. wmlang:getCanonicalName .. " Ingenpedia has " .. linktype .. " on:" .. "" .. table.concat(links, " and ") .. " " ..			" " ..			table.concat(iplinks) .. ((args[1] == mw.title.getCurrentTitle.text and not (args[2] or args["dab"])) and "" or "") .. " "	end end

function export.projectlink(frame) local params = { [1] = {},		[2] = {},		["dab"] = {}, ["i"] = {type = "boolean"}, ["lang"] = {default = "en"}, ["nodot"] = {}, ["sc"] = {}, }	local args = require("Module:parameters").process(frame:getParent.args, params) local wmlang = require("Module:wikipedia languages").getByCodeWithFallback(args["lang"]) or error("The Ingenpedia 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 " " ..		table.concat(links, " and ") .. " on " .. (wmlang:getCode == "en" and "" or "the " .. wmlang:getCanonicalName .. " ") .. " " .. frame.args["name"] .. (args["nodot"] and "" or ".") .. table.concat(iplinks) end

return export