模块:Tags

[查看 | 编辑 | 历史 | 清除缓存]文档页面跳转至代码 ↴

此模块用于实现{{Tags}}

依赖项

• Module:ProcessArgs

[查看 | 编辑 | 历史 | 清除缓存]上述文档引用自模块:Tags/doc。

local ProcessArgs = require('Module:ProcessArgs')
local p = {}

local function StripSpaceAndLineAtBothEnds(str)
	return (string.gsub(str, '^[%s\n]*(.-)[%s\n]*$', '%1'))
end

local function StripKeyValuePairFromString(str)
	local key, value
	local point = string.find(str, ":", 1)
	if point ~= nil then
		key = StripSpaceAndLineAtBothEnds(string.sub(str, 1, point - 1))
		value = StripSpaceAndLineAtBothEnds(string.sub(str, point + 1, string.len(str)))
	else
		key = StripSpaceAndLineAtBothEnds(str)
	end
	return key, value
end

local function StringToArray (str, splitter)
	local rawSplit = mw.text.split(str, splitter)
	local results = {}
	for i,value in ipairs( rawSplit ) do
		table.insert(results, StripSpaceAndLineAtBothEnds( value ) )
	end
	return results
end

function p.value(f)
	local args = f
	local frame = mw.getCurrentFrame()
	if f == frame then
		args = ProcessArgs.merge(true)
	end
	
	local results = {}
	
	for tagsData, contentToTag in pairs(args) do
		local tagEntries = StringToArray(tagsData, ';')
		local appendTags = {}
		for i, tagEntry in pairs(tagEntries) do
			local tagType, tagStrings = StripKeyValuePairFromString(tagEntry)
			local tags = StringToArray(tagStrings, ',')
			table.insert(appendTags, frame:expandTemplate { title = tagType, args = tags })
		end
		table.insert(results, table.concat({
			'<span style="background-color: var(--custom-background-blue);">',
			contentToTag,
			'</span>',
			table.concat(appendTags)
			}))
	end
	
	return mw.text.listToText(results, '、', '或')
end

return p