Miguel: Creación de «Módulo:ComplForColorModules»

2022-10-09T05:40:32Z

Creación de «Módulo:ComplForColorModules»

Página nueva

local p = {}

local SA = require "Module:SimpleArgs"
local SD = require "Module:SimpleDebug"
local MC = require "Module:XCols"
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

local function I18nStrArrOr1 (S)
return TNTT.TabTransMT (I18n, S, 2)
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 --ColorNameInvFromS0

function p.ColorNameInv0 (args, WithName)
local label
if WithName then
label = I18nStrArrOr1('Palette')
else
label = 1
end
return SA.RStr_Par (args, label)
end --ColorNameInv0

function p.ColorNameInv (args, WithName)
local S = p.ColorNameInv0 (args, WithName)
local ColorName, IsInv, Params = p.ColorNameInvFromS0 (S)
return ColorName, IsInv
end --ColorNameInv

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 = '   '
if WriteColor ~='' then
TheBox = TheBox..' '..WriteColor..'  '
end
return TheBox
end --Box

function p.TextWithTooltip (Text, Tooltip)
if Tooltip ~= '' then
return ''..Text..''
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;">'..p.TextWithTooltip(Text,Tooltip)..'</li>'
end

function p.N_Colors (args)
return SA.RPosInt_Par (args, I18nStrArrOr1('N_Colors'))
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 (args, AColors, n_colors)
local Show, Codes = {}, {}
local Text = ''
local splited, NLines, Lines, NCols, width, same_width, sep_cols, align, vertical_align, Header, Footer = MC.MainVals (args, false)
local OutlineColor = args['outline'] or ''
function NoDataFound (i)
if string.sub(Lines[i],1,2) == '--' then
return 1
else
return 0
end
end
if (NLines ~= 0) and (NLines ~= n_colors) then
local NoDataFoundCount = NoDataFound (1)
NoDataFoundCount = NoDataFoundCount + NoDataFound (NLines)
if NoDataFoundCount == 2 then
error (I18nStr ('MoreOneNoData'))
else
n_colors = n_colors + NoDataFoundCount
end
if (NLines ~= 0) and (NLines ~= n_colors) then
error (I18nStr ('FoundNLegendsExpectedN', tostring(NLines), tostring(n_colors)))
end
end
local WithLabels = NLines > 0
if WithLabels then
function DelBegin (i)
Lines[i] = string.sub(Lines[i], 3, 1000)
end
local Gray = '#b3b3b3' -- A 40% gray
if NoDataFound(1) == 1 then
table.insert(AColors, 1, Gray)
DelBegin(1)
elseif NoDataFound(NLines )== 1 then
table.insert(AColors, Gray)
DelBegin(NLines)
end
end
SD.tab.oneline = false
for i=1, table.getn(AColors) do
if WithLabels then
Text = Lines[i]
end
table.insert(Show, p.LegendColor(AColors[i],Text,''))
end
return MC.MultiColX (false, width, same_width, sep_cols, NCols, Show, align, vertical_align, Header, Footer)
end --LegendText

return p

Módulo:ComplForColorModules - Historial de revisiones

Miguel: Creación de «Módulo:ComplForColorModules»