Module:Sandbox/佳沛降解剂/Infobox

模块文档  

local p = {}

local others = require "module:others"
local newindex = others.newindex
local index = others.index
local addNewline = others.addNewLine

function p.process(args)
	local data = {}
	
	local function process(k,v)
		if  k == "image"
		then -- 首先检查特定参数
			data[k] = v
			return
		end --检查成功即跳出函数
		
		if type(k) ~= 'string' then return end
		-- 以下代码只检查字符串键
		for _, prefix in ipairs
		{'title','label','data','body','header','caption',"content"}
		do --对于以上前缀，检查其后缀（可以为空），默认为content
			if k:find "%d" then break end -- include no number
			local suffix = k:match("^" .. prefix .. "(%l*)$")
			if suffix == "" then suffix = "content" end
			if suffix then
				newindex(data,v,prefix,suffix)
				return
			end
			
		end
		
		for _, prefix in ipairs {'header','data','label',"row"} do
			if not k:find("%d") then break end 
			--检查带数字键，没有数字直接退出循环
			local num, suffix = k:match('^' .. prefix .. '(%d+%.?%d*)(%l*)')
			if suffix == ""then
				suffix = "content"
			end
			if suffix then
				num = tonumber(num)
				newindex(data,v,"rows",num,prefix,suffix)
				--这里单独存放在data.rows便于判断是否有任意一行
				return
			end
			
		end
	end
	for k,v in pairs(args) do
		process(k,v)
	end
	return data
end

function p.render(data)
	local root = mw.html.create()
	
	-- 渲染图片及其说明，仅限一张
	local image
	if data.image then
		local imagecell = root:tag "div"
			:addClass "newstyle-infobox-image-cell"
		image = imagecell:tag "div" 
			:addClass "newstyle-infobox-image"
			:wikitext(data.image)
	end
	
	if image and index(data,"caption","content") then 
		--如果有图片并且说明文字有内容
		image:tag "div" 
			:addClass "newstyle-infobox-caption"
			:wikitext(data.caption.content) --已经确认了存在就不用再检测
			:addClass(data.caption.class)
			:cssText(data.caption.style)
	end
	
	-- 图片之外部分
	local content = root:tag "div"
		:addClass("newstyle-infobox-content")
	
	-- 渲染标题，必须要有内容
	if index(data,"title","content") then
		content:tag "div"
			:addClass "newstyle-infobox-title"
			:wikitext(data.title.content)
			:addClass(data.title.class)
			:cssText(data.title.style)
	end
	
	-- 渲染框
	if data.rows then
		--检测是否有框的需求
		local rows = content:tag "div"
			:addClass "newstyle-infobox-rows"
			:addClass(index(data,"body","class"))
			:cssText(index(data,"body","style"))
		local keys = {} --考虑到断层参数的排序以及小数，先进行人工排序再迭代
		for k,v in pairs(data.rows) do
			if index(v,'header','content') or index(v,'data','content') then
				table.insert(keys,k)
			end
		end
		table.sort(keys)
		for i,k in ipairs(keys) do
			local v = data.rows[k]
			local header = v.header
			local label = v.label
			local d = v.data
			local r = v.row
			
			--渲染行
			local row = rows:tag "div"
				:addClass "newstyle-infobox-row"
				:addClass(index(r,"class"))
				:cssText(index(r,"style"))
				:addClass(index(data,"row","class"))
				:cssText(index(data,"row","style"))
			if index(header,"content") then
				--如果有header
				row:addClass "newstyle-infobox-header-row"
					:wikitext(header.content)
					:cssText(header.style):cssText(index(data,"header","style"))
					:addClass(header.class):addClass(index(data,"header","class"))
			elseif index(d,"content") then
				--如果没有，渲染带data的行
				row:addClass "newstyle-infobox-data-row"
				if index(label,"content") then
					--如果有标签内容
					row:tag("div")
						:addClass "newstyle-infobox-label"
						:addClass(label.class):addClass(index(data,"label","class"))
						:cssText(label.style):cssText(index(data,"label","style"))
						:wikitext(label.content)
				end
					
					--渲染data格
					
				local c
				if not index(label,"content") then c = "data-without-label" end
				row:tag("div")
					:addClass("newstyle-infobox-data")
					:addClass(c)
					:cssText(d.style):cssText(index(data,"data","style"))
					:addClass(d.class):addClass(index(data,"data","class"))
					:newline()
					:wikitext(d.content)
			end
		end
	end
	-- 渲染介绍
	if index(data,"content","content") then
		content:tag "div"
			:addClass(data.content.class)
			:addClass "hantsect"
			:cssText(data.content.style)
			:wikitext(addNewline(data.content.content))
	end
	
	return tostring(root)
end

function p.infobox(frame)
	local args = {}
	for k, v in pairs(frame:getParent().args) do
		if v and v ~= "" then
			args[k] = v
		end
	end
	
	return p.render(p.process(args))
end

return p