Module:Sandbox/BrownHairedGirl/IrelandByCountyCatNav18

--[[ v16

each title consists of 3 parts * prefix * county name * suffix e.g. "Foo in County Mayo" * prefix = "Foo in " * county name = "County Mayo" * suffix = "" e.g. "County Sligo-related lists" * prefix = "" * county name = "County Sligo" * suffix = "-related lists" ]]

-- config local textSize = '90%' local tableClass="infobox" local tableStyle="margin-left:auto; margin-right:auto; clear:left; float:left; width:auto;" local evenRowStyle = "background-color:#f3f3f3;" local oddRowStyle = "" local labelStyle = "text-align:right; font-weight: bold;" local listStyle = "text-align:left; font-weight: normal;" local greyLinkColor = "#888"

-- globals for this module local debugging = false local debugmsg = "" local tableRowNum = 0 local includeNewCounties = true local useCountyWord = true local title_prefix = "" local title_suffix = "" local displayAbbrevCounty = false local countySet = nil

local getArgs = require('Module:Arguments').getArgs local yesno = require('Module:Yesno') local p = {}

local TwentySixCounties = { 'Carlow', 'Cavan', 'Clare', 'Cork', 'Donegal', 'Dublin', 'Galway', 'Kerry', 'Kildare', 'Kilkenny', 'Laois', 'Leitrim', 'Limerick', 'Longford', 'Louth', 'Mayo', 'Meath', 'Monaghan', 'Offaly', 'Roscommon', 'Sligo', 'Tipperary', 'Waterford', 'Westmeath', 'Wexford', 'Wicklow' }

local SixCounties = { 'Antrim', 'Armagh', 'Down', 'Fermanagh', 'Londonderry', 'Tyrone' }

local newCounties = { 'Dún Laoghaire–Rathdown', 'Fingal', 'South Dublin (county)' }

local Traditional32Counties = { 'Antrim', 'Armagh', 'Carlow', 'Cavan', 'Clare', 'Cork', 'Donegal', 'Down', 'Dublin', 'Fermanagh', 'Galway', 'Kerry', 'Kildare', 'Kilkenny', 'Laois', 'Leitrim', 'Limerick', 'Londonderry', 'Longford', 'Louth', 'Mayo', 'Meath', 'Monaghan', 'Offaly', 'Roscommon', 'Sligo', 'Tipperary', 'Tyrone', 'Waterford', 'Westmeath', 'Wexford', 'Wicklow' }

local GAACounties = { 'Antrim', 'Armagh', 'Carlow', 'Cavan', 'Clare', 'Cork', 'Donegal', 'Derry', 'Down', 'Dublin', 'Fermanagh', 'Galway', 'Kerry', 'Kildare', 'Kilkenny', 'Laois', 'Leitrim', 'Limerick', 'Longford', 'Louth', 'Mayo', 'Meath', 'Monaghan', 'Offaly', 'Roscommon', 'Sligo', 'Tipperary', 'Tyrone', 'Waterford', 'Westmeath', 'Wexford', 'Wicklow' }

local abbreviatedCountyName = { --using ISO 3166-2:IE ['Cork'] = 'CO', ['Clare'] = 'CE', ['Cavan'] = 'CN', ['Carlow'] = 'CW', ['Dublin'] = 'D', ['Donegal'] = 'DL', ['Galway'] = 'G', ['Kildare'] = 'KE', ['Kilkenny'] = 'KK', ['Kerry'] = 'KY', ['Limerick'] = 'LK', ['Longford'] = 'LD', ['Louth'] = 'LH', ['Leitrim'] = 'LM', ['Laois'] = 'LS', ['Meath'] = 'MH', ['Monaghan'] = 'MN', ['Mayo'] = 'MO', ['Offaly'] = 'OY', ['Roscommon'] = 'RN', ['Sligo'] = 'SO', ['Tipperary'] = 'TA', ['Waterford'] = 'WD', ['Westmeath'] = 'WH', ['Wexford'] = 'WX', ['Wicklow'] = 'WW', -- made-up codes for new counties ['Fingal'] = 'FL', ['South Dublin'] = 'SD', ['South Dublin (county)'] = 'SD', ['Dún Laoghaire–Rathdown'] = 'DLR', -- made-up codes for Northern Ireland ['Antrim'] = 'AM', ['Armagh'] = 'AH', ['Down'] = 'DN', ['Fermanagh'] = 'FH', ['Londonderry'] = 'LY', ['Tyrone'] = 'TE' }

