Module:Storm categories/demo/sandbox - Revision history

MSGJ: /sandbox

2023-02-25T10:26:05Z

/sandbox

← Previous revision		Revision as of 10:26, 25 February 2023
Line 9:		Line 9:
	local cats = require("Module:Storm categories/categories/sandbox").cats		local cats = require("Module:Storm categories/categories/sandbox").cats
	local colors = require("Module:Storm categories/colors/sandbox").colors		local colors = require("Module:Storm categories/colors/sandbox").colors
	local icons = require("Module:Storm categories/icons").icons		local icons = require("Module:Storm categories/icons/sandbox").icons
	local p = {}		local p = {}

Chlod: update

2022-03-20T01:49:58Z

update

@@ Line 32: / Line 32: @@
 function p.demo(frame)
 	local plain = (frame.args["plain"] or frame:getParent().args["plain"] or "") ~= ""
 	local legend = setmetatable({}, { refgroupname = "" })
@@ Line 103: / Line 104: @@
 		end
 		return finalWikitext
 	end
@@ Line 153: / Line 198: @@
 		local colorPreview = mw.html.create("td")
 			:attr("style", "background-color: #" .. actualColor .. "; padding: 0; width: 1.8em")
-		local color = mw.html.create("td")
+		local color = colorInfo(
-			:wikitext("#" .. actualColor)
+			actualColor,
+			verbose,
-		if actualColor ~= cat["color"] then
+			actualColor ~= cat["color"] and createLegend(
 				"Overriden from original color ({{color box|#"
 				.. cat["color"]
@@ Line 163: / Line 207: @@
 				.. cat["color"]
 				.. ")"
-			))
+			) or ""
 		local sortkeyCategory = mw.html.create("td")
@@ Line 268: / Line 309: @@
 					:node(mw.html.create("td")
 						:attr("style", "background-color: #" .. color .. "; padding: 0; width: 1.8em"))
