تضامنًا مع حق الشعب الفلسطيني |
وحدة:On This Day
اذهب إلى التنقل
اذهب إلى البحث
![](https://upload.wikimedia.org/wikipedia/commons/thumb/4/43/Test_Template_Info-Icon_-_Version_%282%29.svg/50px-Test_Template_Info-Icon_-_Version_%282%29.svg.png)
--[[ ====================== حدث في مثل هذه اليوم================
هذه الوحدة تجلب الأحداث من الصفحات الهجرية والميلادية
]]
local p = {} --p stands for package
local hc = require "Module:Hijri/core"
local hijri = require "Module:Hijri"
local text =mw.text
local string = mw.ustring
local sandbox = ""
local maxlength = 1100
--[[========= USEFULL Functions ==========]]
function esc_pattern(str)
return string.gsub(str, "%p", "%%%1")
end
function events_compare_level_year(a,b)
if a.level < b.level then
return true
elseif a.level == b.level then
if a.jd < b.jd then
return true
end
end
return false
end
function events_compare_jd(a,b)
if a.jd < b.jd then
return true
end
return false
end
function get_events(events_array,event_text,isHijri,month,day)
local events = events_array or {}
local ei
local gpic = string.match(s,"%[%[ملف:[^%]]*%]%]")
if gpic then
s= string.gsub(s, esc_pattern(gpic) .. "[\n]*","")
end
local s=text.split(s, "<!%-%-[%s]*الأحداث[%s]*%-%->")
local p= string.find(s[2],"<noinc",1,true)
if p then
s[2] = text.trim(string.sub(s[2], 1,p-1))
end
p=string.find(s[2],"*",1,true)
local e=text.split(string.sub(s[2], p+1), "\n* ",true)
for i=1,#e do
local es,inty,jd={}
local stry=string.match(e[i], "%[%[[0-9 هـ]+%]%]") or string.match(e[i], "%[%[[0-9 هـ]+|")
if stry then
stry = string.sub(stry,3,-3)
stry=string.gsub(string.gsub(stry, "ه",""), "_","")
inty = tonumber(stry)
else
mw.log(e[i-1])
error("Can't Find Year in event " .. i)
end
if isHijri then
jd = hc.hijri2jd(inty,month,day)
else
jd = hc.gregorian2jd(inty,month,day)
end
if string.find(e[i], "**",1,true) then
local e_splits=text.split(e[i],"\n**",true)
for ii=2,#e_splits do
es[ii-1] = e_splits[1] .. e_splits[ii]
end
else
es[1] = e[i]
end
for ii=1,#es do
ei=#events+1
events[ei]={str = es[ii]}
local strl=string.match(es[ii],"<!%-%-[%s]*م[1-3][%s]*%-%->")
if strl then
p =string.find(strl,"م") + 1
events[ei].level=tonumber(string.sub(strl, p,p))
else
events[ei].level = 2
end
events[ei].year = inty
events[ei].jd = jd
events[ei].hijri = isHijri
if string.find(es[ii], "{{ط|(في الصورة)}}",1,true) then
events[ei].pic = gpic
end
end
end
return events,s[1]
end
function p.onthisday(frame)
local d
if frame.args[3] then
d = hc.Date('gregorian',tonumber(frame.args[1]),tonumber(frame.args[2]),tonumber(frame.args[3]))
elseif frame.args[2] then
d = hc.Date('gregorian',os.date("*t").year,tonumber(frame.args[1]),tonumber(frame.args[2]))
else
d = hc.Date('gregorian')
end
local strtoday = {}
strtoday['g'] = d.day .. ' ' .. hijri.julian_month_name(d.month)
local tret,bret,ret = {},{},""
local events = {}
local tg = mw.title.new("أرابيكا:في هذا اليوم/" .. strtoday['g'] .. sandbox)
if not tg.exists and #sandbox>0 then
tg = mw.title.new("أرابيكا:في هذا اليوم/" .. strtoday['g'])
end
d:set_type('hijri')
strtoday['h'] = d.day .. " " .. hijri.hijri_month_name(d.month)
local th = mw.title.new("أرابيكا:في هذا اليوم/" .. strtoday['h'] .. sandbox)
if not th.exists and #sandbox>0 then
th = mw.title.new("أرابيكا:في هذا اليوم/" .. strtoday['h'])
end
local s_events={}
if tg.exists then
s = string.gsub(tg:getContent(),"{{أرابيكا:في هذا اليوم/مناسبة هجرية|" .. strtoday['g'] .. "}}","")
if not th.exists then
-- early exit no hijri page
return frame:preprocess(s)
end
events,tret['g'] = get_events(events,s,false,d.month,d.day)
end
if th.exists then
s = th:getContent()
events,tret['h'] = get_events(events,s,true,d.month,d.day)
end
--order
table.sort(events,events_compare_level_year)
local current_length = 0
for i=1,#events do
--ret = ret .. "*" .. events[i].str .. "-" .. events[i].level .. "-" .. (events[i].year or 'No year').. (events[i].hijri and 'Hijri' or 'Not Hijri') .. "\n" .. (events[i].pic or '')
if string.len(events[i].str) <= (maxlength-current_length) then
--s_events[#s_events+1]=events[i].str .. (string.sub(events[i].str,-1)~="\n" and "\n" or "")
s_events[#s_events+1] = events[i]
current_length = current_length + string.len(events[i].str)
elseif current_length>=maxlength then
break
end
end
table.sort(s_events,events_compare_jd)
local n
local pics={h='',g=''}
bret['h'], bret['g'] = '', ''
for i=1,#s_events do
n = s_events[i].hijri and 'h' or 'g'
bret[n] = bret[n] .. "*" .. s_events[i].str .. (string.sub(s_events[i].str,-1)~="\n" and "\n" or "")
if s_events[i].pic then
pics[n] = pics[n] .. s_events[i].pic .. "\n"
end
end
ret = tret['h'] .. pics['h'] .. pics['g'] .. bret['h'] .. tret['g'] .. bret['g']
return frame:preprocess(ret)
end
return p