Module:FRCalendar

local FRCalendar = {} --- imported libraries -- Parses invocation and template parameters, trims whitespace, and removes blanks. local getArgs = require('Dev:Arguments').getArgs -- Smarter boolean logic local yesno = require( 'Dev:Yesno' ) -- Hash table of 2400 year names. local getYearName = require ('Module:Years').yearName -- Hash table of five moon phases, from full moon to full moon. local phaseSymbols = {"🌕", "🌗", "🌑", "🌓", "🌕" } -- Hash table of six special days and what month of the calendar should be generated for them. local monthSpecial = { ['Midwinter']        = 'Hammer', ['Greengrass']       = 'Tarsakh', ['Midsummer']        = 'Flamerule', ['Shieldmeet']       = 'Flamerule', ['Highharvestide']   = 'Eleint', ['Feast of the Moon'] = 'Uktar' } -- The months of the year, as numbers. You can place alternate spellings or common aliases here. local monthNumber = { ['Hammer']    = 1, ['Alturiak']  = 2, ['Ches']      = 3, ['Tarsakh']   = 4, ['Mirtul']    = 5, ['Kythorn']   = 6, ['Flamerule'] = 7, ['Eleasis']   = 8, ['Eleasias']  = 8, ['Eleint']    = 9, ['Marpenoth'] = 10, ['Uktar']     = 11, ['Nightal']   = 12 } -- But do not alter this sequence. local months = {'Hammer','Alturiak','Ches','Tarsakh','Mirtul','Kythorn', 'Flamerule','Eleasis','Eleint','Marpenoth','Uktar','Nightal'}

local function addPhases(phases, phaseList) local phaseIndex = 1 for dayNum in mw.text.gsplit(phaseList, ',', true) do       table.insert(phases, tonumber(dayNum), phaseSymbols[phaseIndex]) phaseIndex = phaseIndex + 1 end end

local function buildPhaseList(frame, FRmonth, yearsSinceLeap) local currMonth = monthNumber[FRmonth] local currYear = 2004 + yearsSinceLeap local prevMonth, prevYear, nextMonth, nextYear = 0, 0, 0, 0 local currPhaseDate = tostring(currYear)..'-'..currMonth..'-15' local currPhaseList = frame:expandTemplate({title = 'Selune phase',                                                args  = {mode='fivePhases', currPhaseDate}}) if currMonth - 1 < 1 then prevMonth = 12 prevYear = currYear - 1 else prevMonth = currMonth - 1 prevYear = currYear end local prevPhaseDate = tostring(prevYear)..'-'..prevMonth..'-15' local prevPhaseList = frame:expandTemplate({title = 'Selune phase',                                                args  = {mode='fivePhases', prevPhaseDate}}) if currMonth + 1 > 12 then nextMonth = 1 nextYear = currYear + 1 else nextMonth = currMonth + 1 nextYear = currYear end local nextPhaseDate = tostring(nextYear)..'-'..nextMonth..'-15' local nextPhaseList = frame:expandTemplate({title = 'Selune phase',                                                args  = {mode='fivePhases', nextPhaseDate}}) local phases = {} addPhases(phases, prevPhaseList) addPhases(phases, currPhaseList) addPhases(phases, nextPhaseList) return phases, months[prevMonth], months[nextMonth] end local function getPrevSpecial(FRmonth, phaseDay, phases, leapYear) local altLink = '' local rows = mw.html.create('')

if FRmonth == 'Alturiak' then phaseDay = phaseDay - 1 altLink = '|Midwinter' .. phases[phaseDay] rows:tag('tr') :tag('td'):attr('colspan','10'):wikitext(..'Midwinter'..altLink..):done :done elseif FRmonth == 'Mirtul' then phaseDay = phaseDay - 1 altLink = '|Greengrass' .. phases[phaseDay] rows:tag('tr') :tag('td'):attr('colspan','10'):wikitext(..'Greengrass'..altLink..):done :done elseif FRmonth == 'Eleasis' then phaseDay = phaseDay - 1 altLink = '|Midsummer' .. phases[phaseDay] rows:tag('tr') :tag('td'):attr('colspan','10'):wikitext(..'Midsummer'..altLink..):done :done if leapYear then phaseDay = phaseDay - 1 altLink = '|Shieldmeet' .. phases[phaseDay] rows:tag('tr') :tag('td'):attr('colspan','10'):wikitext(..'Shieldmeet'..altLink..):done :done end elseif FRmonth == 'Marpenoth' then phaseDay = phaseDay - 1 altLink = '|Highharvestide' .. phases[phaseDay] rows:tag('tr') :tag('td'):attr('colspan','10'):wikitext(..'Highharvestide'..altLink..):done :done elseif FRmonth == 'Nightal' then phaseDay = phaseDay - 1 altLink = '|Feast of the Moon' .. phases[phaseDay] rows:tag('tr') :tag('td'):attr('colspan','10'):wikitext(..'Feast of the Moon'..altLink..):done :done end return phaseDay - 30, tostring(rows) end

local function getMonthHtml(FRmonth, phaseDay, phases) local altLink = '' local rows = mw.html.create('') for tenday = 0, 2 do       rows:tag('tr') for day = 1, 10 do           altLink = phases[phaseDay] or tostring(day + 10*tenday) rows:tag('td'):wikitext(..altLink..):done phaseDay = phaseDay + 1 end rows:done end return tostring(rows) end

function FRCalendar.test( frame ) local args = getArgs(frame) local FRdate = args[1] local FRyear = tonumber(args[2]) local FRday, FRmonth = string.match(FRdate, '(%d+)%s+(%a+)') if FRday == nil then FRday  = 1 FRmonth = monthSpecial[FRdate] else FRday  = tonumber(FRday) FRmonth = tostring(FRmonth) end local yearsSinceLeap = ((FRyear % 4) + 4) % 4 local leapYear = (yearsSinceLeap == 0) local daysSinceLeap = frame:expandTemplate({title = 'Date number', args = {FRdate, FRyear}}) local phaseTable, prevMonth, nextMonth = buildPhaseList(frame, FRmonth, yearsSinceLeap)

local title = getYearName(FRyear) == '' and 'Calendar of Harptos' or getYearName(FRyear)

local currPhaseDay = daysSinceLeap - FRday + 1 --   local prevPhaseDay, prevSpecials = getPrevSpecial(FRmonth, currPhaseDay, phaseTable, leapYear)

local output = mw.html.create('div'):addClass('RoMcontainer') :tag('div'):addClass('RoMtop'):wikitext(''):done :tag('div'):addClass('RoMcenter') :tag('div'):addClass('RoMmiddle') :tag('table'):addClass('rollOfMonths') :tag('tr') :tag('th'):attr('colspan','10') :wikitext(title) :done :done :tag('tr') :tag('th'):attr('colspan','10') :wikitext(''..FRyear..' DR') :done :done :tag('tr') :tag('th'):attr('colspan','10') :wikitext(FRmonth) :done :done :wikitext(getMonthHtml(FRmonth, currPhaseDay, phaseTable)) :done :done :done :tag('div'):addClass('RoMbottom'):wikitext(''):done :allDone return tostring(output)..FRdate..' '..FRyear..' '..daysSinceLeap..' '..title..' ' ..' '..table.concat(phaseSymbols,' / ')..' '..FRday..' '..FRmonth..' '..yearsSinceLeap ..' '..tostring(leapYear)..' '..prevMonth..' '..nextMonth..' '..currPhaseDay --       ..' '..prevPhaseDay

end

return FRCalendar