function makeTableRow(rowLabel, useCountyWord, countyList) debugLog(2, "makeTableRow: [" .. rowLabel .. "]") tableRowNum = tableRowNum + 1 local thisRow if (tableRowNum % 2) == 0 then debugLog(3, "Even-numbered") thisRow = '\n' else debugLog(3, "Odd-numbered") thisRow = '\n' end if not ((rowLabel == nil) or (mw.ustring.match(rowLabel, "^%s*$"))) then thisRow = thisRow .. '' .. rowLabel .. ' \n' end -- now begin making the row contents local countyWord = "" if useCountyWord then debugLog(3, "Using countyWord") countyWord = "County " else debugLog(3, "Not using countyWord") end thisRow = thisRow .. ' \n' local i, aCounty debugLog(3, "Process countyList") for i, aCounty in ipairs(countyList) do debugLog(4, "No. [" .. tostring(i) .. ": [" .. aCounty .. "]") myCatName = makeCatName(countyWord .. aCounty, title_prefix, title_suffix) thisRow = thisRow .. "* " .. makeCatLink(myCatName, aCounty) .. "\n" local j, nuCounty if (includeNewCounties and (aCounty == "Dublin")) then -- make a sub-list for the newCounties local subCatName for j, nuCounty in ipairs(newCounties) do				subCatName = makeCatName(nuCounty, title_prefix, title_suffix) thisRow = thisRow .. "** " .. makeCatLink(subCatName, nuCounty) .. "\n" end subCatName = makeCatName("Dublin (city)", title_prefix, title_suffix) thisRow = thisRow .. "** " .. makeCatLink(subCatName, "City") .. "\n" end end thisRow = thisRow .. ' \n ' return thisRow end

function makeTable debugLog(1, "makeTable") tableRowNum = 0 local myTable = ' \n"	return myTable end

function makeAbbreviatedCountyName(s) debugLog(5, "displayAbbrevCounty? ")

if not displayAbbrevCounty then debugLog(nil, " No") return s	end debugLog(nil, " Yes") if (abbreviatedCountyName[s] ~= nil) then debugLog(5, "AbbreviatedCountyName for: [" .. s .. "] = [" .. abbreviatedCountyName[s] .. "]") return abbreviatedCountyName[s] end debugLog(5, "No abbreviatedCountyName for: [" .. s .. "]") return s end

-- Make a piped link to a category, if it exists -- If it doesn't exist, just display the greyed the link title without linking function makeCatLink(catname, disp) local displaytext if (disp ~= "") and (disp ~= nil) then -- use 'disp' parameter, but strip any trailing disambiguator displaytext = mw.ustring.gsub(disp, "%s+%(.+$", "");		displaytext = makeAbbreviatedCountyName(displaytext)	else		displaytext = catname	end	local fmtlink	local catPage = mw.title.new( catname, "Category" )	if (catPage.exists) then		fmtlink = "" .. displaytext .. ""	else		fmtlink = ' ' .. displaytext .. " "	end

return fmtlink end

function makeCatName(countyName, prefix, suffix) local this_cat_name = ''; this_cat_name = this_cat_name .. prefix this_cat_name = this_cat_name .. countyName this_cat_name = this_cat_name .. suffix return this_cat_name end

-- Does the pagename include a bare county name? (i.e. without the prefix "County ") -- This would be one line in regex, but Lua pattern matching is cruder, so -- we need several passes to ensure that any match is of a complete word function findBareCountyNameInPagename(pn, countylist, description) local i, testCounty debugLog(2, "trying bare_county name [" .. pn .."] in county set: " .. description) for i, testCounty in ipairs(countylist) do debugLog(3, "testing new_county: [" .. testCounty .. "]") local testCountyEncoded = mw.ustring.gsub(testCounty, "([%W])", "%%%1") -- For efficiency, the first test is a simple match as a a screening test -- If the bare county name is nowhere in the pagename, then no need for -- more precise checks if (mw.ustring.match(pn, testCountyEncoded)) then debugLog(4, "simple match success") debugLog(4, "match at start, followed by separator? ") if mw.ustring.match(pn, "^" .. testCountyEncoded .. "[^%w]") then debugLog(nil, "Yes") return testCounty else debugLog(nil, "No") end debugLog(4, "match at end, preceded by separator? ") if mw.ustring.match(pn, "[^%w]" .. testCountyEncoded .. "$") then debugLog(nil, "Yes") return testCounty else debugLog(nil, "No") end debugLog(4, "match anywhere, preceded and followed by separator? ") if mw.ustring.match(pn, "[^%w]" .. testCountyEncoded .. "[^%w]") then debugLog(nil, "Yes") return testCounty else debugLog(nil, "No") end else debugLog(4, "simple match fail") end end return nil end

-- check whether a given county name is in a particular set function isCountyInSet(s, aSet) local thisCounty = mw.ustring.gsub(s, "^County +", "") local aValidCounty for i, aValidCounty in ipairs(aSet) do if mw.ustring.match(thisCounty, "^" .. aValidCounty .. "$") then return true end end return false end

