Module:ComplForColorModules/sandbox - Revision history

WOSlinker: Undid revision 1158203822 by WOSlinker (talk)

2023-06-02T15:47:35Z

Undid revision 1158203822 by WOSlinker (talk)

← Previous revision		Revision as of 15:47, 2 June 2023
Line 138:		Line 138:
	table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))		table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))
	end		end
	local SCodes = '<~~syntaxhighlight lang="wikitext"~~>\n'		local SCodes = '<pre>\n'
	if ColWidth then		if ColWidth then
	SCodes = SCodes .. require("Module:Template invocation").invocation("div col",{colwidth=ColWidth}) .. "\n"		SCodes = SCodes .. require("Module:Template invocation").invocation("div col",{colwidth=ColWidth}) .. "\n"
Line 146:		Line 146:
	SCodes = SCodes .. "\n{{div col end}}"		SCodes = SCodes .. "\n{{div col end}}"
	end		end
	SCodes = SCodes .. "\n</~~syntaxhighlight~~>"		SCodes = SCodes .. "\n</pre>"
	return SShow..'\n'..SCodes		return SShow..'\n'..SCodes
	end		end

WOSlinker: syntaxhighlight lang="wikitext"

2023-06-02T15:46:46Z

syntaxhighlight lang="wikitext"

← Previous revision		Revision as of 15:46, 2 June 2023
Line 138:		Line 138:
	table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))		table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))
	end		end
	local SCodes = '<~~pre~~>\n'		local SCodes = '<syntaxhighlight lang="wikitext">\n'
	if ColWidth then		if ColWidth then
	SCodes = SCodes .. require("Module:Template invocation").invocation("div col",{colwidth=ColWidth}) .. "\n"		SCodes = SCodes .. require("Module:Template invocation").invocation("div col",{colwidth=ColWidth}) .. "\n"
Line 146:		Line 146:
	SCodes = SCodes .. "\n{{div col end}}"		SCodes = SCodes .. "\n{{div col end}}"
	end		end
	SCodes = SCodes .. "\n</~~pre~~>"		SCodes = SCodes .. "\n</syntaxhighlight>"
	return SShow..'\n'..SCodes		return SShow..'\n'..SCodes
	end		end

Pppery at 23:32, 9 December 2019

2019-12-09T23:32:15Z

