查看“︁模块:抖动”︁的源代码

-- 模块文档见 [[Module:抖动/doc]]
local p = {}

-- 模式 → 类前缀 + 数值参数名 + 默认数值
local modeDef = {
	['平移'] = { pre = 'translate', numParam = '平移幅度', def = '0.11' },
	['旋转'] = { pre = 'rotate',    numParam = '旋转角度', def = '9' },
	['跳动'] = { pre = 'bounce',    numParam = '跳动高度', def = '0.17' },
	['摇摆'] = { pre = 'swing',     numParam = '摇摆角度', def = '9' },
	['颤抖'] = { pre = 'jitter',    numParam = '颤抖幅度', def = '0.09' },
	['缩放'] = { pre = 'pulse',     numParam = '缩放倍数', def = '1.1' },
}

-- 颤抖角度参数（颤抖为位移 + 角度两个变量）
local JITTER_ANGLE = '颤抖角度'
local JITTER_DEF_ANGLE = '6'

-- 解析数值：非法/空 → 默认值
local function numOf(v, def)
	if v == nil then return def end
	v = tostring(v):match('^%s*(.-)%s*$')
	if v == nil or v == '' then return def end
	local n = tonumber(v)
	if not n then return def end
	return tostring(n)
end

-- 模式拆分
local function splitModes(s)
	if not s or s == '' then return { '颤抖' } end
	local out, seen = {}, {}
	for m in mw.ustring.gmatch(s, '[^%+、,， ]+') do
		if modeDef[m] and not seen[m] then
			seen[m] = true
			out[#out + 1] = m
		end
	end
	if #out == 0 then return { '颤抖' } end
	return out
end

-- 生成该模式的行内 CSS 变量声明
local function varDecls(m, args)
	local def = modeDef[m]
	local parts = {}
	if m == '颤抖' then
		parts[#parts + 1] = '--dk-amp:' .. numOf(args[def.numParam], def.def) .. 'em'
		parts[#parts + 1] = '--dk-angle:' .. numOf(args[JITTER_ANGLE], JITTER_DEF_ANGLE) .. 'deg'
	elseif m == '跳动' then
		parts[#parts + 1] = '--dk-amp:-' .. numOf(args[def.numParam], def.def) .. 'em'
	elseif m == '缩放' then
		parts[#parts + 1] = '--dk-scale:' .. numOf(args[def.numParam], def.def)
	elseif m == '平移' then
		parts[#parts + 1] = '--dk-amp:' .. numOf(args[def.numParam], def.def) .. 'em'
	else -- 旋转 / 摇摆
		parts[#parts + 1] = '--dk-angle:' .. numOf(args[def.numParam], def.def) .. 'deg'
	end
	return parts
end

-- 嵌套包裹
local function wrap(inner, modes, info, perChar, idx)
	local html = inner
	for i = #modes, 1, -1 do
		local m = modes[i]
		local cls = 'dk-' .. modeDef[m].pre
		local parts = {}
		for _, v in ipairs(info.vars[i]) do parts[#parts + 1] = v end
		for _, pt in ipairs(info.styles[i]) do parts[#parts + 1] = pt end
		if perChar and i == 1 then
			local filtered = {}
			for _, pt in ipairs(parts) do
				if not mw.ustring.match(pt, '^animation%-delay:') then
					filtered[#filtered + 1] = pt
				end
			end
			parts = filtered
			local d = string.format('%.2f', ((idx - 1) * 0.12) % 0.5)
			table.insert(parts, 1, 'animation-delay:-' .. d .. 's')
			cls = 'shake-char ' .. cls
		end
		local attr = ''
		if #parts > 0 then attr = ' style="' .. table.concat(parts, ';') .. '"' end
		html = '<span class="' .. cls .. '"' .. attr .. '>' .. html .. '</span>'
	end
	return html
end

function p.main(frame)
	local args = frame.args
	local text = args['内容'] or ''
	local perChar = (args['逐字'] or '否') == '是'
	local gDur, gDel = args['速度'], args['延迟']
	local modes = splitModes(args['模式'])

	local info = { vars = {}, styles = {} }
	for i, m in ipairs(modes) do
		info.vars[i] = varDecls(m, args)
		local parts = {}
		local dur = args[m .. '速度']
		if (dur == nil or dur == '') and gDur ~= nil and gDur ~= '' then dur = gDur end
		if dur ~= nil and dur ~= '' then parts[#parts + 1] = 'animation-duration:' .. dur .. 's' end
		local del = args[m .. '延迟']
		if (del == nil or del == '') and gDel ~= nil and gDel ~= '' then del = gDel end
		if del ~= nil and del ~= '' then parts[#parts + 1] = 'animation-delay:' .. del .. 's' end
		info.styles[i] = parts
	end

	if perChar then
		local out, i = {}, 0
		for ch in mw.ustring.gmatch(text, '.') do
			if ch == ' ' then
				out[#out + 1] = ' '
			else
				i = i + 1
				out[#out + 1] = wrap(mw.text.encode(ch), modes, info, true, i)
			end
		end
		return '<span class="shake-chars">' .. table.concat(out) .. '</span>'
	else
		return wrap(frame:preprocess(text), modes, info, false, 1)
	end
end

return p