Редактирование: Модуль:Hatnote

Перейти к навигации Перейти к поиску

Примечание. Ваши правки будут показаны в статье только после их проверки участником с соответствующими правами.

Правка может быть отменена. Проверьте сравнение версий ниже и нажмите «Записать страницу».
Если отменяемые вами изменения не вандализм, пожалуйста, допишите причину в описании правки.

Текущая версия Ваш текст
Строка 1: Строка 1:
local get_args = require('Module:Arguments').getArgs
--------------------------------------------------------------------------------
local mError
--                              Module:Hatnote                                --
local yesno = function (v) return require('Module:Yesno')(v, true) end
--                                                                            --
-- This module produces hatnote links and links to related articles. It      --
-- implements the {{hatnote}} and {{format link}} meta-templates and includes --
-- helper functions for other Lua hatnote modules.                            --
--------------------------------------------------------------------------------


local p, tr = {}, {}
local libraryUtil = require('libraryUtil')
local current_title = mw.title.getCurrentTitle()
local checkType = libraryUtil.checkType
local tracking_categories = {
local checkTypeForNamedArg = libraryUtil.checkTypeForNamedArg
no_prefix = 'Викимультия:Страницы с модулем Hatnote без указания префикса',
local mArguments -- lazily initialise [[Module:Arguments]]
no_links = 'Викимультия:Страницы с модулем Hatnote без ссылок',
local yesno -- lazily initialise [[Module:Yesno]]
red_link = 'Викимультия:Страницы с модулем Hatnote с красной ссылкой',
local formatLink -- lazily initialise [[Module:Format link]] ._formatLink
bad_format = 'Викимультия:Страницы с модулем Hatnote с некорректно заполненными параметрами',
unparsable_link = 'Викимультия:Страницы с модулем Hatnote с нечитаемой ссылкой',
formatted = 'Викимультия:Страницы с модулем Hatnote с готовым форматированием',
}


local function index(t1, t2)
local p = {}
return setmetatable(t1, {__index = t2})
end


local function concat(e1, e2)
--------------------------------------------------------------------------------
return tostring(e1) .. tostring(e2)
-- Helper functions
end
--------------------------------------------------------------------------------


function tr.define_categories(tracked_cases)
local curNs = mw.title.getCurrentTitle().namespace
local categories = setmetatable({}, {
p.missingTargetCat =
__tostring = function (self) return table.concat(self) end,
--Default missing target category, exported for use in related modules
__concat = concat
((curNs ==  0) or (curNs == 14)) and
})
'Articles with hatnote templates targeting a nonexistent page' or nil


function categories:add(element, nocat)
local function getArgs(frame)
if not nocat then
-- Fetches the arguments from the parent frame. Whitespace is trimmed and
local cat_name
-- blanks are removed.
if tracked_cases and tracked_cases[element] then
mArguments = require('Module:Arguments')
cat_name = tracked_cases[element]
return mArguments.getArgs(frame, {parentOnly = true})
else
cat_name = element
end
table.insert(self, string.format('[[Категория:%s]]', cat_name))
end
end
return categories
end
end


function tr.error(msg, categories, preview_only)
local function removeInitialColon(s)
local current_frame = mw.getCurrentFrame()
-- Removes the initial colon from a string, if present.
local parent_frame = current_frame:getParent()
return s:match('^:?(.*)')
local res_frame_title = parent_frame and parent_frame:getTitle() ~= current_title.prefixedText and
parent_frame:getTitle() or
current_frame:getTitle()
if not preview_only or current_frame:preprocess('{{REVISIONID}}') == '' then
mError = require('Module:Error')
return mError.error{
tag = 'div',
string.format('Ошибка в [[%s]]: %s.'
.. (preview_only and '<br><small>Это сообщение показывается только во время предпросмотра.</small>' or ''), res_frame_title, msg)
} .. categories
else
return categories
end
end
end


function p.parse_link(frame)
function p.findNamespaceId(link, removeColon)
local args = get_args(frame)
-- Finds the namespace id (namespace number) of a link or a pagename. This
local link = args[1]:gsub('\n', '')
-- function will not work if the link is enclosed in double brackets. Colons
local label
-- are trimmed from the start of the link by default. To skip colon
-- trimming, set the removeColon parameter to false.
link = mw.text.trim(link:match('^%[%[([^%]]+)%]%]$') or link)
checkType('findNamespaceId', 1, link, 'string')
if link:sub(1, 1) == '/' then
checkType('findNamespaceId', 2, removeColon, 'boolean', true)
label = link
if removeColon ~= false then
link = current_title.prefixedText .. link
link = removeInitialColon(link)
end
end
link = link:match(':?(.+)')
local namespace = link:match('^(.-):')
if link:match('|') then
if namespace then
link, label = link:match('^([^%|]+)%|(.+)$')
local nsTable = mw.site.namespaces[namespace]
end
if nsTable then
return nsTable.id
if not mw.title.new(link) then
end
return nil, nil
end
end
return 0
return link, label
end
end