function parsePagename(pn) debugLog(1, "parsePagename: [" .. pn .. "]") debugLog(2, "simple parse") match_prefix, match_county, match_suffix = mw.ustring.match(pn, "^(.*)(County%s+%a+)(.*)$") if not (match_county == nil or match_county == '') then debugLog(3, "County Foo = [" .. match_county .. "]") -- we have a "County Foo" ... but is it one of the 32 counties? debugLog(3, "is [" .. match_county .. "] one of the 32 counties?") if isCountyInSet(match_county, Traditional32Counties) then debugLog(nil, "Yes") else debugLog(nil, "No") return false end else -- simple parse failed debugLog(3, "No match_'County Foo'") local new_county = findBareCountyNameInPagename(pn, newCounties, "New_counties") if new_county == nil then debugLog(3, "no match in new counties") return false end debugLog(3, "found new county: [" .. new_county .. "]") local testCountyEncoded = mw.ustring.gsub(new_county, "([%W])", "%%%1") match_prefix, match_county, match_suffix = mw.ustring.match(pn, "^(.*)(" .. testCountyEncoded .. ")(.*)$")	end title_prefix = match_prefix title_suffix = match_suffix debugLog(2, "parse successful") debugLog(3, "match_prefix = [" .. match_prefix .. "]") debugLog(3, "match_county = [" .. match_county .. "]") debugLog(3, "match_suffix = [" .. match_suffix .. "]") return true end

function publishDebugLog if not debugging then return "" end return "==Debugging ==\n\n" .. debugmsg .. "\n== Output ==\n" end

-- debugLog builds a log which can be output if debuging is enabled -- each log entry is given a level, so that the output is not simply a flat list -- a debug msg may be appended to the previous msg by setting the level to nil function debugLog(level, msg)

if (debugmsg == nil) then debugmsg = "" end

if (level ~= nil) then -- not appending, so make a new line debugmsg = debugmsg .. "\n" -- then add the level local i		for i = 1, level do			if (i % 2) == 1 then debugmsg = debugmsg .. "#"			else debugmsg = debugmsg .. "*"			end end end debugmsg = debugmsg .. " " .. msg return true end

function p.main(frame) -- getArgs -- In all cases, convert to blank (i.e. '') --  * a nil value --  * a value consisting only of whitespace

debugLog(1, "Check parameters") debugLog(2, "debug") if (frame.args['debug'] == nil) then debugLog(3, "not set") else debugLog(3, "debug=[" .. frame.args['debug'] .. "]") debugLog(4, "Evaluate as: ") if (yesno(frame.args['debug'], false)) then debugLog(nil, "Yes") debugging = true else debugLog(nil, "No, or invalid") debugging = false end end

debugLog(2, "usecountyword") if (frame.args['usecountyword'] == nil) then debugLog(3, "not set") else debugLog(3, "debug=[" .. frame.args['usecountyword'] .. "]") debugLog(4, "Evaluate as: ") if (yesno(frame.args['usecountyword'], true)) then debugLog(nil, "Yes, or invalid") useCountyWord = true else debugLog(nil, "No") useCountyWord = false end end

debugLog(2, "abbrev") if (frame.args['abbrev'] == nil) then debugLog(3, "not set") else debugLog(3, "abbrev=[" .. frame.args['abbrev'] .. "]") debugLog(4, "Evaluate as: ") if (yesno(frame.args['abbrev'], false)) then debugLog(nil, "Yes") displayAbbrevCounty = true else debugLog(nil, "No, or invalid") displayAbbrevCounty = false end end

debugLog(2, "newcounties") if (frame.args['newcounties'] == nil) then debugLog(3, "not set") else debugLog(3, "debug=[" .. frame.args['newcounties'] .. "]") debugLog(4, "Evaluate as: ") if (yesno(frame.args['newcounties'], false)) then debugLog(nil, "Yes, or invalid") includeNewCounties = true else debugLog(nil, "No") includeNewCounties = false end end

-- still need to add a "countyset" parameter, to choose [all 32]/[only 26]/[only 6]/[GAACounties]/[26+6] -- this is just a crude start countySetParam = "twentysixplussix" -- default debugLog(2, "countySet") if (frame.args['countyset'] == nil) then debugLog(3, "not set") else debugLog(3, "countyset=[" .. frame.args['countyset'] .. "]") local countySetParam = mw.text.trim(mw.ustring.lower(frame.args['countyset'])) debugLog(4, "Evaluate as: ") if (countySetParam == "twentysix") or			(countySetParam == "six") or			(countySetParam == "thirtytwo") or			(countySetParam == "twentysixplussix") then countySet = countySetParam debugLog(nil, "[" .. countySetParam .. "]") else debugLog(nil, "not a valid set") end end

-- get the page title thispage = mw.title.getCurrentTitle thispagename = thispage.text; debugLog(1, "mw.title.getCurrentTitle") debugLog(2, "thispage.text = [" .. thispage.text .."]") debugLog(2, "thispage.namespace = [" .. thispage.namespace .."]") debugLog(2, "thispage.nsText = [" .. thispage.nsText .."]") debugLog(2, "is it a cat? using (thispage:inNamespace(14)): ") if not (thispage:inNamespace(14)) then debugLog(nil, "No, this is not a category") debugLog(1, "Not a category, so no output") return publishDebugLog end debugLog(nil, "Yes, this is a category")

if not parsePagename(thispagename) then -- some error parsing the title, so don't proceed to output return publishDebugLog end debugLog(1, "all parse done") debugLog(2, "title_prefix = [" .. title_prefix .. "]") debugLog(2, "title_suffix = [" .. title_suffix .. "]")

return publishDebugLog .. makeTable

end

return p