local p = {}

function make_cat_link(catname, disp)

local displaytext

if (disp ~= "") then

displaytext = disp

else

displaytext = catname

end

local link = "" .. displaytext .. ""

local fmtlink

local linktitle = mw.title.new( catname, "Category" )

if (linktitle.exists) then

fmtlink = link

else

fmtlink = "" .. displaytext .. ""

end

return fmtlink

end

function make_cat_link4(catname, disp)

local link = "{{LinkCatIfExists2|" .. catname

if (disp ~= "") then

link = link .. "|" .. disp

end

link = link .. "}}"

return link

end

function make_decade_cat_link(prefix, start, rest, decadenum)

local decadestart = (prefix * 100) + (decadenum * 10)

local decadename = decadestart .. "s"

return make_cat_link(start .. decadename .. rest, decadename)

end

function ordinal_numbers(n)

  local ordinal, digit = {"st", "nd", "rd"}, string.sub(n, -1)  if tonumber(digit) > 0 and tonumber(digit) <= 3 and mw.ustring.sub(n,-2) ~= 11 and mw.ustring.sub(n,-2) ~= 12 and mw.ustring.sub(n,-2) ~= 13 then    return n .. ordinal[tonumber(digit)]  else    return n .. "th"  end

end

function make_century_name(n)

local centuryordinal = ordinal_numbers(n)

return centuryordinal .. " century"

end

function p.main(frame)

local pagename

local nilly

if (frame.args[1] ~= "") then -- a parameter was supplied, so use it as page title

nilly = "no nil. value='" .. frame.args[1] .. "'"

if (string.match(frame.args[1], "^Category *: *")) then

pagename = mw.ustring.gsub(frame.args[1], "^Category *: *", "");

else

pagename = frame.args[1]

end

else -- use the page title

nilly = "nil"

pagename = mw.title.getCurrentTitle().text

end

if (false) then

return nilly

end

local dddo = mw.ustring.match(pagename, "%d%d*0s")

if (dddo == nil) then

return "Error: no 'YYOs' in '" .. pagename .. "'"

end

local dd = mw.ustring.match(dddo, "^%d*")

local yy = (dd - (dd % 100))/ 100

local startoftitle = mw.ustring.gsub(pagename, dddo .. ".*$", "")

local restoftitle = mw.ustring.gsub(pagename, "^.*" .. dddo, "")

local diagnotics = "; pagename\* " .. pagename .. "\;dddo\*" .. dddo .. "\;dd\*" .. dd

diagnotics = diagnotics .. "\;yy\*" .. yy .. "\;startoftitle\*'" .. startoftitle .. "'"

diagnotics = diagnotics .. "\;restoftitle\*'" .. restoftitle .. "'"

local retval

retval = "{| class=\\"toccolours\\" style=\\"border:1px solid black; padding:5px\\"\|-\|style=\\"text-align:center\\"| " .. startoftitle

if (startoftitle == "") then

retval = retval .. "Decades "

else

retval = retval .. " decades "

end

retval = retval .. " of the " .. make_century_name(yy+1) .. restoftitle .. "\|-\| "

retval = retval .. "" .. make_decade_cat_link(yy, startoftitle, restoftitle, -1) .. " • " .. ""

local i;

for i = 0, 9 do

retval = retval .. make_decade_cat_link(yy, startoftitle, restoftitle, i)

if i < 9 then

retval = retval .. " • "

end

end

retval = retval .. "" .. " • " .. make_decade_cat_link(yy, startoftitle, restoftitle, 10) .. ""

retval = retval .. "\|}"

return retval

end

return p

• Immaculate perception
• Immaculate Reception
• Immaculate reception
• Immaculee Nahayo
• Immaculee Nahayo Nyandwi
• Immaculée Nahayo
• Immaculée Nahayo Nyandwi
• Immalman
• Immanance
• Immananct
• Immanence
• Immanency
• Immanent
• Immanent description
• Immanent Grove
• Immanentism
• Immanentize the eschaton
• Immanentize the Eschaton
• Immanuel
• 'Immanu'el
• Immanu'el
• Immanuel Bekker
• Immanuel ben Solomon
• Immanuel Ben Solomon
• Immanuel Ben Solomon of Rome