-					:node(mw.html.create("td")
+					:node(colorInfo(color, verbose))
-						:wikitext("#" .. color)
+						:css("width", "0")
-						:wikitext(contrastCheck(color)))
+						:css("white-space", "nowrap")
 					:node(mw.html.create("td")
 						:attr("colspan", "2")

Asartea at 14:23, 5 February 2022

2022-02-05T14:23:45Z

← Previous revision		Revision as of 14:23, 5 February 2022
Line 8:		Line 8:
	local stormcats = require("Module:Storm categories/sandbox")		local stormcats = require("Module:Storm categories/sandbox")
	local cats = require("Module:Storm categories/categories/sandbox").cats		local cats = require("Module:Storm categories/categories/sandbox").cats
	local colors = require("Module:Storm categories/colors").colors		local colors = require("Module:Storm categories/colors/sandbox").colors
	local icons = require("Module:Storm categories/icons").icons		local icons = require("Module:Storm categories/icons").icons
	local p = {}		local p = {}

Asartea at 14:00, 5 February 2022

2022-02-05T14:00:02Z

← Previous revision		Revision as of 14:00, 5 February 2022
Line 6:		Line 6:
	local colorRatio = require("Module:Color contrast")._ratio		local colorRatio = require("Module:Color contrast")._ratio
	local TableTools = require("Module:TableTools")		local TableTools = require("Module:TableTools")
	local stormcats = require("Module:Storm categories")		local stormcats = require("Module:Storm categories/sandbox")
	local cats = require("Module:Storm categories/categories/sandbox").cats		local cats = require("Module:Storm categories/categories/sandbox").cats
	local colors = require("Module:Storm categories/colors").colors		local colors = require("Module:Storm categories/colors").colors

Asartea: Create sandbox version of Module:Storm categories/demo

2022-02-05T12:37:50Z

Create sandbox version of Module:Storm categories/demo

New page

--
-- This module handles demonstration and list of possible values for all storm
-- category templates! Please test this module on [[Module:Storm categories/demo/doc]]
-- before publishing to avoid errros. Thank you!
--
local colorRatio = require("Module:Color contrast")._ratio
local TableTools = require("Module:TableTools")
local stormcats = require("Module:Storm categories")
local cats = require("Module:Storm categories/categories/sandbox").cats
local colors = require("Module:Storm categories/colors").colors
local icons = require("Module:Storm categories/icons").icons
local p = {}

local customKeys = {}
for k, v in pairs(colors) do
table.insert(customKeys, k)
end
for k, v in pairs(icons) do
table.insert(customKeys, k)
end
TableTools.removeDuplicates(customKeys)

function tableEmpty(_table)
for k, v in pairs(_table) do
return false
end
return true
end

--- Generates and renderds the demo table.
-- @param frame The Scribunto frame.
function p.demo(frame)
local plain = (frame.args["plain"] or frame:getParent().args["plain"] or "") ~= ""

local legend = setmetatable({}, { refgroupname = "" })
local errors = setmetatable({}, { refgroupname = "E" })
local warnings = setmetatable({}, { refgroupname = "W" })

--- Builds the entire reflist
-- @param _group The group to build for. Uses `legend` by default.
function buildReflist(_group)
group = _group or legend
return frame:expandTemplate{ title = 'reflist', args = {
group = getmetatable(group)["refgroupname"]
} }
end

--- Returns a single <ref> tag containing the legend provided and
-- attaches the note definition to the list of notes.
-- @param details The details of the legend.
-- @param _group The group to write in. Uses `legend` by default.
function createLegend(details, _group)
hash = string.sub(mw.hash.hashValue("md5", details), 0, 8)
group = _group or legend
if group[hash] == nil then
group[hash] = plain and "" or frame:extensionTag{
-- <ref name="hash">details</ref>
name = 'ref',
content = mw.ustring.gsub(details, "%[%[File:([^%|]+)[^%]]*%]%]", "[[:File:%1]]"),
args = {
name = hash,
group = getmetatable(group)["refgroupname"]
}
}
end

-- <ref name="hash"/>
return plain and "" or frame:extensionTag{ name = 'ref', args = {
name = hash,
group = getmetatable(group)["refgroupname"]
} }
end

--- Checks for color contrast issues and tags accordingly.
-- Returns the refernce tag, so this should be used in conjunction with an
-- HTML node's :wikitext function.
function contrastCheck(color)
local catColorBlackRatio = colorRatio({ "#" .. color, "black" })
local catColorLinkRatio = colorRatio({ "#" .. color, "#0645ad" })
local catColorVisitedLinkRatio = colorRatio({ "#" .. color, "#0b0080" })

local finalWikitext = ""
if catColorBlackRatio == "?" or catColorLinkRatio == "?" or catColorVisitedLinkRatio == "?" then
finalWikitext = finalWikitext ..
createLegend("This color must be a hexadecimal color.", errors)
else
if catColorBlackRatio < 4.5 then
finalWikitext = finalWikitext ..
createLegend("This color has [[MOS:COLOR|contrast issues]] with black (not WCAG 2.0 AA-compatible). It will be unusable on all infoboxes and storm season summaries.", errors)
end
if catColorLinkRatio < 4.5 then
finalWikitext = finalWikitext ..
createLegend("This color has [[MOS:COLOR|contrast issues]] with links (not WCAG 2.0 AA-compatible). It should not be used in conjunction with a link.", warnings)
end
if catColorVisitedLinkRatio < 4.5 then
finalWikitext = finalWikitext ..
createLegend("This color has [[MOS:COLOR|contrast issues]] with visited links (not WCAG 2.0 AA-compatible with #0b0080). It should not be used in conjunction with a visited link.", warnings)
end
if actualCat == "c0c0c0" and cat[sortkey] ~= 0 then
finalWikitext = finalWikitext ..
createLegend("This category is using a color reserved specifically for the \"unknown\" category.", warnings)
end
end
return finalWikitext
end

local categoryTable = mw.html.create("table")
:addClass("wikitable")
:addClass("sortable")
:attr("style", "width: 100%")

categoryTable
:node(
mw.html.create("tr")
:node(mw.html.create("th"):wikitext("Icon")
:attr("class", "unsortable")
:attr("rowspan", "2")
:css("width", "0"))
:node(mw.html.create("th"):wikitext("ID")
:attr("rowspan", "2"))
:node(mw.html.create("th"):wikitext("Name")
:attr("colspan", "2"))
:node(mw.html.create("th"):wikitext("Color")
:attr("rowspan", "2")
:attr("colspan", "2"))
:node(mw.html.create("th"):wikitext("Sortkey")
:attr("colspan", "2"))
):node(
mw.html.create("tr")
:node(mw.html.create("th"):wikitext("Basin"))
:node(mw.html.create("th"):wikitext("Name"))
:node(mw.html.create("th"):wikitext("Basin"))
:node(mw.html.create("th"):wikitext("Sortkey")
:attr("data-sort-type", "number"))
)

for name, cat in TableTools.sortedPairs(cats) do
local rows = { mw.html.create("tr") }
local row = rows[1]

local actualIcon = stormcats._icon(name)
local icon = mw.html.create("td")
:wikitext(actualIcon)
if cat["icon"] ~= nil and actualIcon ~= cat["icon"] then
icon:wikitext(
createLegend("Overriden from original icon (" .. cat["icon"] .. ")")
)
end

local id = mw.html.create("td")
:wikitext(name)
local actualColor = stormcats._color(name)
local colorPreview = mw.html.create("td")
:attr("style", "background-color: #" .. actualColor .. "; padding: 0; width: 1.8em")
local color = mw.html.create("td")
:wikitext("#" .. actualColor)

if actualColor ~= cat["color"] then
color:wikitext(createLegend(
"Overriden from original color ({{color box|#"
.. cat["color"]
.. "}} #"
.. cat["color"]
.. ")"
))
end

-- Perform contrast checks
color:wikitext(contrastCheck(actualColor))

local sortkeyCategory = mw.html.create("td")
:attr("data-sort-value", cat["sortkey"])
local sortkey = mw.html.create("td")
:attr("data-sort-value", cat["sortkey"])
:wikitext(cat["sortkey"])

if cat["sortkey"] < 0 then
sortkeyCategory:wikitext("Invalid")
elseif cat["sortkey"] < 20000 then
sortkeyCategory:wikitext("Global")
elseif cat["sortkey"] < 30000 then
sortkeyCategory:wikitext("Historical")
elseif cat["sortkey"] < 40000 then
sortkeyCategory:wikitext("SWIO")
elseif cat["sortkey"] < 50000 then
sortkeyCategory:wikitext("Aus/Fiji")
elseif cat["sortkey"] < 60000 then
sortkeyCategory:wikitext("NIO")
elseif cat["sortkey"] < 80000 then
sortkeyCategory:wikitext("WPAC")
elseif cat["sortkey"] < 90000 then
sortkeyCategory:wikitext("Atl/EPac/SAtl")
elseif cat["sortkey"] < 100000 then
sortkeyCategory:attr("style", "color: gray")
sortkeyCategory:wikitext("''Global''")
else
sortkeyCategory:wikitext("Invalid")
end

if type(cat["name"]) == "string" then
local name = mw.html.create("td")
:attr("colspan", "2")
:wikitext(cat["name"])
row:node(icon)
row:node(id)
row:node(name)
else
local nameTableLength = TableTools.size(cat["name"])
icon:attr("rowspan", nameTableLength)
id:attr("rowspan", nameTableLength)
colorPreview:attr("rowspan", nameTableLength)
color:attr("rowspan", nameTableLength)
sortkeyCategory:attr("rowspan", nameTableLength)
sortkey:attr("rowspan", nameTableLength)

row:node(icon)
row:node(id)
local firstDone = false
for key, basinName in TableTools.sortedPairs(cat["name"]) do
if firstDone then
local nameRow = mw.html.create("tr")

nameRow
:node(mw.html.create("td"):wikitext(key))
:node(mw.html.create("td"):wikitext(basinName))

table.insert(rows, nameRow)
else
firstDone = true
row
:node(mw.html.create("td"):wikitext(key))
:node(mw.html.create("td"):wikitext(basinName))
end
end
end

row:node(colorPreview)
row:node(color)
row:node(sortkeyCategory)
row:node(sortkey)

for _, _row in TableTools.sortedPairs(rows) do
categoryTable:node(_row)
end
end

for name, _ in TableTools.sortedPairs(TableTools.listToSet(customKeys)) do
if cats[name] == nil then
local row = mw.html.create("tr")

local icon = stormcats._icon(name, true)
row
:node(mw.html.create("td")
:wikitext(
icon ~= nil
and icon
or "''N/A''"
))
:node(mw.html.create("td"):wikitext(name))

local color = stormcats._color(name, true)
-- Add more conditions eventually
if color ~= nil then
row
:node(mw.html.create("td")
:attr("colspan", "2")
:wikitext("''not available''"))
:node(mw.html.create("td")
:attr("style", "background-color: #" .. color .. "; padding: 0; width: 1.8em"))
:node(mw.html.create("td")
:wikitext("#" .. color)
:wikitext(contrastCheck(color)))
:node(mw.html.create("td")
:attr("colspan", "2")
:wikitext("''not available''"))
else
row
:node(mw.html.create("td")
:attr("colspan", "6")
:wikitext("''not available''"))
end
categoryTable:node(row)
end
end

out = ""
if not plain and not tableEmpty(errors) then
out = out
.. tostring(mw.html.create("h4"):wikitext("Error"))
.. tostring(mw.html.create("p"):wikitext("This table contains errors than need to be addressed immediately, as it may cause errors on a large amount of pages."))
.. buildReflist(errors)
end
if not plain and not tableEmpty(legend) then
out = out
.. tostring(mw.html.create("h4"):wikitext("Legend"))
.. buildReflist(legend)
end
out = out .. tostring(categoryTable)
if not plain and not tableEmpty(warnings) then
out = out
.. tostring(mw.html.create("h4"):wikitext("Warnings"))
.. tostring(mw.html.create("p"):wikitext("This table contains warnings than should be addressed. Please note that some warnings cannot be fully addressed without changes that would require consensus."))
.. buildReflist(warnings)
end

return mw.text.trim(out)
end

return p