Module:Vital article/sandbox
Jump to navigation
Jump to search
 | This is the module sandbox page for Module:Vital article (diff). See also the companion subpage for test cases (run). |
| File:Greek lc beta icon.svg | This module is rated as beta. It is considered ready for widespread use, but as it is still relatively new, it should be applied with some caution to ensure results are as expected. |
Usage
[edit source]This module implements the following templates:
Please refer to those templates' documentation.
local p = {}
-- Copy from [[Module:Section link]]
local function normalizeTitle(title)
title = mw.ustring.gsub(mw.ustring.gsub(title, "'", ""), '"', '')
title = mw.ustring.gsub(title, "%b<>", "")
return mw.title.new(title).prefixedText
end
local getLink = function(page)
local subpage = mw.ustring.upper(mw.ustring.sub(page, 1, 1)) -- get first letter of article name
local codepoint = mw.ustring.codepoint(page, 1, 1)
if codepoint<65 or codepoint>90 then --first letter is not between A-Z
subpage = 'others'
end
local data_page = 'Wikipedia:Vital articles/data/' .. subpage .. '.json'
local page2 = tostring(tonumber(page))==page and tonumber(page) or page --convert to number if page is numerical, otherwise loadJsonData does not work
local data = mw.loadJsonData(data_page)[page2]
if data then
local level = tostring(data.level)
if level then
local link = 'Wikipedia:Vital articles/Level/' .. level
if (level=='4' or level=='5') and data.topic then
link = link .. '/' .. data.topic
end
if data.sublist then
link = link .. '/' .. data.sublist
end
if data.section then
link = link .. '#' .. data.section
end
return link, level
end
end
end
p.link = function(frame)
local page = frame.args.page~='' and frame.args.page or mw.title.getCurrentTitle().subjectPageTitle.text
local link, level = getLink(page)
return '[[' .. page .. ']]' .. (link and ' [[File:Círculos Concéntricos.svg|11px]] [[' .. link .. '|' .. level .. ']]' or '')
end
p.isVital = function(frame)
local page = frame.args.page~='' and frame.args.page or mw.title.getCurrentTitle().subjectPageTitle.text
local _, level = getLink(page)
return level or ''
end
local top = function(container, frame)
return (container and '' or frame:expandTemplate{title = 'Possibly empty category'})
.. frame:expandTemplate{title = 'Wikipedia category', args = {container = container}}
.. frame:expandTemplate{title = 'CatAutoTOC'}
end
p.header = function(frame)
local pargs = frame:getParent().args
local cat = pargs.category~='' and pargs.category or mw.title.getCurrentTitle().subjectPageTitle.text
local topic, class, level
topic = cat:match('^Wikipedia vital articles in ([%a ]+) by quality$')
if topic then -- Category:Wikipedia vital articles in TOPIC by quality
return top(true, frame)
.. '[[Category:Wikipedia vital articles in ' .. topic .. '|Quality]]'
.. '[[Category:Wikipedia vital articles by topic and quality|' .. (topic=='an unknown topic' and 'Unknown' or topic) .. ']]'
end
class = cat:match('^([%a-]+) vital articles by topic$')
if class then -- Category:CLASS Wikipedia vital articles by topic
return top(true, frame)
.. '[[Category:' .. class .. ' Wikipedia vital articles|Topic]]'
.. '[[Category:Wikipedia vital articles by quality and topic|' .. class .. ']]'
end
topic = cat:match('^Wikipedia vital articles in ([%a ]+) by level$')
if topic then -- Category:Wikipedia vital articles in TOPIC by level
return top(true, frame)
.. '[[Category:Wikipedia vital articles in ' .. topic .. '|Level]]'
.. '[[Category:Wikipedia vital articles by topic and level|' .. (topic=='an unknown topic' and 'Unknown' or topic) .. ']]'
end
level = cat:match('^level%-(%w+) Wikipedia vital articles by topic$')
if level then -- Category:Level-LEVEL Wikipedia vital articles by topic
return top(true, frame)
.. '[[Category:Level-' .. level .. ' Wikipedia vital articles|Topic]]'
.. '[[Category:Wikipedia vital articles by level and topic|' .. level .. ']]'
end
class = cat:match('^([%a-]+) Wikipedia vital articles by level$')
if class then -- Category:CLASS Wikipedia vital articles by level
return top(true, frame)
.. '[[Category:' .. class .. ' Wikipedia vital articles|Level]]'
.. '[[Category:Wikipedia vital articles by quality and level|' .. class .. ']]'
end
level = cat:match('^Level%-(%w+) Wikipedia vital articles by quality$')
if level then -- Category:Level-LEVEL Wikipedia vital articles by quality
return top(true, frame)
.. '[[Category:Level-' .. level .. ' Wikipedia vital articles|Quality]]'
.. '[[Category:Wikipedia vital articles by level and quality|' .. level .. ']]'
end
topic = cat:match('^Wikipedia vital articles in ([%a ]+)$')
if topic then -- Category:Wikipedia vital articles in TOPIC
return top(false, frame)
.. '[[Category:Wikipedia vital articles by topic|' .. (topic=='an unknown topic' and 'Unknown' or topic) .. ']]'
end
level = cat:match('^level%-(%w+) Wikipedia vital articles$')
if level then -- Category:level-LEVEL Wikipedia vital articles
return top(true, frame)
.. '[[Category:Wikipedia vital articles by level|' .. level .. ']]'
end
class, level = cat:match('^([%a%-]+) level%-(%w+) vital articles$')
if class and level then -- Category:CLASS level-LEVEL Wikipedia vital articles
return top(false, frame)
.. '[[Category:' .. class .. ' Wikipedia vital articles by level|' .. level .. ']]'
.. '[[Category:Level-' .. string.lower(level) .. ' Wikipedia vital articles by quality|' ..class .. ']]'
end
class = cat:match('^([%a-]+) Wikipedia vital articles$')
if class then -- Category:CLASS Wikipedia vital articles
class = class:match('(%a+)-Class') or class
return top(true, frame)
end
level, topic = cat:match('^level%-(%w+) Wikipedia vital articles in ([%a ]+)$')
if level and topic then -- Category:level-LEVEL Wikipedia vital articles in TOPIC
return top(false, frame)
.. '[[Category:Wikipedia vital articles in ' .. topic .. ' by level|' .. level .. ']]'
.. '[[Category:level-' .. level .. ' Wikipedia vital articles by topic|' .. (topic=='an unknown topic' and 'Unknown' or topic) .. ']]'
end
class, topic = cat:match('^([%a-]+) Wikipedia vital articles in ([%a ]+)$')
if class and topic then -- Category:CLASS vital articles in TOPIC
return top(false, frame)
.. '[[Category:Wikipedia vital articles in ' .. topic .. ' by quality|' .. class .. ']]'
.. '[[Category:' .. class .. ' Wikipedia vital articles by topic|' .. (topic=='an unknown topic' and 'Unknown' or topic) .. ']]'
end
end
return p