Модуль:Надстрочное предупреждение

require( 'strict' )local p = {}local docPage = 'Module:Надстрочное предупреждение'local templateStylesPage = 'Module:Надстрочное предупреждение/styles.css'local defaultClass = 'ts-fix'local defaultErrorCat = '[[Категория:Википедия:Надстрочные предупреждения с некорректно заданной датой]]'local mwLang = mw.getContentLanguage()local getArgs = require( 'Module:Arguments' ).getArgslocal function isEmpty( val )return val == nil or val == ''end-- Комбинация стандартного класса и кастомногоlocal function getHtmlClass( class, val )if isEmpty( class ) thenreturn string.format( '%s-%s', defaultClass, val )endreturn string.format( '%s-%s %s-%s', defaultClass, val, class, val )end-- Игнорирование некорректно указанных дат с помощью стандартных методовlocal function getValidDate( year, month, day )if isEmpty( year ) or isEmpty( month ) or isEmpty( day ) thenreturn nilendlocal dateString = year .. '-' .. month .. '-' .. daylocal success, result = pcall( mwLang.formatDate, mwLang, 'U', dateString )if success thenif tonumber( result ) thenreturn '@' .. resultendendreturn nilend-- Форматирование выделяемого шаблоном текстаlocal function getSpanText( text, class )local tag = mw.html.create( 'span' ):addClass( getHtmlClass( class, 'text' ) )-- TODO: WMF pls fix [[phab:T162379]] / https://phabricator.wikimedia.org/T162379:attr( 'style', '-webkit-box-decoration-break: clone' ):wikitext( text )return tostring( tag )end-- Форматирование комментария как в шаблонеlocal function getComment( comment, link, date )if isEmpty( comment ) and isEmpty( date ) thenreturn nilend-- «Википедия:Нейтральная точка зрения (2 мая 2015)»if isEmpty( comment ) and not isEmpty( date ) thencomment = linkendif isEmpty( comment ) thenreturn nilendlocal delink = require( 'Module:Delink' )._delinkcomment = delink( { comment } )if not isEmpty( date ) thencomment = comment .. mwLang:formatDate( ' (j xg Y)', date )endreturn commentend-- Форматирование ссылки как в шаблонеlocal function getLink( link, text, comment, hasCustomComment )local html = mw.html.create( 'i' )if not isEmpty( comment ) thenlocal span = mw.html.create( 'span' ):attr( 'title', comment ):wikitext( text )if hasCustomComment thenif isEmpty( link ) thenhtml:addClass( defaultClass .. '-comment' )elsehtml:addClass( defaultClass .. '-commented' )endendtext = tostring( span )endif isEmpty( link ) thenhtml:wikitext( text )elsehtml:wikitext( string.format( '[[%s|%s]]', link, text ) )endreturn tostring( html )end-- Форматирование ссылки на обсуждение как в шаблонеlocal function getTalkLink( page, noprint )if not page then return '' end-- Страница обсуждения для текущей статьи в случае отсутствия якоряlocal anchorSymbol = mw.ustring.find( page, '#' )if isEmpty( anchorSymbol ) or anchorSymbol == 1 thenpage = mw.title.getCurrentTitle().talkPageTitle.fullText .. '#' .. mw.text.trim( page, '#' )endlocal result = string.format( ' [[%s|(обс.)]]', page )if isEmpty( noprint ) or not noprint thenlocal html = mw.html.create( 'span' ):addClass( 'noprint' ):wikitext( result )result = tostring( html )endreturn resultend-- Простановка категорийlocal function getCategory( category, config, date )if isEmpty( category ) thenreturn ''endif config == false thenreturn categoryendif isEmpty( date ) thenreturn ''endconfig = ' ' .. ( config or '>= 0' )local mDate = require( 'Module:Date' )._Datelocal today = mwLang:formatDate( 'Y-m-d H:i:s' )local input = mwLang:formatDate( 'Y-m-d H:i:s', date )local diff = ( mDate( today ) - mDate( input ) )local success, result = pcall( mw.ext.ParserFunctions.expr, diff .. config )if success and result == '1' thenreturn categoryendreturn ''endlocal function getError( comment, anchor )local html = mw.html.create( 'strong' ):addClass( defaultClass .. '-error error noprint' ):wikitext( string.format( '[[%s#%s|Ошибка:]] %s', docPage, anchor, comment ) )return tostring( html )end-- Поддержка подстановки без Unsubstfunction p.subst( frame )local args = getArgs( frame, {parentOnly = true,} )local mArgs = getArgs( frame, {removeBlanks = true,} )local mTemplateInvocation = require( 'Module:Template invocation' )local name = mTemplateInvocation.name( frame:getParent():getTitle() )-- Передать все нумерованные параметры из вызова модуляfor key, val in pairs( mArgs ) doif key == tonumber( key ) thenargs[ key ] = valendend-- Чаще всего перенос из других разделов, в случае проблем напишите на СОargs['date'] = nilreturn mTemplateInvocation.invocation( name, args )end---- Модуль на замену шаблону «Надстрочное предупреждение»--function p.main( frame )local args = getArgs( frame )local date = getValidDate( args.year, args.month, args.day )local hasDate = not isEmpty( args.day ) or not isEmpty( args.month ) or not isEmpty( args.year )local isMainNamespace = mw.title.getCurrentTitle().namespace == 0local result = ''-- Поддержка TemplateStyleslocal class = nilif not isEmpty( args.name ) thenclass = 'ts-' .. args.nameendresult = result .. frame:extensionTag{name = 'templatestyles', args = { src = templateStylesPage }}if not isEmpty( args.name ) and not isEmpty( args.templatestyles ) thenresult = result .. frame:extensionTag{name = 'templatestyles', args = { src = args.templatestyles }}end-- Поддержка подстановкиif mw.isSubsting() thenreturn p.subst( frame )end-- Вывод надстрочного предупрежденияlocal tag = mw.html.create( 'sup' ):addClass( getHtmlClass( class, 'template' ) )if not isEmpty( args.noprint ) thentag:addClass( 'noprint' )end-- Вывод ошибки о параметре textif isEmpty( args.text ) thenresult = result .. getError( 'не задан параметр <code>text</code>', 'Использование' )tag:wikitext( result )return tostring( tag )end-- Поддержка параметра {{{span-text|}}}if not isEmpty( args[ 'span-text' ] ) thenresult = result .. getSpanText( args[ 'span-text' ], class )end-- Вывод надстрочного предупрежденияlocal comment = getComment( args.comment or args[ 'comment-default' ], args.link, date )tag:wikitext( '&#91;' ) -- [:wikitext( getLink( args.link, args.text, comment, not isEmpty( args.comment ) ) ):wikitext( getTalkLink( args.talk, args.noprint ) ):wikitext( '&#93;' ) -- ]-- Проверка для категории страниц с некорректным указанием датыlocal errorcat = args.errorcat or defaultErrorCatif hasDate and isEmpty( date ) thenresult = result .. getError( 'некорректно задана дата установки (исправьте через подстановку шаблона)', 'Дата установки' )if isMainNamespace thenresult = result .. errorcatendelseresult = result .. tostring( tag )end-- Поддержка параметра {{{anchor|}}}if not isEmpty( args.anchor ) thenlocal anchor = require( 'Module:Якорь' ).main;result = anchor{ visible = true, text = result, args.anchor }end-- Установка категорийif isEmpty( args.nocat ) and isMainNamespace thenresult = result .. getCategory( args.cat, false )if hasDate thenresult = result .. getCategory( args[ 'cat1' ], args[ 'cat-date1' ], date )result = result .. getCategory( args[ 'cat2' ], args[ 'cat-date2' ], date )result = result .. getCategory( args[ 'cat3' ], args[ 'cat-date3' ], date )endendreturn resultendreturn p