From English Wikipedia @ Freddythechick
local p = {}
function make_cat_link(catname, disp)
local displaytext
if (disp ~= "") then
displaytext = disp
else
displaytext = catname
end
local link = "[[:Category:" .. catname .. "|" .. displaytext .. "]]"
local fmtlink
local linktitle = mw.title.new( catname, "Category" )
if (linktitle.exists) then
fmtlink = link
else
fmtlink = "<span style=\"color:#888\">" .. displaytext .. "</span>"
end
return fmtlink
end
local p = {}
function boolify(s)
if (s == nil or s == '') then
return false
end
s = s:lower()
if (s == 'y' or s == 'yes') then
return true
end
return false
end
function make_cat_name(countyname, prefix, suffix, nospace, nocounty)
local this_cat_name = '';
if not (prefix == nil or prefix == '') then
this_cat_name = this_cat_name .. prefix
if not (boolify(nospace)) then
this_cat_name = this_cat_name .. ' ';
end
end
if not (boolify(nocounty)) then
this_cat_name = this_cat_name .. 'County ';
end
this_cat_name = this_cat_name .. countyname
if not (suffix == nil or suffix == '') then
if not (boolify(nospace)) then
this_cat_name = this_cat_name .. ' ';
end
this_cat_name = this_cat_name .. suffix
end
return this_cat_name
end
-- Named arguments, used like: {{#invoke:IrelandByCountyCatNav|before=foo|after=|nospace=y}}
function p.main(frame)
local p_before = frame.args.before
local p_after = frame.args.after
local p_nospace = frame.args.nospace
local p_nocounty = frame.args.nocounty
local retval = "";
retval = retval .. "<pre>"
retval = retval .. '\nbefore=[' .. p_before .. ']' .. '\nafter=[' .. p_after .. ']' .. '\nnospace=[' .. p_nospace .. ']' .. '\nnocounty=[' .. p_nocounty .. ']'
retval = retval .. "</pre>"
retval = retval .. "\n\n'''-->'''\n\n* Cat = [" .. make_cat_name("Mayo", p_before, p_after, p_nospace, p_nocounty) .. "]\n"
retval = retval .. "* Catlink = " .. make_cat_link(make_cat_name("Mayo", p_before, p_after, p_nospace, p_nocounty), "Mayo")
local thispage = mw.title.getCurrentTitle()
local pagename = thispage.text
retval = retval .. "\n* thispage"
retval = retval .. "\n**pagename = [" .. pagename .."]"
retval = retval .. "\n**namespace = [" .. thispage.namespace .."]"
retval = retval .. "\n**namespace as text = [" .. thispage.nsText .."]"
retval = retval .. "\n**is it a cat? = "
if (thispage:inNamespace(14)) then
retval = retval .. "yes"
else
retval = retval .. "no"
end
return retval
end
return p
