Module:mr

local export = {}

local lang = require("Module:languages").getByCode("mr")
local m_translit = require("Module:mr-translit")
local gsub = mw.ustring.gsub
local sub = mw.ustring.sub

--From ]
function export.new(frame)
	local title = mw.title.getCurrentTitle().text
	local args = frame:getParent().args
	local pos = args or ""
	local def = args or "{{rfdef|lang=mr}}"
	local pos2 = args or (args and "" or false)
	local def2 = args or "{{rfdef|lang=mr}}"
	local pos3 = args or (args and "" or false)
	local def3 = args or "{{rfdef|lang=mr}}"
	local etym = args or false
	local head = args or false
	local pron = args or false
	local decl = args or false
	local conj = args or false
	local g = args or false
    local g2 = args or false
    local g3 = args or false
    local c = args or args or false
    local ref = args or false

	local result = ""
	
	local function genTitle(text)
		local pos_title = {
			 = "Noun",  = "Noun",  = "Proper noun",  = "Proper noun",  = "Pronoun",
			 = "Verb",  = "Adjective",  = "Adjective",  = "Adverb",
			 = "Preposition",  = "Postposition",  = "Postposition",  = "Conjunction",
			 = "Particle",  = "Suffix",  = "Prefix",
			 = "Proverb",  = "Idiom",  = "Phrase",  = "Interjection",  = "Interjection",
			 = "Numeral",  = "Abbreviation",  = "Conjunction",
             = "Adjective",  = "Verb",
		};
		return pos_title or mw.ustring.upper(sub(text, 1, 1)) .. sub(text, 2, -1)
	end
	
	local function genHead(text)
		local pos_head = {
			 = "noun",  = "noun",  = "proper noun",  = "proper noun",  = "verb",  = "adj",  = "adv",
			 = "post",  = "prep",  = "con",  = "pron",
			 = "interj",
		};
		return pos_head or text
	end
	
	local function other(class, title, args)
		local code = ""
		if args then
			code = code .. "\n\n===" .. title .. "===\n* {{l|mr|" .. args .. "}}"
			
			if args then
				code = code .. "\n* {{l|mr|" .. args .. "}}"
				
				if args then
					code = code .. "\n* {{l|mr|" .. args .. "}}"
					
					if args then
						code = code .. "\n* {{l|mr|" .. args .. "}}"
					end
				end
			end
		end
		return code
	end
	
	-- header
	result = result .. "==Marathi=="
	
	-- Wikipedia
	if args then result = result .. "\n{{wikipedia|lang=mr}}" end
	
	-- Alternative forms
	result = result .. other("alt", "Alternative forms", args)
	
	-- Etymology
	if etym then etym = mw.ustring.gsub(etym, "^%<", "From") end
	if etym then result = result .. "\n\n===Etymology===\n" .. etym end
	
	-- Pronunciation
	if pron then result = result .. "\n\n===Pronunciation===\n* {{IPA|" .. ((pron ~= title and pron ~= "") and ("|" .. gsub(pron, ",", "|")) or "") .. "|lang=mr}}" end
	result = result .. "\n\n===" .. genTitle(pos) .. "===\n{{mr-" .. genHead(pos) .. (head and ("|head=" .. head) or "") .. (g and ("|g=" .. g) or "") .. (t and ("|" .. t) or "") .. "}}\n\n# " .. def
    
    -- Morphology
	if conj then
		result = result .. "\n\n====Conjugation====\n" .. conj
	end
	if decl then
		result = result .. "\n\n====Declension====\n" .. decl
	end
	
	-- Other
	result = result .. other("syn", "=Synonyms=", args)
	result = result .. other("ant", "=Antonyms=", args)
	result = result .. other("der", "=Derived terms=", args)
	result = result .. other("also", "=See also=", args)
	
	-- Actual Entry
	if pos2 then
		result = result .. "\n\n===" .. genTitle(pos2) .. "===\n{{mr-" .. genHead(pos2) .. (head and ("|head=" .. head) or "") .. (g2 and ("|g=" .. g2) or "") .. "}}\n\n# " .. def2
	end
	
	if pos3 then
		result = result .. "\n\n===" .. genTitle(pos3) .. "===\n{{mr-" .. genHead(pos3) .. (head and ("|head=" .. head) or "")  .. (g3 and ("|g=" .. g3) or "") .. "}}\n\n# " .. def3
	end
    
    -- categories and refs (to be done)
    
    if c then
    	result = result .. "\n\n{{C|mr" .. ((c ~= title and c ~= "") and ("|" .. gsub(c, ",", "|")) or "") .. "}}"
    end
	
	return result
end

return export