function p.format_link(frame)
function p.makeWikitextError(msg, helpLink, addTrackingCategory, title)
-- {{ссылка на раздел}}
-- Formats an error message to be returned to wikitext. If
local args = get_args(frame)
-- addTrackingCategory is not false after being returned from
local link, section, label = args[1], args[2], args[3]
-- [[Module:Yesno]], and if we are not on a talk page, a tracking category
-- is added.
if not link then
checkType('makeWikitextError', 1, msg, 'string')
link = current_title.prefixedText
checkType('makeWikitextError', 2, helpLink, 'string', true)
if section then
yesno = require('Module:Yesno')
link = '#' .. section
title = title or mw.title.getCurrentTitle()
label = label or '§&nbsp;' .. section
-- Make the help link text.
end
local helpText
if helpLink then
helpText = ' ([[' .. helpLink .. '|help]])'
else
else
local parsed_link, parsed_label = p.parse_link{link}
helpText = ''
if parsed_link then
link = parsed_link
else
return link
end
if section and not link:match('#') then
link = link .. '#' .. section
if parsed_label then
parsed_label = parsed_label .. '#' .. section
end
end
label = (label or parsed_label or link):gsub('^([^#]-)#(.+)$', '%1 §&nbsp;%2')
end
end
-- Make the category text.
if label and label ~= link then
local category
return string.format('[[:%s|%s]]', link, label)
if not title.isTalkPage -- Don't categorise talk pages
and title.namespace ~= 2 -- Don't categorise userspace
and yesno(addTrackingCategory) ~= false -- Allow opting out
then
category = 'Hatnote templates with errors'
category = mw.ustring.format(
'[[%s:%s]]',
mw.site.namespaces[14].name,
category
)
else
else
return string.format('[[:%s]]', link)
category = ''
end
end
return mw.ustring.format(
'<strong class="error">Error: %s%s.</strong>%s',
msg,
helpText,
category
)
end
end


function p.remove_precision(frame)
function p.disambiguate(page, disambiguator)
-- {{без уточнения}}
-- Formats a page title with a disambiguation parenthetical,
local args = get_args(frame)
-- i.e. "Example" → "Example (disambiguation)".
local title = args[1]
checkType('disambiguate', 1, page, 'string')
checkType('disambiguate', 2, disambiguator, 'string', true)
return title:match('^(.+)%s+%b()$') or title
disambiguator = disambiguator or 'disambiguation'
return mw.ustring.format('%s (%s)', page, disambiguator)
end
end


function p.is_disambig(frame)
--------------------------------------------------------------------------------
local args = get_args(frame)
-- Hatnote
local title = args[1]
--
local page = mw.title.new(title)
-- Produces standard hatnote text. Implements the {{hatnote}} template.
--------------------------------------------------------------------------------
if not page or not page.exists or mw.title.equals(page, current_title) then
 
return false
function p.hatnote(frame)
local args = getArgs(frame)
local s = args[1]
if not s then
return p.makeWikitextError(
'no text specified',
'Template:Hatnote#Errors',
args.category
)
end
end
return p._hatnote(s, {
local page_content = page:getContent()
extraclasses = args.extraclasses,
local mw_list_content = mw.title.new('MediaWiki:Disambiguationspage'):getContent()
selfref = args.selfref
local lang = mw.language.getContentLanguage()
})
for template in mw.ustring.gmatch(mw_list_content, '%*%s?%[%[Шаблон:([^%]]+)') do
if page_content:match('{{' .. template) or page_content:match('{{' .. lang:lcfirst(template)) then
return true
end
end
return false
end
end


function p.list(frame)
function p._hatnote(s, options)
local args = get_args(frame, {trim = false})
checkType('_hatnote', 1, s, 'string')
local list_sep = args.list_sep or args['разделитель списка'] or ', '
checkType('_hatnote', 2, options, 'table', true)
local last_list_sep = yesno(args.natural_join) ~= false and ' и ' or list_sep
options = options or {}
local links_ns = args.links_ns or args['ПИ ссылок']
local inline = options.inline
local bold_links = yesno(args.bold_links or args['ссылки болдом'])
local hatnote = mw.html.create(inline == 1 and 'span' or 'div')
 
local extraclasses
local res_list = {}
if type(options.extraclasses) == 'string' then
local tracked = {
extraclasses = options.extraclasses
red_link = false,
bad_format = false,
formatted = false,
unparsable_link = false
}
local i = 1
while args[i] do
local link = args[i]
local label = args['l' .. i]
local element = ''
if link:match('<span') then -- TODO: переписать
tracked.formatted = true
element = link -- for {{не переведено}}
else
local bad_format = (link:match('|') or link:match('[%[%]]')) ~= nil
local parsed_link, parsed_label = p.parse_link{link}
if parsed_link then
tracked.bad_format = tracked.bad_format or bad_format
if links_ns then
parsed_label = parsed_label or parsed_link
parsed_link = mw.site.namespaces[links_ns].name .. ':' .. parsed_link
end
local title = mw.title.new(parsed_link)
tracked.red_link = tracked.red_link or not (title.isExternal or title.exists)
element = p.format_link{parsed_link, nil, label or parsed_label}
else
tracked.unparsable_link = true
element = link
end
end
if bold_links then
element = string.format('<b>%s</b>', element)
end
table.insert(res_list, element)
i = i + 1
end
end
return setmetatable(res_list, {
__index = tracked,
__tostring = function (self) return mw.text.listToText(self, list_sep, last_list_sep) end,
__concat = concat,
__pairs = function (self) return pairs(tracked) end
})
end


