Модуль:ФИО
Внешний вид
Модуль, реализующий шаблон {{ФИО}}.
local get_args = require('Модуль:Arguments').getArgs
local mHatnote = require('Модуль:Hatnote')
local mOtheruses = require('Модуль:Другие значения')
local current_title = mw.title.getCurrentTitle().text
local p = {}
local templates = {
'[сС]писок однофамильцев',
'[сС]писок т[ёе]зок',
'[сС]писок полных т[ёе]зок',
'[сС]писок однофамильцев-т[eё]зок',
'[сС]писок т[её]зок-однофамильцев'
}
local disambig_box_names = {
'[нН]еоднозначность',
'[мМ]ногозначность',
'[dD]isambig'
}
local disambig_box_params = {
'[фФ]амилии',
'[оО]днофамильцы',
'[тТ][ёе]зки',
'[оО]днофамильцы-т[ёе]зки',
'[пП]олные т[ёе]зки'
}
local tracking_categories = {
bad_link = 'Викиучебник:Страницы с шаблоном ФИО со ссылкой на общие неоднозначности',
no_links = 'Викиучебник:Страницы с шаблоном ФИО без ссылок'
}
function is_surname_disambig(title)
local page = mw.title.new(title)
if not page.exists or mw.title.equals(page, mw.title.getCurrentTitle()) then
return false
end
local page_content = page:getContent():gsub('<[^>]*>', '')
for i, template in ipairs(templates) do
if mw.ustring.match(page_content, '{{' .. template) then
return true
end
end
for i, name in ipairs(disambig_box_names) do
for j, param in ipairs(disambig_box_params) do
if mw.ustring.match(page_content, string.format('{{%s[^}]*%s', name, param)) then
return true
end
end
end
return false
end
function get_items(title)
title = mHatnote.remove_precision{title or current_title}
local surname = title:match('^[^,]+')
local surname_with_name = title:match('^[^,]+,%s[^%s]+')
local full_name = title:match('^[^,]+,%s[^%s]+%s[^%s]+')
return {surname, surname_with_name, full_name}
end
function find_disambig(title, categories)
local disambig_page = ''
local without = mHatnote.remove_precision{title or current_title}
local with = without .. ' (значения)'
if is_surname_disambig(without) then
disambig_page = without
elseif is_surname_disambig(with) then
disambig_page = with
elseif mw.title.new(with).exists then
categories:add('bad_link')
disambig_page = with
elseif mHatnote.is_disambig{without} then
categories:add('bad_link')
disambig_page = without
end
return disambig_page, without
end
p['ФИО'] = function (frame)
local args = get_args(frame)
local title = args.title or args[1]
local categories = mHatnote.make_categories(tracking_categories)
local hatnote_args = {
prefix = 'В Викиучебнике есть статьи о других людях с такой фамилией, см.',
list_sep = '; ',
hide_disambig = true,
dot = true,
preview_error = true,
natural_join = false
}
local found = false
local lNum = 0
for i, v in ipairs(get_items(title)) do
a,b = find_disambig(v, categories)
if a~='' and a~=title and a~=current_title then
lNum = lNum + 1
hatnote_args[lNum], hatnote_args['l' .. lNum] = a,b
found=true
end
end
if found then
return mHatnote.main(hatnote_args) .. categories
else
return ''
end
end
function tgen(frame, type, num)
return function (frame)
local args = get_args(frame)
local categories = mHatnote.make_categories(tracking_categories)
local hatnote_args = {
type = type,
preview_error = true
}
local i = 1
repeat
local link, label = find_disambig(get_items(args[i])[num], categories)
hatnote_args[i] = link or args[i]
hatnote_args['l' .. i] = args['l' .. i] or label
i = i + 1
until not args[i]
return mOtheruses.main(hatnote_args) .. categories
end
end
p['однофамильцы'] = tgen(frame, 'фамилия', 1)
p['однофамильцы-тёзки'] = tgen(frame, 'имя и фамилия', 2)
p['полные тёзки'] = tgen(frame, 'фио', 3)
return p