Module:ComplForColorModules - Revision history

WOSlinker: Undid revision 1155146599 by WOSlinker (talk)

2023-05-16T22:27:36Z

Undid revision 1155146599 by WOSlinker (talk)

← Previous revision		Revision as of 22:27, 16 May 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-05-16T22:27:03Z

syntaxhighlight lang="wikitext"

← Previous revision		Revision as of 22:27, 16 May 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

Uzume: localize some variables

2023-02-10T21:19:51Z

localize some variables

← Previous revision		Revision as of 21:19, 10 February 2023
Line 60:		Line 60:
	end		end

	function SColor (Color)		local function SColor (Color)
	if string.sub(Color,1,1) == '#' then --the usual		if string.sub(Color,1,1) == '#' then --the usual
	return string.sub(Color,2,100)		return string.sub(Color,2,100)
Line 96:		Line 96:
	end		end

	function LegendCode(Color, Text, OutlineColor)		local function LegendCode(Color, Text, OutlineColor)
	local SOutlineColor = ''		local SOutlineColor = ''
	if OutlineColor ~= '' then		if OutlineColor ~= '' then
Line 128:		Line 128:
	table.insert(Show, p.LegendColor(AColors[i],Text,''))		table.insert(Show, p.LegendColor(AColors[i],Text,''))
	end		end
	SShow = table.concat(Show,"\n")		local SShow = table.concat(Show,"\n")
	if ColWidth then		if ColWidth then
	local frame = mw.getCurrentFrame()		local frame = mw.getCurrentFrame()

Pppery: Replace usage of to-be-deleted Module:SimpleArgs, clean up code with nested functions to be slightly more readable

2019-12-09T23:34:52Z

Replace usage of to-be-deleted Module:SimpleArgs, clean up code with nested functions to be slightly more readable

← Previous revision		Revision as of 23:34, 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 33:		Line 32:

	function p.ColorNameInv (args)		function p.ColorNameInv (args)
	local S = SA.~~RStr_Par~~ (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

	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+1] = 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 117:		Line 111:
	end		end
	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 at 04:35, 9 December 2019

2019-12-09T04:35:23Z

← Previous revision		Revision as of 04:35, 9 December 2019
Line 111:		Line 111:

	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
	function NoDataFound (i)		function NoDataFound (i)

Pppery at 20:04, 12 November 2019

2019-11-12T20:04:38Z

← Previous revision		Revision as of 20:04, 12 November 2019
Line 2:		Line 2:

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

Pppery: Oops

2019-11-12T20:04:20Z

Oops

← Previous revision		Revision as of 20:04, 12 November 2019
Line 1:		Line 1:
			local p = {}

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

			local I18n = 'ComplForColorModules'

			--local MoreOneNoData = "Found 2 legends of \"Value not assigned\" or \"Data not available\""
			--local FoundNLegendsExpectedN = "Found $1 legends, expected $2"
			--local Color = "Color"
			--local Legend = "legend"

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

			function p.ColorNameInvFromS0 (S)
			local IsInv = false
			local ColorName = ''
			local Params = {}
			if S ~= '' then
			for w in S:gmatch("([^_]+)") do
			table.insert(Params, w)
			end
			ColorName = Params[1]
			end
			local PN = table.getn(Params)
			if (PN == 2) and (Params[2]=='i') then
			IsInv = true
			end
			return ColorName, IsInv, Params
			end

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

			function p.GetLabels(Args, NArgs, N, Pos)
			local Labels, NLabels = SA.StrTab_NPar (Args, NArgs, Pos)
			local OutlineColor = Args['outline'] or ''
			if (NLabels ~= 0) and (NLabels ~= N) then
			function NoDataFound (i)
			if string.sub(Labels[i],1,2) == '--' then
			return 1
			else
			return 0
			end
			end
			local NoDataFoundCount = NoDataFound (1)
			NoDataFoundCount = NoDataFoundCount + NoDataFound (NLabels)
			if NoDataFoundCount == 2 then
			error (I18nStr ('MoreOneNoData'))
			else
			N = N + NoDataFoundCount
			end
			if (NLabels ~= 0) and (NLabels ~= N) then
			error (I18nStr ('FoundNLegendsExpectedN', tostring(NLabels), tostring(N)))
			else
			return Labels, NLabels, OutlineColor
			end
			else
			return Labels, NLabels, OutlineColor
			end
			end

			function SColor (Color)
			if string.sub(Color,1,1) == '#' then --the usual
			return string.sub(Color,2,100)
			else
			return Color
			end
			end

			function p.Box(Color,WriteColor)
			if WriteColor == '-' then
			WriteColor = Color
			elseif WriteColor == 'a' then
			WriteColor = Color..'ff' --Alpha channel
			end
			local TheBox = '<span style="background-color:'..Color..'; border:1px solid gray;" title="'..TNTT.GetStrP(I18n,'Color')..': '..SColor(Color)..'">   </span>'
			if WriteColor ~='' then
			TheBox = TheBox..' '..WriteColor..'  '
			end
			return TheBox
			end

			function p.TextWithTooltip (Text, Tooltip)
			if Tooltip ~= '' then
			return '<span title="'..Tooltip..'">'..Text..'</span>'
			else
			return Text
			end
			end

			function p.LegendColor(Color, Text, Tooltip)
			if Text == '' then
			Text = SColor(Color)
			end
			return '<li style="list-style-type: none; list-style-image: none;"><span style="border:1px solid gray; background:'..Color..'; margin-right:0.3em; vertical-align: middle; webkit-print-color-adjust:exact; color-adjust:exact; display:inline-block; width:1.05em; height:1em;"></span>'..p.TextWithTooltip(Text,Tooltip)..'</li>'
			end

			function LegendCode(Color, Text, OutlineColor)
			local SOutlineColor = ''
			if OutlineColor ~= '' then
			SOutlineColor = '\|outline='..OutlineColor
			end
			return '{{'..TNTT.GetStrP(I18n,'Legend')..'\|'..Color..'\|'..Text..SOutlineColor..'}}'
			end

	function p.LegendText (AColors, Labels, NLabels, ColWidth, IsTemplate, OutlineColor)		function p.LegendText (AColors, Labels, NLabels, ColWidth, IsTemplate, OutlineColor)