← Previous revision		Revision as of 23:32, 9 December 2019
Line 40:		Line 40:
	local index = Pos		local index = Pos
	while Args[index] do		while Args[index] do
	Labels[#Labels] = Args[index]		Labels[#Labels+1] = Args[index]
	index = index + 1		index = index + 1
	end		end

Pppery at 23:21, 9 December 2019

2019-12-09T23:21:10Z

← Previous revision		Revision as of 23:21, 9 December 2019
Line 11:		Line 11:

	local function I18nStr (S, ...)		local function I18nStr (S, ...)
	return TNTT.~~GetSTransWithParams~~ (I18n, S, {...})		return TNTT.GetMsgP (I18n, S, {...})
	end		end

Line 74:		Line 74:
	WriteColor = Color..'ff' --Alpha channel		WriteColor = Color..'ff' --Alpha channel
	end		end
	local TheBox = '<span style="background-color:'..Color..'; border:1px solid gray;" title="'..TNTT.~~GetSTransWithParams~~(I18n,'Color')..': '..SColor(Color)..'">   </span>'		local TheBox = '<span style="background-color:'..Color..'; border:1px solid gray;" title="'..TNTT.GetStrP(I18n,'Color')..': '..SColor(Color)..'">   </span>'
	if WriteColor ~='' then		if WriteColor ~='' then
	TheBox = TheBox..' '..WriteColor..'  '		TheBox = TheBox..' '..WriteColor..'  '
Line 101:		Line 101:
	SOutlineColor = '\|outline='..OutlineColor		SOutlineColor = '\|outline='..OutlineColor
	end		end
	return '{{'..TNTT.~~GetSTransWithParams~~(I18n,'Legend')..'\|'..Color..'\|'..Text..SOutlineColor..'}}'		return '{{'..TNTT.GetStrP(I18n,'Legend')..'\|'..Color..'\|'..Text..SOutlineColor..'}}'
	end		end

Pppery at 23:19, 9 December 2019

2019-12-09T23:19:42Z

← Previous revision		Revision as of 23:19, 9 December 2019
Line 105:		Line 105:

	function p.LegendText (AColors, Labels, NLabels, ColWidth, IsTemplate, OutlineColor)		function p.LegendText (AColors, Labels, NLabels, ColWidth, IsTemplate, OutlineColor)
	ColWidth = mw.text.trim(ColWidth)		if ColWidth then
			ColWidth = mw.text.trim(ColWidth)
	if ~~ColWidth and~~ #ColWidth == 0 then		if #ColWidth == 0 then
	ColWidth = nil		ColWidth = nil
			end
	end		end
	local Show, Codes = {}, {}		local Show, Codes = {}, {}

Pppery at 23:18, 9 December 2019

2019-12-09T23:18:35Z

← Previous revision		Revision as of 23:18, 9 December 2019
Line 39:		Line 39:
	local Labels = {}		local Labels = {}
	local index = Pos		local index = Pos
	while ~~args~~[index] do		while Args[index] do
	Labels[#Labels] = ~~args~~[index]		Labels[#Labels] = Args[index]
	index = index + 1		index = index + 1
	end		end

Pppery: Replace usage of Module:SimpleArgs, clean out confusing nested functions

2019-12-09T23:09:38Z

Replace usage of Module:SimpleArgs, clean out confusing nested functions

← Previous revision		Revision as of 23:09, 9 December 2019
Line 1:		Line 1:
	local p = {}		local p = {}

	local SA = require "Module:SimpleArgs"
	local TNTT = require "Module:TNTTools"		local TNTT = require "Module:TNTTools"

Line 37:		Line 36:
	end		end

	function p.GetLabels(Args~~, NArgs~~, N, Pos)		function p.GetLabels(Args, N, Pos)
	local Labels~~, NLabels~~ = ~~SA.StrTab_NPar (Args, NArgs, Pos)~~		local Labels = {}
			local index = Pos
			while args[index] do
			Labels[#Labels] = args[index]
			index = index + 1
		⚫	end
			local NLabels = #Labels
	local OutlineColor = Args['outline'] or ''		local OutlineColor = Args['outline'] or ''
	if (NLabels ~= 0) and (NLabels ~= N) then		if (NLabels ~= 0) and (NLabels ~= N) then
		⚫	local StartUnknown = (string.sub(Labels[1],1,2) == "--")
	function NoDataFound (i)
	if string.sub(Labels[i],1,2) == '--~~' then~~		local EndUnknown = (string.sub(Labels[NLabels],1,2) == "--")
			if StartUnknown and EndUnknown then
	return 1
	else
	return 0
	end
	end
	local NoDataFoundCount = NoDataFound (1)
	NoDataFoundCount = NoDataFoundCount + NoDataFound (NLabels)
	if NoDataFoundCount == 2 then
	error (I18nStr ('MoreOneNoData'))		error (I18nStr ('MoreOneNoData'))
			elseif StartUnknown or EndUnknown then
	else
	N = N + ~~NoDataFoundCount~~		N = N + 1
	end		end
	if (NLabels ~= 0) and (NLabels ~= N) then		if (NLabels ~= 0) and (NLabels ~= N) then
	error (I18nStr ('FoundNLegendsExpectedN', tostring(NLabels), tostring(N)))		error (I18nStr ('FoundNLegendsExpectedN', tostring(NLabels), tostring(N)))
	~~else~~		end
		⚫	end
	return Labels, NLabels, OutlineColor		return Labels, NLabels, OutlineColor
	end
	else
	return Labels, NLabels, OutlineColor
⚫	end
	end		end

Line 114:		Line 109:
	ColWidth = nil		ColWidth = nil
	end		end
	function NoDataFound (i)
⚫	if string.sub(Labels[i],1,2) == '--~~' then~~
	return true
	else
	return false
	end
⚫	end
	local Show, Codes = {}, {}		local Show, Codes = {}, {}
	local Text = ''		local Text = ''
	local WithLabels = NLabels > 0		local WithLabels = NLabels > 0
	if WithLabels then		if WithLabels then
	function DelBegin (i)
⚫	Labels[i] = string.sub(Labels[i], 3, 1000)
	end
	local Gray = '#b3b3b3' -- A 40% gray		local Gray = '#b3b3b3' -- A 40% gray
	if ~~NoDataFound~~(1) then		if string.sub(Labels[1],1,2) == '--' then
	table.insert(AColors, 1, Gray)		table.insert(AColors, 1, Gray)
		⚫	Labels[1] = string.sub(Labels[1], 3, 1000)
	DelBegin(1)
	elseif ~~NoDataFound~~(NLabels) then		elseif string.sub(Labels[NLabels],1,2) == '--' then
	table.insert(AColors, Gray)		table.insert(AColors, Gray)
	~~DelBegin~~(NLabels)		Labels[NLabels] = string.sub(Labels[NLabels], 3, 1000)
	end		end
	end		end

Pppery: Remove first usage of Module:SimpleArgs

2019-12-09T22:40:28Z

Remove first usage of Module:SimpleArgs

← Previous revision		Revision as of 22:40, 9 December 2019
Line 33:		Line 33:

	function p.ColorNameInv (args)		function p.ColorNameInv (args)
	local S = args[1]		local ColorName, IsInv, Params = p.ColorNameInvFromS0(args[1])
	local ColorName, IsInv, Params = p.ColorNameInvFromS0 (S)
	return ColorName, IsInv		return ColorName, IsInv
	end		end

Pppery: Remove first usage of Module:SimpleArgs

2019-12-09T22:40:06Z

Remove first usage of Module:SimpleArgs

← Previous revision		Revision as of 22:40, 9 December 2019
Line 33:		Line 33:

	function p.ColorNameInv (args)		function p.ColorNameInv (args)
	local S = ~~SA.RStr_Par (~~args, 1)		local S = args[1]
	local ColorName, IsInv, Params = p.ColorNameInvFromS0 (S)		local ColorName, IsInv, Params = p.ColorNameInvFromS0 (S)
	return ColorName, IsInv		return ColorName, IsInv

Jmarchn at 12:19, 8 November 2019

2019-11-08T12:19:36Z

← Previous revision		Revision as of 12:19, 8 November 2019
Line 33:		Line 33:

	function p.ColorNameInv (args)		function p.ColorNameInv (args)
	local S = SA.~~RStr_1Par~~ (args, 1)		local S = SA.RStr_Par (args, 1)
	local ColorName, IsInv, Params = p.ColorNameInvFromS0 (S)		local ColorName, IsInv, Params = p.ColorNameInvFromS0 (S)
	return ColorName, IsInv		return ColorName, IsInv