function p.hatnote(frame)
hatnote
local args = get_args(frame)
:attr('role', 'note')
local text = args[1]
:addClass(inline == 1 and 'hatnote-inline' or 'hatnote')
local id = args.id
local extraclasses = args.extraclasses
local hide_disambig = yesno(args.hide_disambig)
local res = mw.html.create('div')
:attr('id', id)
:addClass('hatnote')
:addClass('navigation-not-searchable')
:addClass('navigation-not-searchable')
:addClass(extraclasses)
:addClass(extraclasses)
:wikitext(text)
:addClass(options.selfref and 'selfref')
:wikitext(s)
if hide_disambig then
res:addClass('dabhide')
end
return res
end
 
function p.main(frame, _tracking_categories)
local args = get_args(frame, {trim = false})
local prefix = args.prefix or args['префикс']
local prefix_plural = args.prefix_plural or args['префикс мн. ч.']
local sep = args.sep or args['разделитель'] or ' '
local dot = yesno(args.dot or args['точка']) and '.' or ''
local nocat = yesno(args.nocat)
local preview_error = yesno(args.preview_error)
local empty_list_message = args.empty_list_message or 'Не указано ни одной страницы'
categories = tr.define_categories(index(_tracking_categories or {}, tracking_categories))
 
if not prefix then
categories:add('no_prefix', nocat)
return tr.error('Не указан префикс', categories)
end
if not args[1] then
categories:add('no_links', nocat)
return tr.error(empty_list_message, categories, preview_error)
end
if args[2] and prefix_plural then
prefix = prefix_plural
end
local list = p.list(args)
for k, v in pairs(list) do
if type(v) == 'boolean' and v then
categories:add(k, nocat)
end
end
return p.hatnote(index({prefix .. sep .. list .. dot}, args)) .. categories
return mw.getCurrentFrame():extensionTag{
name = 'templatestyles', args = { src = 'Module:Hatnote/styles.css' }
} .. tostring(hatnote)
end
end


return index(p, tr)
return p

Быстрая вставка: «» „“ | {{}} [[]] [] [[|]] {{|}} {{подст:}} <br> &nbsp; #перенаправление [[]] [[Категория:]] {{DEFAULTSORT:}} [[Участник:]] {{u|}} {{userlinks|}} {{ping|}} {{pagelinks|}} {{D-|}} [[d:|]] ~~~~

__NOTOC__ __TOC__ __FORCETOC__   [[ ()|]] [[ (фильм)|]] {{commonscat|}} [[wikt:]] [[Special:Diff/|]] [[Special:Permalink/|]] [[Special:Contributions/]]

Теги: <></>   <!-- -->   <blockquote></blockquote>   <code></code>   <code><nowiki></nowiki></code>   <nowiki></nowiki>   <includeonly></includeonly>   <noinclude></noinclude>   <onlyinclude></onlyinclude>   <poem></poem>   <pre></pre>   <s></s>   <small></small>   <syntaxhighlight lang=""></syntaxhighlight>   <sub></sub>   <sup></sup>

Теги галереи файлов: <gallery></gallery>   <gallery class="center" caption=""></gallery>   <gallery mode="packed" heights="" caption=""></gallery>

Разделы: == ==   === ===   == См. также ==   == Примечания == {{примечания}}   == Литература ==   == Ссылки ==

Шаблоны: {{tl|}}   {{cl|}}   {{clear}}   {{lang-en|}}   {{ref-en}}   {{s|}}   {{неоднозначность}}   {{колонки}}{{колонки|конец}}   {{подст:L}}   {{начало цитаты}}{{конец цитаты|источник=}}   {{hello}}~~~~  

Источники: <ref></ref>   <ref name=""></ref>   <ref name="" />   <ref group=""></ref>   {{ref+||group=""}}  

Символы: Ё ё ~ # @ § · ¡ ¿ \ ½ ¼ ¾ ± × ÷ ° ^ ¹ ² ³ £ ¥ $ ¢ © ® {{подст:ударение}}

Греческий алфавит: Α α Β β Γ γ Δ δ Ε ε Ζ ζ Η η Θ θ Ι Ϊ ι ϊ Κ κ Λ λ Μ μ Ν ν Ξ ξ Ο ο Π π Ρ ρ Σ σ ς Τ τ Υ Ϋ υ ϋ Φ φ Χ χ Ψ ψ Ω ω