local p = {}
local Wikidata = require('وحدة:WikidataIB')
local Entity = mw.wikibase.getEntityObject() or ''
local lang = mw.language.new('ar')
local categorys = ''
local params ={['عنوان']=1,['عنوان فرعي']=1, ['سنة']=1, ['مؤلف']=1, ['سابقة المؤلف']=1, ['معلومات إضافية']=1,['سابق']=1,
['مترجم'] = 1, ['رسام'] = 1, ["ثنائي اللغة"] = 1, ['روابط']=1, ['ملاحظات'] = 1 , ['حقوق'] = 1 ,
['بدون سنة'] = 1 , ['فصل']=1,['باب']=1,['مؤلف الباب']=1,['تالي']=1,['آخر وفاة']=1,['توضيح']=1,
['تاريخي']=1,['كتالوج']=0,['ويكيبيديا'] = 1 , ['كومنز'] = 1 , ['تصنيف كومنز'] = 1 ,
['ويكي الاقتباس'] = 1 , ['ويكي الأخبار'] = 1 , ['ويكاموس'] = 1 , ['ويكي الكتب'] = 1 ,
['ويكي الجامعة'] =1, ['ويكي أنواع'] =1 , ['ميتا'] = 1 , ['ويكي بيانات'] =1, ['مصدر']=1}
local page_title = mw.title.getCurrentTitle().text
local encoded_page_title= mw.uri.encode(page_title, QUERY)
local altparams= {
['العنوان'] = 'عنوان',
['المؤلف'] ='مؤلف',
['السابق'] = 'سابق',
['المترجم'] = 'مترجم',
['الملاحظات'] = 'ملاحظات',
['الباب'] = 'باب',
['باب فرعي'] = 'فصل',
['التالي'] = 'تالي',
['لاحق'] = 'تالي',
['اللاحق'] = 'تالي',
['المصدر'] = 'مصدر'
}
local function errorMessage(text)
-- Función que entrega un mensaje de error formateado como tal
local html = mw.html.create('div')
html:addClass('error')
:wikitext(text)
categorys=categorys..'[[تصنيف:ويكي مصدر:صفحات تحوي أخطاء في قالب ترويسة]]'
return tostring(html)
end
local function link(s)
if s:match("%[") then
return s
else
return '[[مؤلف:'..s..'|'..s..']]'
end
end
local function delink(s)
if not s:match("%[") then
return s
end
local result = s
result = mw.uri.decode(result, "PATH") -- decode percent-encoded entities. Leave underscores and plus signs.
result = mw.text.decode(result, true) -- decode HTML entities.
-- Remove the colon if the link is using the [[مساعدة:Colon trick]].
if result:match("%[%[:") then
result = "[[" .. result:match("%[%[:(.*%]%])")
end
-- Find the display area of the wikilink
if result:match("|") then -- Find if we're dealing with a pipecd link.
result = result:match("%[%[.-%|(.+)%]%]")
-- Remove new lines from the display of multiline piped links,
-- where the pipe is before the first new line.
result = result:gsub("\n", "")
else
result = result:match("%[%[(.-)%]%]")
end
return result
end
local function createlink(args, number, image, text1, text2)
local text=''
local site =''
local sites ={ --esta variable contiene los sites reconocidos con posibles enlaces, y su number técnico
['ويكيبيديا']= {'ويكيبيديا','w:'},
['ويكي الاقتباس']={'ويكي الاقتباس','q:'},
['تصنيف كومنز']={'كومنز','commons:'},
['ويكي أنواع']={'ويكي أنواع','species:'},
['ويكي بيانات']={'ويكي بيانات','d:'},
['ويكاموس']={'ويكاموس','wikt:'},
}
if args[number] == 'none' then
return ''
end
if sites[number] then
site = sites[number]
end
if args[number] and args[number] ~= '' then
if image == '' then
text = '[['..text1..'|'..text2..']]. '
else
text = '[[ملف:'..image..'|16px]] '..'[['..text1..'|'..text2..']]. '
end
elseif site~='' and Entity ~= '' then
if site[1] == 'ويكي بيانات' then
args[number] = site[2]..mw.wikibase.getEntityIdForCurrentPage()
text = '[[ملف:'..image..'|16px]] '..'[['..args[number]..'|'..text2..']]. '
elseif Entity:getSitelink(site[1]) ~= nil and Entity:getSitelink(site[1]) ~= '' then
args[number] = site[2]..Entity:getSitelink(site[1])
text = '[[ملف:'..image..'|16px]] '..'[['..args[number]..'|'..text2..']]. '
elseif site[1] =='commonswiki' and propiedad('p373') ~= '' then --categoría en commons
text = '[[ملف:'..image..'|16px]] '..'[[commons:Category:'..propiedad('p373')..'|'..text2..']]. '
end
end
return text
end
local function linkMicroformat(param, value)
if value~= nil and value ~= '' then
return mw.html.create('span')
:addClass('ws-' .. param)
:wikitext(delink(value))
else
return ''
end
end
function p.header( frame )
local title = mw.title.getCurrentTitle()
local issub = title.isSubpage
local args={}
for k,v in pairs(frame:getParent().args) do -- crea una tabla con los parámetros incluídos en la plantilla, y elimina parámetros vacíos
if v ~= '' then
args[mw.ustring.lower(tostring(k))] = v -- todos los parámetros en minúsculas por defecto:
end
end
-- HTML
local html = mw.html.create()
for k,v in pairs(altparams) do
if args[k] and not args[v] then
args[v] = args[k]
elseif args[k] and args[v] then
if frame:preprocess( "{{REVISIONID}}" ) == "" then
html:wikitext(errorMessage('خطأ: الوسائط |'.. k ..' = '.. v ..' زائة عن الحاجة.'))
end
categorys=categorys..'[[تصنيف:ويكي مصدر:صفحات تستخدم وسائط زائدة في قالب ترويسة]]'
end
end
--variables matemática derechos de autor
local death_year
local pub_year
if args['سنة'] and tonumber(args['سنة']) ~= nil then
pub_year = tonumber(lang:formatDate('Y')) - tonumber(args['سنة'])
end
if args['آخر وفاة'] and tonumber(args['آخر وفاة']) ~= nil then
death_year = tonumber(lang:formatDate('Y')) - tonumber(args['آخر وفاة'])
end
local divwrap = html:tag('div'):addClass('wst-header ws-header ws-noexport noprint dynlayout-exempt') -- div principal que contiene al resto
local divgrande = divwrap:tag('div'):attr('id','headertemplate')
local prev = divgrande:tag('div'):attr('id','headerprevious')
if args['سابق'] and args['سابق'] ~= '' then
local anteriorspan = prev:tag('span'):addClass('prev-span')
if not mw.ustring.find(args['سابق'],"→") then
anteriorspan:tag('span'):addClass('prev-span-arrow'):wikitext(' →')
end
anteriorspan:wikitext(' '..args['سابق'])
if args['روابط'] and mw.ustring.lower(args['روابط']) == 'no' then
anteriorspan:cssText('display:none')
end
end
local medio = divgrande:tag('div'):addClass('middle-div')
if args['عنوان'] then
medio:wikitext("'''''​"..args['عنوان'].."​'''''")
if args['عنوان فرعي'] then
medio:wikitext('<br/>'..'<small>'..args['عنوان فرعي']..'</small>')
end
if args['سنة'] and not args['بدون سنة'] then
medio:wikitext(' ('..args['سنة']..')')
categorys = categorys..'[[تصنيف:P'..args['سنة']..']]'
end
end
if args['مؤلف'] then
local pre_author=args['سابقة المؤلف'] or "المؤلف"
medio:wikitext(' ' .. pre_author .. ' ')
local i = #mw.text.split(args['مؤلف'], '[/,]')
for _,v in ipairs(mw.text.split(args['مؤلف'], '[/,]')) do
i = i-1
medio:wikitext(link(v))
if i >0 then medio:wikitext(', ') end
end
end
medio:tag('br')
if args['مترجم'] and args['مترجم'] ~= '' then
if args['مترجم'] == 'ويكي مصدر' then
medio:wikitext('ترجمة [[مساعدة:إرشادات للترجمات| ويكي مصدر]]')
else
medio:wikitext('ترجمة')
local i = #mw.text.split(args['مترجم'], '[/,]')
for _,v in ipairs(mw.text.split(args['مترجم'], '[/,]')) do
i = i-1
medio:wikitext(link(v))
if delink(v) == 'مجهول' then
v = 'مؤلف مجهول'
end
categorys = categorys..'[[تصنيف:ترجمات '..delink(v)..']]'
if i >0 then medio:wikitext(', ') end
end
end
medio:tag('br')
end
if args['رسام'] and args['رسام'] ~= '' then
medio:wikitext('رسومات '..link(args['رسام']))
medio:tag('br')
end
if args['معلومات إضافية'] then
medio:wikitext(args['معلومات إضافية'])
medio:tag('br')
end
if args['فصل'] and not args['باب'] then
args['باب'] = args['فصل']
args['فصل'] = nil
end
if args['باب'] then
medio:wikitext("''"..args['باب'].."''")
if args['مؤلف الباب'] then
medio:wikitext(' de ')
local i = #mw.text.split(args['مؤلف الباب'], '[/,]')
for _,v in ipairs(mw.text.split(args['مؤلف الباب'], '[/,]')) do
i = i-1
medio:wikitext(link(v))
if i >0 then medio:wikitext(', ') end
end
end
if args['فصل'] then
medio:tag('br')
medio:tag('span'):cssText('font-size: 83%;'):wikitext(args['فصل'])
end
end
local proximo = divgrande:tag('div'):attr('id','headernext')
if args['تالي'] and args['تالي']~= '' then
local proximospan = proximo:tag('span'):addClass('next-span')
:wikitext(' '..args['تالي'])
if not mw.ustring.find(args['تالي'],"←") then
proximospan:tag('span'):addClass('next-span-arrow'):wikitext('← ')
end
if args['روابط'] and mw.ustring.lower(args['روابط']) == 'no' then
proximospan:cssText('display:none')
end
end
--enlaces pequeños en la parte inferior
inferior = medio:tag('div'):addClass('noprint plainlinks lower-div')
--matematica y manejo derechos de autor
if args['حقوق'] then
inferior:wikitext('[[ملف:PD-icon.svg|14px]] [[ويكي مصدر:Duración de derechos de autor por país#'..args['حقوق']..'|'..args['حقوق']..']] ')
if args['آخر وفاة'] == 'اسم مستعار' then
num = math.floor((pub_year - 1)/10)
if num > 10 then num = 10 end
inferior:wikitext(', [[ويكي مصدر:مدة حقوق الطبع والنشر حسب البلد#'..tostring(num*10)..' p.a.p.|'..tostring(num*10)..' p.a.p. o menos]]. ')
categorys = categorys..'[[تصنيف:'..tostring(num*10)..' p.a.p.]]'
elseif args['آخر وفاة'] then
num = math.floor((death_year - 1)/10)
if num > 4 then --a partir de 50 p.m.a.
if num > 10 then num = 10 end
inferior:wikitext(', [[ويكي مصدر:مدة حقوق الطبع والنشر حسب البلد#'..tostring(num*10)..' p.m.a.|'..tostring(num*10)..' p.m.a. o menos]]. ')
categorys = categorys..'[[تصنيف:'..tostring(num*10)..' p.m.a.]]'
end
end
categorys = categorys..'[[تصنيف:نشر في '..args['حقوق']..']]'
end
--enlaces parte inferior
inferior:wikitext(createlink(args, 'ويكي بيانات', 'Wikidata-logo.svg', 'd:' .. (args['ويكي بيانات'] or ''),'ويكي بيانات'))
inferior:wikitext(createlink(args, 'توضيح', 'Disambiguation.svg', args['توضيح'],'إصدارات أخرى أو عناوين مشابهة'))
inferior:wikitext(createlink(args, 'ويكيبيديا','Wikipedia-logo.svg','w:'..(args['ويكيبيديا'] or ''),'مقالة ويكيبيديا'))
inferior:wikitext(createlink(args, 'تصنيف كومنز','Commons-logo.svg','commons:Category:'..(args['تصنيف كومنز'] or ''),'تصنيف وسائط'))
inferior:wikitext(createlink(args, 'ويكي الاقتباس','Wikiquote-logo.svg','q:'..(args['ويكي الاقتباس'] or ''),'اقتباس'))
inferior:wikitext(createlink(args, 'ويكي الكتب','Wikibooks-logo.svg','b:'..(args['ويكي الكتب'] or ''),'كتاب'))
inferior:wikitext(createlink(args, 'ويكي الجامعة','Wikiversity-logo.svg','v:'..(args['ويكي الجامعة'] or ''),'جامعة'))
inferior:wikitext(createlink(args, 'ويكي أنواع','Wikispecies-logo.svg','species:'..(args['ويكي أنواع'] or ''),'النوع'))
inferior:wikitext(createlink(args, 'ويكاموس','Wiktionary_small-es.svg','wikt:'..(args['ويكاموس'] or ''),'ويكاموس'))
if args['ثنائي اللغة'] and args['ثنائي اللغة'] ~= '' then
inferior:wikitext('['..title:fullUrl({['match']=args['ثنائي اللغة']})..' نص ثنائي اللغة]')
end
--Enlaces de descarga
if not issub then
inferior:wikitext("<div style=\"font-size:80%\">تنزيل بصيغة [[ملف:EPUB silk icon.svg|12px|link=https://wsexport.toolforge.org/tool/book.php?lang=ar&format=epub&page=" .. encoded_page_title .."|تنزيل بصيغة epub]] [[ملف:Document-pdf.svg|15px|link=https://wsexport.toolforge.org/tool/book.php?lang=ar&page=" .. encoded_page_title .. "&format=pdf-a5|تنزيل بصيغة pdf]] [[ملف:Mobi_icon.svg|22px|link=https://wsexport.toolforge.org/tool/book.php?lang=ar&page=" .. encoded_page_title .. "&format=mobi|تنزيل بصيغة mobi]]</div>")
end
if args['مصدر'] and args['مصدر'] ~= '' then
divwrap:tag('div'):addClass('notes noprint ws-noexport'):wikitext("'''المصدر:''' "..args['مصدر'])
end
if args['ملاحظات'] and args['ملاحظات'] ~= '' then
divwrap:tag('div'):addClass('notes noprint ws-noexport'):wikitext("'''ملاحظات:''' "..args['ملاحظات'])
end
--categorías automáticas
-- if not issub then
-- categorys = categorys..'[[تصنيف:ES-'..Str.CaracterParaOrdenar(title.subpageText)..']]'
-- else
-- categorys = '[[تصنيف:'..title.rootText..']]'
-- end
--palabra mágica, subpáginas no deben estar conectadas normalmente a Wikidata
if issub then
divwrap:wikitext('__EXPECTED_UNCONNECTED_PAGE__')
end
for k,v in pairs(args) do
if params[k] or altparams[k] then
if params[k] == 0 then
categorys = categorys..'[[تصنيف:ويكي مصدر:صفحات تستخدم وسائط قديمة في قالب ترويسة ]]' --añade categoría de seguimiento a parámetros obsoletos (declarados arriba)
end
else
divwrap:wikitext(errorMessage('خطأ: الوسيط '..k..' غير معروف'))
categorys=categorys..'[[تصنيف:ويكي مصدر:صفحات تستخدم وسائط قديمة في قالب ترويسة]]'
end
end
if title.namespace ~= 0 then --solo categorías en el espacio principal
categorys = ''
end
divgrande:wikitext(categorys)
--microformato
local microformato = divwrap:tag('div'):cssText('display:none'):attr('id', 'ws-data'):addClass('ws-noexport')
microformato:node( linkMicroformat( 'title', args['عنوان'] ) )
if args['مؤلف'] and args['مؤلف'] ~= '' then
microformato:node( linkMicroformat( 'author', args['مؤلف'] ) )
end
if args['مترجم'] and args['مترجم'] ~= '' then
microformato:node( linkMicroformat( 'translator', args['مترجم'] ) )
end
if args.illustrador and args.illustrador ~= '' then
microformato:node( linkMicroformat( 'illustrator', args.illustrador ) )
end
--if args.school and args.school ~= '' then
-- microformato:node( linkMicroformat( 'school', args.school ) )
--end
--if args.editeur and args.editeur ~= '' then
-- microformato:node( linkMicroformat( 'publisher', args.editeur ) )
--end
if args['سنة'] and args['سنة'] ~= '' then
microformato:node( linkMicroformat( 'year', args['سنة'] ) )
end
--if args.lieu and args.lieu ~= '' then
-- microformato:node( linkMicroformat( 'place', args.lieu ) )
--end
if args.progreso and args.progreso ~= '' then
microformato:node( linkMicroformat( 'progress', args.progreso ) )
end
--if args.volume and args.volume ~= '' then
-- microformato:node( linkMicroformat( 'volume', args.volume ) )
--end
if args.current and args.current ~= '' then
microformato:node( linkMicroformat( 'chapter', args.current ) )
end
if args.index then
microformato:node( linkMicroformat( 'scan', args.index ) )
if args.image and mw.ustring.match(args.image, '^%d+$') ~= nil then
microformato:node( linkMicroformat( 'cover', args.index .. '/' .. args.image ) )
end
end
if from ~= '' and to ~= '' then
if from == to then
microformato:node( linkMicroformat( 'pages', from ) )
else
microformato:node( linkMicroformat( 'pages', from .. '-' .. to ) )
end
end
if args.wikipedia and args.wikipedia ~= '' then
microformato:node( linkMicroformat( 'wikipedia', args.wikipedia ) )
end
if args.wikiquote and args.wikiquote ~= '' then
microformato:node( linkMicroformat( 'wikiquote', args.wikiquote ) )
end
if args.commonscat and args.commonscat ~= '' then
microformato:node( linkMicroformat( 'commons', args.commons ) )
end
return tostring(html)
end
-- Función que devuelve la lista de los valores de una propiedad en Wikidata formateados
function propiedad(idPropiedad,opciones)
if Entity and Entity.claims then --and Entity.claims[idPropiedad] then
if not opciones then
opciones = {}
end
opciones['propiedad'] = idPropiedad
valorPropiedad = Wikidata.getPropiedad(opciones,Entity.claims[idPropiedad])
if not valorPropiedad or valorPropiedad == '' then
return ''
end
return valorPropiedad
else return ''
end
end
return p
توثيق الوحدة [أنشئ] [محو الاختزان][استخدامات] [قوالب]