Itaymbere: Criou página com '-------------------------------------------------------------------------------- -- Módulo:Hatnote -- -- -- -- Este módulo produz ligações ('links') para notas de cabeçalho ('hatnotes') -- -- e ligações ('links') para artigos relacionados. Ele implementa as -- -- meta-predefinições {{Nota de cabeçalho}} e {{Format link}...'

2026-03-29T20:10:37Z

Criou página com '-------------------------------------------------------------------------------- -- Módulo:Hatnote -- -- -- -- Este módulo produz ligações ('links') para notas de cabeçalho ('hatnotes') -- -- e ligações ('links') para artigos relacionados. Ele implementa as -- -- meta-predefinições {{Nota de cabeçalho}} e {{Format link}...'

Página nova

--------------------------------------------------------------------------------
-- Módulo:Hatnote --
-- --
-- Este módulo produz ligações ('links') para notas de cabeçalho ('hatnotes') --
-- e ligações ('links') para artigos relacionados. Ele implementa as --
-- meta-predefinições {{Nota de cabeçalho}} e {{Format link}} e inclui --
-- funções auxiliares para outros módulos de notas de cabeçalho ('hatnotes') --
-- 'Lua'. --
--------------------------------------------------------------------------------

local libraryUtil = require('libraryUtil')
local checkType = libraryUtil.checkType
local checkTypeForNamedArg = libraryUtil.checkTypeForNamedArg
local mArguments -- inicializa preguiçosamente [[Módulo:Arguments]]
local yesno -- inicializa preguiçosamente [[Módulo:Yesno]]
local formatLink -- inicializa preguiçosamente [[Módulo:Format link]] ._formatLink

local p = {}

--------------------------------------------------------------------------------
-- Funções auxiliares
--------------------------------------------------------------------------------

local function getArgs(frame)
-- Busca os argumentos do quadro parental. Os espaços em branco são cortados
-- e os espaços em branco são removidos.
mArguments = require('Módulo:Arguments')
return mArguments.getArgs(frame, {parentOnly = true})
end

local function removeInitialColon(s)
-- Remove os dois pontos iniciais de uma sequência ('string'), se presentes.
return s:match('^:?(.*)')
end

function p.defaultClasses(inline)
-- Fornece as classes de notas de cabeçalho ('hatnotes') padrões como uma
-- sequência ('string') separada por espaço; útil para módulos que lidam com
-- notas de cabeçalho ('hatnotes') como [[Módulo:Hatnote group]].
return
(inline == 1 and 'hatnote-inline' or 'hatnote') .. ' ' ..
'navigation-not-searchable'
end

function p.disambiguate(page, disambiguator)
-- Formata um título de página com um parêntese de desambiguação,
-- ou seja, "Exemplo" → "Exemplo (desambiguação)".
checkType('disambiguate', 1, page, 'string')
checkType('disambiguate', 2, disambiguator, 'string', true)
disambiguator = disambiguator or 'desambiguação'
return mw.ustring.format('%s (%s)', page, disambiguator)
end

function p.findNamespaceId(link, removeColon)
-- Localiza o 'ID' do espaço nomeado (número do espaço nomeado) de uma
-- ligação ('link') ou um nome de página. Essa a função não funcionará se a
-- ligação ('link') estiver entre colchetes duplos. Dois pontos são cortados
-- desde o início da ligação ('link') por padrão. Para pular o corte dos dois
-- pontos, defina o parâmetro "removeColon" como falso ('false').
checkType('findNamespaceId', 1, link, 'string')
checkType('findNamespaceId', 2, removeColon, 'boolean', true)
if removeColon ~= false then
link = removeInitialColon(link)
end
local namespace = link:match('^(.-):')
if namespace then
local nsTable = mw.site.namespaces[namespace]
if nsTable then
return nsTable.id
end
end
return 0
end

function p.makeWikitextError(msg, helpLink, addTrackingCategory, title)
-- Formata uma mensagem de erro para ser retornada ao texto wiki. Se
-- "addTrackingCategory" não é falso ('false') após ser retornado a partir de
-- [[Módulo:Yesno]], e se não estivermos em uma página de discussão,
-- uma categoria de rastreamento (manutenção) é adicionada.
checkType('makeWikitextError', 1, msg, 'string')
checkType('makeWikitextError', 2, helpLink, 'string', true)
yesno = require('Módulo:Yesno')
title = title or mw.title.getCurrentTitle()
-- Faz o texto da ligação ('link') de ajuda.
local helpText
if helpLink then
helpText = ' ([[' .. helpLink .. '|ajuda]])'
else
helpText = ''
end
-- Faz o texto da categoria.
local category
if not title.isTalkPage -- Não categoriza as páginas de discussão
and title.namespace ~= 2 -- Não categoriza o espaço do usuário
and yesno(addTrackingCategory) ~= false -- Permite optar por não participar
then
category = '!Predefinições de nota de cabeçalho com erros'
category = mw.ustring.format(
'[[%s:%s]]',
mw.site.namespaces[14].name,
category
)
else
category = ''
end
return mw.ustring.format(
'<strong class="error">Erro: %s%s.</strong>%s',
msg,
helpText,
category
)
end

local curNs = mw.title.getCurrentTitle().namespace
p.missingTargetCat =
-- Categoria de destino ausente padrão, exportada para uso em módulos relacionados
((curNs == 0) or (curNs == 14)) and
'!Artigos com predefinições de nota de cabeçalho direcionados para uma página inexistente' or nil

function p.quote(title)
-- Coloca os títulos entre aspas. Se o título começar/terminar com aspas,
-- ajusta desse lado como com {{-'}}
local quotationMarks = {
["'"]=true, ['"']=true, ['“']=true, ["‘"]=true, ['”']=true, ["’"]=true
}
local quoteLeft, quoteRight = -- Testa se o início/fim são aspas
quotationMarks[string.sub(title, 1, 1)],
quotationMarks[string.sub(title, -1, -1)]
if quoteLeft or quoteRight then
title = mw.html.create("span"):wikitext(title)
end
if quoteLeft then title:css("padding-left", "0.15em") end
if quoteRight then title:css("padding-right", "0.15em") end
return '"' .. tostring(title) .. '"'
end

--------------------------------------------------------------------------------
-- Hatnote
--
-- Produz o texto de nota de cabeçalho ('hatnote') padrão. Implementa a
-- predefinição {{Hatnote}}.
--------------------------------------------------------------------------------

p[''] = function (frame) return p.hatnote(frame:newChild{ title = "Predefinição:Nota de cabeçalho" }) end

function p.hatnote(frame)
local args = getArgs(frame)
local s = args[1]
if not s then
return p.makeWikitextError(
'nenhum texto especificado',
'Predefinição:Hatnote#Erros',
args.category
)
end
return p._hatnote(s, {
extraclasses = args.extraclasses,
selfref = args.selfref
})
end

function p._hatnote(s, options)
checkType('_hatnote', 1, s, 'string')
checkType('_hatnote', 2, options, 'table', true)
options = options or {}
local inline = options.inline
local hatnote = mw.html.create(inline == 1 and 'span' or 'div')
local extraclasses
if type(options.extraclasses) == 'string' then
extraclasses = options.extraclasses
end

hatnote
:attr('role', 'note')
:addClass(p.defaultClasses(inline))
:addClass(extraclasses)
:addClass(options.selfref and 'selfref' or nil)
:wikitext(s)

return mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = 'Módulo:Hatnote/styles.css' }
} .. tostring(hatnote)
end

return p

Módulo:Hatnote - Histórico de revisão