-- This module follows [[User:Ganaram inukshuk/Provisional style guide for Lua]]
local getArgs = require("Module:Arguments").getArgs
local p = {}
-- Produces a hatnote that is placed on the top of a documentation page (either
-- template or module documentation) and can autodetect and categorize:
-- - FOR MODULES:
-- - whether a module has an accompanying template (overridable)
-- - whether a module is meant as a library for other modules
-- - FOR TEMPLATES:
-- - whether a template has an accompanying module (overridable)
-- - what functions from which modules are invoked
-- Options for specific types of templates and modules include:
-- - (TEMPLATES) whether it's a metatemplate
-- - (MODULES) whether it's a metamodule (used the same way as a metatemplate,
-- but direct use of module code is allowed)
-- Helper function
-- Detect whether a page exists, where fullpagename is "Namespace:Title"
local function page_exists(fullpagename)
local title = mw.title.new(fullpagename)
if title and title.exists then
return true
else
return false
end
end
-- Helper function
-- Categorizes pages if they're in the right namespace, and based on the nature
-- of the page
local function categorize(namespace, pagename, is_lua_based_template)
local is_lua_based_template = is_lua_based_template or false
local cats = ""
if pagename:sub(-4) == "/doc" then
-- Documentation subpages
if namespace == "Template" then
cats = "[[Category:Template documentation]]"
elseif namespace == "Module" then
cats = "[[Category:Module documentation]]"
end
else
-- Main pages
if namespace == "Template" then
cats = "[[Category:Templates]]"
if is_lua_based_template then
cats = cats .. " [[Category:Lua-based templates]]"
end
elseif namespace == "Module" then
cats = "[[Category:Lua modules]]"
else
--cats = "[[Category:Templates in the incorrect namespace]]"
end
end
return cats
end
-- Main function
function p._dochead(args)
local namespace = args["namespace"]
local pagename = args["pagename" ]
local header = args["header" ] or "none"
local corr_template = args["temp"] or ("Template:" .. pagename)
local corr_module = args["mod" ] or ("Module:" .. pagename)
-- Normalize corresponding template/module to include their namespaces
if not corr_template:match("^Template:") then
corr_template = "Template:" .. corr_template
end
if not corr_module:match("^Module:") then
corr_module = "Module:" .. corr_module
end
-- If header is none, don't bother
if header == "none" then
return categorize(namespace, pagename)
end
-- Remove doc subpage if present
corr_template = corr_template:gsub("/doc$", "")
corr_module = corr_module :gsub("/doc$", "")
local result = ""
local has_template = page_exists(corr_template)
local has_module = page_exists(corr_module)
-- Handle each header type first, then namespace, then if applicable,
-- presence of a corresponding template or module.
if header == "dualuse" then
-- A dual-use module MUST have a corresponding template; if not, say
-- it's missing.
-- A dual-use template MUST link to its corresponding module; if not,
-- say it's missing (even though it wouldn't work without its module).
if namespace == "Module" then
if has_template then
result = string.format("This module may be invoked by templates using its corresponding [[%s|template]], or used directly from other modules.", corr_template)
else
result = string.format("This module has a template that is currently missing. [[Special:EditPage/%s]]", corr_template)
end
elseif namespace == "Template" then
if has_module then
result = string.format("This template is implemented by the Lua module [[%s]]. See its module page for Lua-based template implementation.", corr_module)
else
result = string.format("This template is implemented by a module that is currently missing. [[Special:EditPage/%s]]", corr_module)
end
else
result = "This template is in the wrong namespace. It should be within the Template or Module namespaces."
end
elseif header == "metatemplate" then
-- A metatemplate-implementing module does not necessarly need to have a
-- template (as infobox was this way before).
-- A metatemplate does not need to be made using Lua.
if namespace == "Module" then
if has_template then
result = string.format("This module implements a metatemplate, and may be invoked by templates using its corresponding [[%s|template]], or used directly from other modules.", corr_template)
else
result = "This module is used to create other Lua-based templates and has no corresponding template."
end
elseif namespace == "Template" then
if has_module then
result = string.format("This template is a metatemplate. It is used to build other templates and should not be used standalone, except for testing or simple usage. This template is implemented by the Lua module [[%s]].", corr_module)
else
result = "This template is a metatemplate. It is used to build other templates and should not be used standalone, except for testing or simple usage."
end
else
result = "This template is in the wrong namespace. It should be within the Template or Module namespaces."
end
elseif header == "noinvoke" then
-- A noinvoke module MUST have a corresponding template. Since this is
-- the default for modules, it should say it's missing a template if it
-- doesn't exist.
-- This type doesn't work on templates, as those are non-Lua templates.
if namespace == "Module" then
if has_template then
result = string.format("This module should not be invoked directly; use its corresponding [[%s|template]] instead.", corr_template)
else
result = string.format("This module implements a template that is currently missing. [[Special:EditPage/%s]]", corr_template)
end
else
result = "This template or its settings is in the wrong namespace. It should be used within the Module namespace."
end
elseif header == "library" or header == "metamodule" then
-- A metamodule should NOT have a corresponding template. This type only
-- works on modules.
if namespace == "Module" then
result = "This module primarily serves as a library for other modules and has no corresponding template."
else
result = "This template or its settings is in the wrong namespace. It should be used within the Module namespace."
end
else
-- For any other case, just say that the module implements a template,
-- or a template invokes a module's function.
if namespace == "Module" then
if has_template and header ~= "" then
result = string.format("%s. This module implements [[%s]].", header, corr_template)
elseif has_template and header == "" then
result = string.format("This module implements [[%s]].", corr_template)
else
result = header
end
elseif namespace == "Template" then
if has_module and header ~= "" then
result = string.format("%s. This template is implemented by the Lua module [[%s]].", header, corr_module)
elseif has_module and header == "" then
result = string.format("This template is implemented by the Lua module [[%s]].", corr_module)
else
result = header
end
else
result = "This template is in the wrong namespace. It should be within the Template or Module namespaces."
end
end
-- Append categorization info to hatnote
-- Check whether hatnote is blank; if so, don't bother with hatnote, just
-- output categories
local has_link = namespace == "Template" and has_module
if result == "" then
return categorize(namespace, pagename, has_link)
else
return string.format(":''%s'' %s\n", result, categorize(namespace, pagename, has_link))
end
end
-- Wrapper to be invoked
function p.dochead(frame)
local args = getArgs(frame, { removeBlanks = true }) or {}
local title = mw.title.getCurrentTitle()
-- Extract or parse args
args["namespace"] = args["namespace"] or title.nsText
args["pagename" ] = args["pagename" ] or title.text
-- Extract header or set it to defaults
if args["header"] == nil or args["header"] == "" then
if args["namespace"] == "Module" then
args["header"] = "noinvoke"
else
args["header"] = ""
end
end
-- Extract template/module names, or autogenerate them
args["temp"] = args["temp"] or ("Template:" .. args["pagename"])
args["mod" ] = args["mod" ] or ("Module:" .. args["pagename"])
return p._dochead(args)
end
return p
.svg){kind=icon}
