Mô đun:Lịch thời sự

Tài liệu mô đun[tạo]

Bạn có thể muốn tạo một trang tài liệu cho mô đun Scribunto này.
Biên tập viên sửa đổi có thể thử nghiệm trong các trang chỗ thử (tạo | sao) và trường hợp kiểm thử (tạo) của mô đun này.
Các trang con của mô đun này.

-- Mô đun này làm cho Lịch được thấy trên [[Cổng thông tin:Thời sự]].

local p = {}

local function makeWikilink(link, display)
	if display then
		return string.format('[[%s|%s]]', link, display)
	else
		return string.format('[[%s]]', link)
	end
end

function p.main()
	local dateStuff = p.getDateStuff()
	local dayStrings = p.makeDayStrings(dateStuff)
	return p.export(dayStrings, dateStuff)
end

function p.getDateStuff()
	-- Gets date data.
	local dateStuff = {}
	local lang = mw.language.getContentLanguage()
	--Năm
	local year = lang:formatDate('Y')
	year = tonumber(year)
	dateStuff.year = year
	-- Tháng
	local month = lang:formatDate('F')
	dateStuff.month = month
	-- Tháng và năm
	local monthAndYear = lang:formatDate('F "năm" Y')
	local firstOfMonth = lang:formatDate('01-m-Y')
	dateStuff.monthAndYear = monthAndYear
	-- Tháng và năm qua
	dateStuff.previousMonthAndYear = lang:formatDate('F "năm" Y', firstOfMonth .. ' -1 month')
	-- Tháng và năm tới
	dateStuff.nextMonthAndYear = lang:formatDate('F "năm" Y', firstOfMonth .. ' +1 month')
	-- Ngày
	local day = lang:formatDate('j')
	day = tonumber(day)
	dateStuff.day = day
	-- Các ngày trong tháng
	local daysInMonth = lang:formatDate('j', firstOfMonth .. ' +1 month -1 day')
	daysInMonth = tonumber(daysInMonth)
	dateStuff.daysInMonth = daysInMonth
	-- Weekday of the first day of the month
	local firstWeekday = lang:formatDate('w', firstOfMonth) -- Sunday = 0, Saturday = 6
	firstWeekday = tonumber(firstWeekday)
	firstWeekday = firstWeekday + 1 -- Make compatible with Lua tables. Sunday = 1, Saturday = 7.
	dateStuff.firstWeekday = firstWeekday
	return dateStuff
end

function p.makeDayStrings(dateStuff)
	local calStrings = {}
	local currentDay = dateStuff.day
	local isLinkworthy = p.isLinkworthy
	local currentMonth = dateStuff.month
	local currentYear = dateStuff.year
	local makeDayLink = p.makeDayLink
	for day = 1, dateStuff.daysInMonth do
		if isLinkworthy(day, currentDay) then
			calStrings[#calStrings + 1] = makeDayLink(day, currentMonth, currentYear)
		else
			calStrings[#calStrings + 1] = tostring(day)
		end
	end
	return calStrings
end

function p.isLinkworthy(day, currentDay)
	-- Returns true if the calendar day should be linked, and false if not.
	-- Days should be linked if they are the current day or if they are within the six
	-- preceding days, as that is the number of items on the current events page.
	if currentDay - 6 <= day and day <= currentDay then
		return true
	else
		return false
	end
end

function p.makeDayLink(day, month, year)
	return string.format("'''[[#%d %s %d|%d]]'''", day, month, year, day)
end

function p.export(dayStrings, dateStuff)
	-- Generates the calendar HTML.
	local monthAndYear = dateStuff.monthAndYear
	local root = mw.html.create('table')
	root
		:addClass('infobox')
		:css{
			display = 'table',
			width = '100%',
			float = 'initial', 
			['max-width'] = '350px',
			margin = temporaryMarginAdjustment,
			['text-align'] = 'center',
			['background-color'] = '#f5faff',
			border = '1px solid #cedff2'
		}
		-- Các tiêu đề
		:tag('tr')
			:css('background-color', '#cedff2')
			:tag('td')
				:css{['padding-top'] = '1px', ['padding-bottom'] = '3px'}
				:wikitext(makeWikilink(dateStuff.previousMonthAndYear, '<<'))
				:done()
			:tag('td')
				:attr('colspan', '5')
				:css{padding = '1px 4px', ['font-weight'] = 'bold'}
				:wikitext(makeWikilink(monthAndYear))
				:done()
			:tag('td')
				:css{['padding-top'] = '1px', ['padding-bottom'] = '3px'}
				:wikitext(makeWikilink(dateStuff.nextMonthAndYear, '>>'))

	-- Các tiêu đề ngày của tuần
	local dayHeadingRow = root:tag('tr')
	local weekdays = {'CN', 'T2', 'T3', 'T4', 'T5', 'T6', 'T7'}
	for i, weekday in ipairs(weekdays) do
		dayHeadingRow:tag('td')
			:wikitext(weekday)
	end
	
	-- Các ngày
	local colspan = dateStuff.firstWeekday - 1
	local cellCount = 0 -- Tracks the number of day cells.
	local firstDayRow = root:tag('tr')
	if colspan > 1 then
		firstDayRow:tag('td')
			:attr('colspan', tostring(colspan))
	elseif colspan == 1 then
		firstDayRow:tag('td')
	end
	for i = colspan + 1, 7 do -- Finish the first row
		cellCount = cellCount + 1
		firstDayRow:tag('td')
			:wikitext(dayStrings[cellCount])
	end
	while cellCount < #dayStrings do -- Second day row onwards
		local otherDayRow = root:tag('tr')
		for i = 1, 7 do
			cellCount = cellCount + 1
			local dayString = dayStrings[cellCount]
			if not dayString then
				break
			end
			otherDayRow:tag('td')
				:wikitext(dayString)
		end
	end

	-- Phần chân trang
	root:tag('tr')
		:tag('td')
			:attr('colspan', '7')
			:css{['padding-top'] = '3px', ['padding-bottom'] = '5px', ['font-size'] = '78%', ['text-align'] = 'right'}
			:wikitext('&nbsp;&nbsp; ' .. makeWikilink(monthAndYear, 'Nhiều sự kiện ' .. monthAndYear .. ' hơn...'))
	
	return tostring(root)
end

return p