Module:Babel

来自维基导游
跳到导航 跳到搜索
文档图示 模块文档[创建]
local babel = {}

function argtable( args )
	local p = {}
	for k, v in pairs( args ) do
		p[k] = v
	end
	return p
end

function babel.babelbox( frame )
	local arg = string.lower(frame.args[1] or "zh")
	local lang = string.match(arg, "^([a-z%-]-)%-[0-4n]$") or arg
	local level = string.match(arg, "^[a-z%-]-%-([0-4n])$") or "n"
	langobj = mw.getLanguage( lang )
	if not langobj then
		return frame:expandTemplate{ title = arg }
	end
	level = string.upper(level)
	local code = langobj:getCode()
	local langname = mw.language.fetchLanguageName( code )
	local dir = {[true]="rtl", [false]="ltr"}
	dir = dir[langobj:isRTL()]
	local cat
	if level == "N" then
		cat = lang.."_母语使用者"
	else
		cat = lang.."-"..level.."_使用者"
	end
	local content = frame:preprocess( mw.message.new( "babel-"..level ):inLanguage( lang ):params{':Category:'..cat, ':Category:'..lang..'_使用者', langname}:plain() )
	local text = '<div class="mw-babel-box mw-babel-box-'..level..[[" dir="ltr">
{|style=" padding: 0;  border-spacing: 0;"
! dir="ltr" | ]]..lang..'<span class="mw-babel-box-level-'..level..'">-'..level..[[</span>
| dir="]]..dir..'" lang="'..lang..'" | '..content..'\n|}\n</div>'
	return text
end

function babel.babel( frame )
	local args = argtable((frame:getParent() or frame).args)
	return frame:callParserFunction("#babel", args)
end

return babel