Dzmuh: Новая страница: «local p = {} local yesno = require('Module:Yesno') local getArgs = require('Module:Arguments').getArgs local lists = { {list = {'А', 'Б', 'В', 'Г', 'Д', 'Е...»

2022-01-16T02:23:05Z

Новая страница: «local p = {} local yesno = require('Module:Yesno') local getArgs = require('Module:Arguments').getArgs local lists = { {list = {'А', 'Б', 'В', 'Г', 'Д', 'Е...»

Новая страница

local p = {}
local yesno = require('Module:Yesno')
local getArgs = require('Module:Arguments').getArgs

local lists = {
{list = {'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ы', 'Э', 'Ю', 'Я'}, depth = 0},
{list = {'Абу', 'Бар', 'Ван', 'Гам', 'Дар', 'Евл', 'Жан', 'Зай', 'Иве', 'Йем', 'Кан', 'Лал', 'Мак', 'Най', 'Обу', 'Пас', 'Рай', 'Сан', 'Так', 'Уде', 'Фак', 'Хак', 'Цар', 'Чар', 'Шап', 'Щед', 'Ыгд', 'Эвр', 'Юди', 'Ягу'}, depth = 3},
{list = {'Ада', 'Без', 'Вве', 'Гек', 'Дел', 'Его', 'Жев', 'Зан', 'Идо', 'Йес', 'Кас', 'Лас', 'Мар', 'Нат', 'Ожи', 'Пер', 'Рац', 'Сев', 'Тва', 'Уим', 'Фед', 'Хар', 'Цви', 'Чел', 'Шва', 'Щеп', 'Ыйв', 'Эйф', 'Юли', 'Яко'}, depth = 2},
{list = {'Акт', 'Бер', 'Вес', 'Геф', 'Дец', 'Ежо', 'Жен', 'Зах', 'Ико', 'Йис', 'Ким', 'Лег', 'Мау', 'Ней', 'Оку', 'Пис', 'Рел', 'Сет', 'Тер', 'Улм', 'Фид', 'Хат', 'Цен', 'Чер', 'Шен', 'Щер', 'Ыйр', 'Экт', 'Юнг', 'Яку'}, depth = 3},
{list = {'Алт', 'Бит', 'Вин', 'Гно', 'Дин', 'Ели', 'Жиг', 'Зее', 'Имп', 'Йон', 'Кож', 'Леп', 'Мер', 'Нет', 'Опо', 'Плу', 'Рич', 'Ско', 'Тих', 'Уни', 'Фин', 'Хим', 'Цер', 'Чес', 'Шин', 'Щит', 'Ылг', 'Эли', 'Юри', 'Ямб'}, depth = 1},
{list = {'Анд', 'Бол', 'Вла', 'Гон', 'Дов', 'Епи', 'Жир', 'Зен', 'Инт', 'Йоп', 'Кон', 'Лин', 'Мим', 'Нил', 'Орн', 'Пор', 'Рой', 'Сод', 'Топ', 'Урб', 'Фок', 'Хок', 'Циг', 'Чиж', 'Шма', 'Щук', 'Ымс', 'Энг', 'Юрк', 'Яно'}, depth = 3},
{list = {'Апп', 'Боя', 'Вок', 'Гра', 'Дор', 'Еро', 'Жуа', 'Зин', 'Иос', 'Йос', 'Кра', 'Лов', 'Мож', 'Нов', 'Осл', 'Пре', 'Рот', 'Спе', 'Три', 'Урю', 'Фоф', 'Хоп', 'Цин', 'Чка', 'Шта', 'Щуч', 'Ысп', 'Эпо', 'Юрь', 'Яро'}, depth = 2},
{list = {'Арх', 'Бул', 'Вос', 'Гру', 'Дув', 'Ест', 'Жуп', 'Зом', 'Исм', 'Йот', 'Кря', 'Лук', 'Мот', 'Ном', 'Отк', 'Пуг', 'Рут', 'Стр', 'Тум', 'Утр', 'Фро', 'Хре', 'Цна', 'Чум', 'Шув', 'Щёг', 'Ыты', 'Эсс', 'Юсу', 'Яст'}, depth = 3},
}

local digraphs = {
{'Ав', 'Бв', 'Вв', 'Гв', 'Дв', 'Ев', 'Жв', 'Зв', 'Ив', 'Йв', 'Кв', 'Лв', 'Мв', 'Нв', 'Ов', 'Пв', 'Рв', 'Св', 'Тв', 'Ув', 'Фв', 'Хв', 'Цв', 'Чв', 'Шв', 'Щв', 'Ыв', 'Эв', 'Юв', 'Яв'},
{'Ад', 'Бд', 'Вд', 'Гд', 'Дд', 'Ед', 'Жд', 'Зд', 'Ид', 'Йд', 'Кд', 'Лд', 'Мд', 'Нд', 'Од', 'Пд', 'Рд', 'Сд', 'Тд', 'Уд', 'Фд', 'Хд', 'Цд', 'Чд', 'Шд', 'Щд', 'Ыд', 'Эд', 'Юд', 'Яд'},
{'Аж', 'Бж', 'Вж', 'Гж', 'Дж', 'Еж', 'Жж', 'Зж', 'Иж', 'Йж', 'Кж', 'Лж', 'Мж', 'Нж', 'Ож', 'Пж', 'Рж', 'Сж', 'Тж', 'Уж', 'Фж', 'Хж', 'Цж', 'Чж', 'Шж', 'Щж', 'Ыж', 'Эж', 'Юж', 'Яж'},
{'Аи', 'Би', 'Ви', 'Ги', 'Ди', 'Еи', 'Жи', 'Зи', 'Ии', 'Йи', 'Ки', 'Ли', 'Ми', 'Ни', 'Ои', 'Пи', 'Ри', 'Си', 'Ти', 'Уи', 'Фи', 'Хи', 'Ци', 'Чи', 'Ши', 'Щи', 'Ыж', 'Эи', 'Юи', 'Яи'},
{'Ал', 'Бл', 'Вл', 'Гл', 'Дл', 'Ел', 'Жл', 'Зл', 'Ил', 'Йл', 'Кл', 'Лл', 'Мл', 'Нл', 'Ол', 'Пл', 'Рл', 'Сл', 'Тл', 'Ул', 'Фл', 'Хл', 'Цл', 'Чл', 'Шл', 'Щл', 'Ыл', 'Эл', 'Юл', 'Ял'},
{'Ан', 'Бн', 'Вн', 'Гн', 'Дн', 'Ен', 'Жн', 'Зн', 'Ин', 'Йн', 'Кн', 'Лн', 'Мн', 'Нн', 'Он', 'Пн', 'Рн', 'Сн', 'Тн', 'Ун', 'Фн', 'Хн', 'Цн', 'Чн', 'Шн', 'Щн', 'Ын', 'Эн', 'Юн', 'Ян'},
{'Ап', 'Бп', 'Вп', 'Гп', 'Дп', 'Еп', 'Жп', 'Зп', 'Ип', 'Йп', 'Кп', 'Лп', 'Мп', 'Нп', 'Оп', 'Пп', 'Рп', 'Сп', 'Тп', 'Уп', 'Фп', 'Хп', 'Цп', 'Чп', 'Шп', 'Щп', 'Ып', 'Эп', 'Юп', 'Яп'},
{'Ас', 'Бс', 'Вс', 'Гс', 'Дс', 'Ес', 'Жс', 'Зс', 'Ис', 'Йс', 'Кс', 'Лс', 'Мс', 'Нс', 'Ос', 'Пс', 'Рс', 'Сс', 'Тс', 'Ус', 'Фс', 'Хс', 'Цс', 'Чс', 'Шс', 'Щс', 'Ыс', 'Эс', 'Юс', 'Яс'},
{'Ау', 'Бу', 'Ву', 'Гу', 'Ду', 'Еу', 'Жу', 'Зу', 'Иу', 'Йу', 'Ку', 'Лу', 'Му', 'Ну', 'Оу', 'Пу', 'Ру', 'Су', 'Ту', 'Уу', 'Фу', 'Ху', 'Цу', 'Чу', 'Шу', 'Щу', 'Ыу', 'Эу', 'Юу', 'Яу'},
{'Ах', 'Бх', 'Вх', 'Гх', 'Дх', 'Ех', 'Жх', 'Зх', 'Их', 'Йх', 'Кх', 'Лх', 'Мх', 'Нх', 'Ох', 'Пх', 'Рх', 'Сх', 'Тх', 'Ух', 'Фх', 'Хх', 'Цх', 'Чх', 'Шх', 'Щх', 'Ых', 'Эх', 'Юх', 'Ях'},
{'Ач', 'Бч', 'Вч', 'Гч', 'Дч', 'Еч', 'Жч', 'Зч', 'Ич', 'Йч', 'Кч', 'Лч', 'Мч', 'Нч', 'Оч', 'Пч', 'Рч', 'Сч', 'Тч', 'Уч', 'Фч', 'Хч', 'Цч', 'Чч', 'Шч', 'Щч', 'Ыч', 'Эч', 'Юч', 'Яч'},
{'Ащ', 'Бщ', 'Вщ', 'Гщ', 'Дщ', 'Ещ', 'Жщ', 'Зщ', 'Ищ', 'Йщ', 'Кщ', 'Лщ', 'Мщ', 'Нщ', 'Ощ', 'Пщ', 'Рщ', 'Сщ', 'Тщ', 'Ущ', 'Фщ', 'Хщ', 'Цщ', 'Чщ', 'Шщ', 'Щщ', 'Ыщ', 'Эщ', 'Ющ', 'Ящ'},
{'Аю', 'Бю', 'Вю', 'Гю', 'Дю', 'Ею', 'Жю', 'Зю', 'Ию', 'Йю', 'Кю', 'Лю', 'Мю', 'Ню', 'Ою', 'Пю', 'Рю', 'Сю', 'Тю', 'Ую', 'Фю', 'Хю', 'Цю', 'Чю', 'Шю', 'Щю', 'Ыю', 'Эю', 'Юю', 'Яю'},
}

local NS_CAT = mw.site.namespaces[14].name
local CONTENT = 'Оглавление:'
local TO_START = '…в начало'
local START = 'Начало'
local BULL = '•'

local function bold(t)
return "'''" .. t .. "'''"
end

local function italic(t)
return "''" .. t .. "''"
end

local function link(name, text, par)
return '[' .. tostring(mw.uri.fullUrl(NS_CAT .. ':' .. name, par)) .. ' ' .. text .. ']'
end

local function check_i_template(i, letter_10, letter_27)
if i == 10 then
return letter_10
end
if i == 27 then
return letter_27
end
return true
end

local function td_link_template(pagename, td, v, text)
td:wikitext(link(pagename, text or v, {from = v}))
end

function p.three_letters(frame)
local args = getArgs(frame)
local wt = mw.html.create('table'):addClass('plainlinks'):css('border', '1px solid #a2a9b1'):css('background-color', '#f8f9fa'):css('padding', '5px'):css('font-size', '95%'):css('margin-left', 'auto'):css('margin-right', 'auto')
local letter_10 = yesno(args['Й'])
local letter_27 = yesno(args['Ы'])
local depth = tonumber(args.depth or 0)
local nocyr = yesno(args.nocyr)
local lat = (yesno(args.lat) or depth >=3) and not yesno(args.nolat)
local smallat = yesno(args.smallat)
local pagename = args.name or args['имя'] or mw.title.getCurrentTitle().text
local row = wt:tag('tr')
local td = row:tag('td'):css('text-align', 'left')
td:attr('colspan', 14 + (letter_10 and 1 or 0))
td:wikitext(bold(CONTENT))
td = row:tag('td'):css('text-align', 'right')
td:attr('colspan', 14 + (letter_27 and 1 or 0))
td:wikitext(italic(link(pagename, TO_START, {})))
local function check_i(i)
return check_i_template(i, letter_10, letter_27)
end
local function td_link(td, v)
td_link_template(pagename, td, v)
end
if not nocyr then
for _, data in ipairs(lists) do
if data.depth <= depth then
row = wt:tag('tr')
for i, v in ipairs(data.list) do
if check_i(i) then
td_link(row:tag('td'), v)
end
end
end
end
end
local function latin_row(a, z)
local upA = mw.ustring.codepoint(a)
local upZ = mw.ustring.codepoint(z)
row = wt:tag('tr')
row:tag('td') -- 26 букв против 28+ букв кириллицы
if letter_10 then row:tag('td') end
for i = upA, upZ do
td_link(row:tag('td'), mw.ustring.char(i))
end
row:tag('td')
if letter_27 then row:tag('td') end
end
if lat then
latin_row('A','Z')
end
if smallat then
latin_row('a', 'z')
end
return tostring(wt)
end

function p.two_letters(frame)
local args = getArgs(frame)
local wt = mw.html.create('table'):addClass('plainlinks'):css('border', '1px solid #aaa'):css('background-color', '#f9f9f9'):css('padding', '5px'):css('font-size', '95%'):css('margin-left', 'auto'):css('margin-right', 'auto')
local letter_10 = yesno(args['Й'])
local letter_27 = yesno(args['Ы'])
local use_digits = yesno(args['NN'])
local pagename = args.name or args['имя'] or mw.title.getCurrentTitle().text

local row = wt:tag('tr')
local td = row:tag('td'):css('text-align', 'left')
td:attr('colspan', 14 + (letter_10 and 1 or 0) + (use_digits and 1 or 0))
td:wikitext(bold(CONTENT))
td = row:tag('td'):css('text-align', 'right')
td:attr('colspan', 14 + (letter_27 and 1 or 0))
td:wikitext(italic(link(pagename, TO_START, {})))
local function check_i(i)
return check_i_template(i, letter_10, letter_27)
end
local function td_link(td, v)
td_link_template(pagename, td, v)
end
row = wt:tag('tr')
if use_digits then
row:tag('td'):wikitext(bold(link(pagename, '0—9', {from='0'})))
end
for i, v in ipairs(lists[1].list) do
if check_i(i) then
td = row:tag('td')
td_link(td, v)
td:css('font-weight', 'bold')
end
end
for j, list in ipairs(digraphs) do
row = wt:tag('tr')
if use_digits then
td = row:tag('td')
if j <= 10 then
td_link(td, tostring(j-1))
end
end
for i, v in ipairs(list) do
if check_i(i) then
td_link(row:tag('td'), v)
end
end
end
return tostring(wt)
end

function p.only_cyrillic(frame)
local args = getArgs(frame)
local wt = mw.html.create('table'):addClass('plainlinks'):css('border', '1px solid #aaaaaa'):css('background-color', '#f9f9f9'):css('padding', '5px'):css('font-size', '95%'):attr('align', 'center')
-- в отличие от двух предыдущих реализаций здесь используется Ё, поэтому приходится отдельно задавать алфавит для наглядности
local letter_28 = yesno(args['Ы'])
local pagename = args.name or args['имя'] or mw.title.getCurrentTitle().text
local row = wt:tag('tr')
row:tag('td'):css('text-align', 'left'):wikitext(bold(CONTENT))
row:tag('td'):wikitext(link(pagename, '*', {}))
local cyr_letters = {'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ё', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Э', 'Ю', 'Я'}
if letter_28 then
table.insert(cyr_letters, 28, 'Ы')
end
for _, v in ipairs(cyr_letters) do
td_link_template(pagename, row:tag('td'), v)
end
return tostring(wt)
end

function p.only_numbers(frame)
local args = getArgs(frame)
local wt = mw.html.create('table'):addClass('plainlinks'):css('border', '1px solid #aaaaaa'):css('background-color', '#f9f9f9'):css('padding', '5px'):css('font-size', '95%'):attr('align', 'center')
local step = tonumber(args.step or args['шаг'] or 100)
local max_val = tonumber(args.max or args['макс'] or 1000)
local pagename = args.name or args['имя'] or mw.title.getCurrentTitle().text
local use_letters = yesno(args.letters or args['А']) --русская А
local row = wt:tag('tr')
row:tag('td'):wikitext(link(pagename, START, {}))
local i = 0
repeat
td_link_template(pagename, row:tag('td'), tostring(i))
i = i + step
until i > max_val
if use_letters then
td_link_template(pagename, row:tag('td'), 'А')
end
return tostring(wt)
end

local function yesno_from_arg_or_true(args, en, ru)
local raw = args[en] or args[ru]
if raw then
return yesno(raw)
else
return true
end
end

function p.single_line(frame)
local args = getArgs(frame)
local pagename = args.name or args['имя'] or mw.title.getCurrentTitle().text
local num = mw.site.stats.pagesInCategory(pagename)
local force = yesno(args.force or args['всегда'])
if num > 200 or force then
local wt = mw.html.create('table'):addClass('plainlinks'):css('border', '1px solid #aaaaaa'):css('background-color', '#f9f9f9'):css('padding', '5px'):css('font-size', '95%'):attr('align', 'center')
local row = wt:tag('tr')
row:tag('td'):wikitext(link(pagename, START, {}))
if yesno_from_arg_or_true(args, 'numerals', 'числа') then
row:tag('td'):wikitext(BULL)
td_link_template(pagename, row:tag('td'), '0', '0–9')
end
-- латинские имена параметров из совместимости, рекомендуется использовать кириллические
if yesno_from_arg_or_true(args, 'up', 'кир') then
row:tag('td'):wikitext(BULL)
local cyr_letters = {'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Э', 'Ю', 'Я'}
for _, v in ipairs(cyr_letters) do
td_link_template(pagename, row:tag('td'), v)
end
end
if yesno_from_arg_or_true(args, 'up-lat', 'лат') then
row:tag('td'):wikitext(BULL)
local upA = mw.ustring.codepoint('A')
local upZ = mw.ustring.codepoint('Z')
for i = upA, upZ do
td_link_template(pagename, row:tag('td'), mw.ustring.char(i))
end
end
return tostring(wt)
else
-- 200 страниц и так умещаются на одном экране
return ''
end
end

function p.custom(frame)
local args = getArgs(frame)
local pagename = args.name or args['имя'] or mw.title.getCurrentTitle().text
local num = mw.site.stats.pagesInCategory( 'Незавершённые статьи по химии')
local div = mw.html.create('div'):addClass('plainlinks'):css('border', '1px solid #aaaaaa'):css('background-color', '#f9f9f9'):css('padding', '5px'):css('font-size', '95%'):attr('align', 'center')
local class = args.class or 'hlist'
div:addClass(class)
local n = require('Module:TableTools').length(args)
local res = {'\n*' .. link(pagename, START, {})}
local function add_link(v)
table.insert(res, link(pagename, v, {from = v}))
end
for i = 1, n do
add_link(args[i])
end
if yesno(args.cyr or args['кир']) then
local cyr_letters = {'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Э', 'Ю', 'Я'}
for _, v in ipairs(cyr_letters) do
add_link(v)
end
end
if yesno(args.lat or args['лат']) then
local upA = mw.ustring.codepoint('A')
local upZ = mw.ustring.codepoint('Z')
for i = upA, upZ do
add_link(mw.ustring.char(i))
end
end
div:wikitext(table.concat(res, '\n*'))
return tostring(div)
end

return p

Модуль:Индекс категории - История изменений

Dzmuh: Новая страница: «local p = {} local yesno = require('Module:Yesno') local getArgs = require('Module:Arguments').getArgs local lists = { {list = {'А', 'Б', 'В', 'Г', 'Д', 'Е...»