Modul:Fejléc
Megjelenés
Ez a {{fej}}
(?) sablon megvalósítása Luában.
local p = {}
local getArgs = require( 'Modul:Arguments' ).getArgs
local function getIdFromStatement( s )
if s and s.mainsnak and s.mainsnak.snaktype == 'value' and s.mainsnak.datavalue.type == 'wikibase-entityid' then
return s.mainsnak.datavalue.value.id
else
return nil
end
end
local function getSourceWorkId( entity )
local sources = entity:getBestStatements( 'P629' )
if #sources == 1 then
return getIdFromStatement( sources[1] )
else
return nil
end
end
local function formatStatement( entity, prop )
if entity then
if #entity:getBestStatements( prop ) > 0 then
local map = entity:formatStatements( prop )
if map and map.value and map.value ~= '' then
return map.value
end
end
local source = getSourceWorkId( entity )
if source then
return formatStatement( mw.wikibase.getEntity( source ), prop )
end
end
return nil
end
local function makeLink( str )
if mw.title.new( str ) then -- valid title
return string.format( '[[Szerző:%s|%s]]', str, str )
else
return str
end
end
local function getAuthorCategories( entity, cats )
local authors = entity:getBestStatements( 'P50' )
if #authors > 0 then
for _, v in ipairs( authors ) do
local aut = getIdFromStatement( v )
if aut then
for _, w in ipairs( mw.wikibase.getBestStatements( aut, 'P910' ) ) do
local cat = getIdFromStatement( w )
if cat and mw.wikibase.getSitelink( cat ) then
cat = mw.title.new( mw.wikibase.getSitelink( cat ) )
if cat and cat.namespace == 14 then
table.insert( cats, cat.text )
end
end
end
end
end
else
local source = getSourceWorkId( entity )
if source then
getAuthorCategories( mw.wikibase.getEntity( source ), cats )
end
end
end
local function makeTable( args )
local function getAuthors( parentNode )
local ass = {}
if args.aut_np then
table.insert( ass, args.aut_np )
elseif args.aut then
table.insert( ass, string.format( 'szerző: %s', makeLink( args.aut ) ) )
else
local aut = formatStatement( args.entity, 'P50' )
if aut then
table.insert( ass, string.format( 'szerző: %s', aut ) )
end
end
if args.trans then
if args.trans == '?' or mw.ustring.lower( args.trans ) == 'ismeretlen' then
table.insert( ass, 'ismeretlen fordító' )
--[=[ ilyen még nincs
elseif mw.ustring.lower( args.trans ) == 'wikiforrás' then
table.insert( ass, 'fordította a [[Wikiforrás:Fordítások|Wikiforrás]]' )
]=]
else
table.insert( ass, string.format( 'fordító: %s', makeLink( args.trans ) ) )
end
else
local trans = formatStatement( args.entity, 'P655' )
if trans then
table.insert( ass, string.format( 'fordító: %s', trans ) )
end
end
if #ass > 0 then
parentNode:tag( 'br' )
parentNode:tag( 'i' ):wikitext( table.concat( ass, ', ' ) )
end
end
local header = mw.html.create( 'div' )
:attr( 'id', 'fejsablon' )
:addClass( 'fejsablon' )
local prev = header:tag( 'div' ):addClass( 'fejsablon_elozo' )
if args.prev then
prev:tag( 'span' )
:attr( 'id', 'fejsablonelozo' )
:wikitext( '← ' .. args.prev )
end
local title = header:tag( 'div' ):addClass( 'fejsablon_cim' )
title:tag( 'b' ):wikitext( args.tit or 'Címtelen' )
getAuthors( title )
if args.sect then
title:tag( 'br' )
title:wikitext( args.sect )
end
local next = header:tag( 'div' ):addClass( 'fejsablon_kovetkezo' )
if args.next then
next:tag( 'span' )
:attr( 'id', 'fejsablonkovetkezo' )
:wikitext( args.next .. ' →' )
end
return tostring( header:done() )
end
local function makeDiv( content )
if content then
return tostring( mw.html.create( 'div' ):wikitext( content ):addClass( 'fejsablon_megjegyzes' ):done() )
else
return ''
end
end
local function getCategories( args )
local cats = {}
local lines = {}
local function mainCats()
if args.nocat then
return
end
local title = mw.title.getCurrentTitle()
if title.namespace ~= 0 then
return
end
if title.isSubpage then
local root = title.rootPageTitle
if root.exists then
table.insert( cats, root.text )
end
table.insert( lines, '__EXPECTED_UNCONNECTED_PAGE__' )
else
if args.aut and not args.aut_np and mw.title.new( args.aut ) then
table.insert( cats, args.aut )
elseif args.entity then
getAuthorCategories( args.entity, cats )
end
if args.trans then
--[=[
if mw.ustring.lower( args.trans ) == 'wikiforrás'
if not mw.title.getCurrentTitle().isSubpage then
table.insert( cats, 'Wikiforrás-fordítások' )
end
else ]=]
if mw.title.new( args.trans ) then
table.insert( cats, args.trans .. ' fordításai' )
end
end
end
end
local function trackingCats()
if args.aut_np then
table.insert( cats, 'A lapnélküli szerző paramétert használó lapok' )
end
if (args.aut and not mw.title.new( args.aut ) ) or (args.trans and not mw.title.new( args.trans ) ) then
table.insert( cats, 'Linkfelismerést használó lapok' )
end
end
if not args.defsort then
local title = mw.title.getCurrentTitle()
if title.namespace == 0 then
args.defsort = p.getDefaultSort(title.text)
end
end
if args.defsort and args.defsort ~= '-' then
-- state stored, returns empty string; no need to add this to the table
mw.getCurrentFrame():preprocess( string.format( '{{DEFAULTSORT:%s}}', args.defsort ) )
end
mainCats()
trackingCats()
local langLinks = require('Modul:Wikibase').wikisourceLangLinks{ entity = args.entity }
if langLinks ~= '' then
langLinks = '\n\n' .. langLinks
end
for _, v in pairs( cats ) do
table.insert( lines, string.format( '[[Kategória:%s]]', v ) )
end
return '\n' .. table.concat( lines, '\n' ) .. langLinks
end
function p.getDefaultSort(frame)
local title
if type(frame) == 'table' then
title = frame.args[1]
elseif frame then
title = tostring(frame)
else
title = mw.title.getCurrentTitle().text
end
local replacements = {
[''] = { ' ', '_', '"', '„', '”', '»', '«', "'", '’', '-', '–', '—', ':', '.', ',', ';', '!', '?', '…', '(', ')' },
a = { 'Á', 'á' },
e = { 'É', 'é' },
i = { 'Í', 'í' },
o = { 'Ó', 'ó' },
['o~'] = { 'Ö', 'ö', 'Ő', 'ő' },
u = { 'Ú', 'ú' },
['u~'] = { 'Ü', 'ü', 'Ű', 'ű' }
}
for plain, accented in pairs(replacements) do
if plain == '' then
title = mw.ustring.gsub(title, '[%' .. table.concat(accented, '%') .. ']', '')
else
title = mw.ustring.gsub(title, '[' .. table.concat(accented) .. ']', plain)
end
end
local lang = mw.language.getContentLanguage()
return lang:ucfirst(lang:lc(title))
end
function p.main( frame )
local args = getArgs( frame )
local entity = mw.wikibase.getEntity( args.wikidata )
local args2 = {
aut = args[ 'szerző' ],
aut_np = args[ 'lapnélküli_szerző' ] or args[ 'lap nélküli szerző' ],
trans = args[ 'fordító' ],
tit = args[ 'cím' ],
sect = args[ 'szakasz' ],
prev = args[ 'előző' ] or formatStatement( entity, 'P155' ),
next = args[ 'következő' ] or formatStatement( entity, 'P156' ),
note = args[ 'megjegyzés' ],
defsort = args[ 'kulcs' ],
nocat = not not (args[ 'nekategorizálj' ] or args[ 'minta' ]),
entity = entity
}
local styles = mw.getCurrentFrame():extensionTag( 'templatestyles', '', { src = 'Fej/style.css' } )
return '<div>' .. styles .. makeTable( args2 ) .. makeDiv( args2.note ) .. getCategories( args2 ) .. '</div>'
end
return p