Pppery: Please stop attempting to overturn consensus established at TfD

2019-11-12T20:03:42Z

Please stop attempting to overturn consensus established at TfD

@@ Line 1: / Line 1: @@
 	function NoDataFound (i)
 		if string.sub(Labels[i],1,2) == '--' then
@@ Line 139: / Line 32: @@
 		table.insert(Show, p.LegendColor(AColors[i],Text,''))
 	end
-	local SShow = MC.MultiCol (NCols, Show, table.getn(AColors), 1, IsTemplate)
+	SShow = table.concat(Show,"\n")
 	for i=1, table.getn(AColors) do
 		if WithLabels then Text = Labels[i] end
 		table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))
 	end
-	local SCodes = MC.MultiCol (NCols, Codes, table.getn(AColors), 2, IsTemplate)
+	local SCodes = '<pre>\n'
 	return SShow..'\n'..SCodes
 end

Jmarchn at 12:05, 12 November 2019

2019-11-12T12:05:57Z

← Previous revision		Revision as of 12:05, 12 November 2019
Line 2:		Line 2:

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

Line 12:		Line 13:

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

Line 80:		Line 81:
	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 107:		Line 108:
	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

	function p.LegendText (AColors, Labels, NLabels, ~~ColWidth~~, IsTemplate, OutlineColor)		function p.LegendText (AColors, Labels, NLabels, NCols, IsTemplate, OutlineColor)
	ColWidth = mw.text.trim(ColWidth)
	if ColWidth and #ColWidth == 0 then
	ColWidth = nil
	end
	function NoDataFound (i)		function NoDataFound (i)
	if string.sub(Labels[i],1,2) == '--' then		if string.sub(Labels[i],1,2) == '--' then
Line 142:		Line 139:
	table.insert(Show, p.LegendColor(AColors[i],Text,''))		table.insert(Show, p.LegendColor(AColors[i],Text,''))
	end		end
	SShow = ~~table~~.~~concat~~(Show,~~"\n"~~)		local SShow = MC.MultiCol (NCols, Show, table.getn(AColors), 1, IsTemplate)
	if ColWidth then
	local frame = mw.getCurrentFrame()
	SShow = frame:expandTemplate{title="div col",args={colwidth=ColWidth}} .. SShow
	SShow = SShow .. frame:expandTemplate{title="div col end"}
	end
	for i=1, table.getn(AColors) do		for i=1, table.getn(AColors) do
	if WithLabels then Text = Labels[i] end		if WithLabels then Text = Labels[i] end
	table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))		table.insert(Codes, ' '..LegendCode(AColors[i],Text,OutlineColor))
	end		end
	local SCodes = ~~'<pre>\n'~~		local SCodes = MC.MultiCol (NCols, Codes, table.getn(AColors), 2, IsTemplate)
	if ColWidth then
	SCodes = SCodes .. require("Module:Template invocation").invocation("div col",{colwidth=ColWidth}) .. "\n"
	end
	SCodes = SCodes .. table.concat(Codes,"\n")
	if ColWidth and #ColWidth ~= 0 then
	SCodes = SCodes .. "\n{{div col end}}"
	end
	SCodes = SCodes .. "\n</pre>"
	return SShow..'\n'..SCodes		return SShow..'\n'..SCodes
	end		end

Jmarchn at 12:19, 8 November 2019

2019-11-08T12:19:40Z

← 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