Module:Football manager history

-- Implement Template:Football manager history to avoid articles being -- added to Category:Pages where template include size is exceeded -- when the template is used many times.

local function clean(text, default) -- Return text, if not empty, after trimming leading/trailing whitespace. -- Otherwise return default which is nil unless set by caller. if text then text = text:match("^%s*(.-)%s*$") if text ~= then return text end end return default end

local function collection() -- Return a table to hold items. return { n = 0, add = function (self, item) self.n = self.n + 1 self[self.n] = item end, addif = function (self, item, fmt) if item then self.n = self.n + 1 self[self.n] = fmt and string.format(fmt, item) or item end end, join = function (self, sep) return table.concat(self, sep) end, } end

local function message(msg, caller, nocat) -- Return formatted message text for an error. -- Can append "#FormattingError" to URL of a page with a problem to find it. -- If given, caller is the title of the navbox which has the error. local anchor = '' local category if not nocat and mw.title.getCurrentTitle():inNamespaces(0, 10) then -- Category only in namespaces: 0=article, 10=template. category = else category = end return anchor .. '' .. category .. '\n' end

local function make_entry(name, from, to, islast) local result = '*' .. '' .. '' .. name .. ' (' .. from .. '' if to then result = result .. '–' .. to elseif islast then result = result .. '–' end result = result .. ')' return result end

local function make_list(text, note) -- Return a list of formatted items. -- Input is a string of multiple lines, one item per line. -- Each item is 'NAME FROM to TO' or 'NAME FROM', where -- NAME = manager name (any text) -- FROM = four digits (from year) -- TO = 1, 2, 3 or 4 digits (to year), or empty -- Alternatively, an item can use syntax (TEXT is any text, possibly empty): -- NAME from=TEXT -- NAME from=TEXT to=TEXT -- The code detects the end of NAME from the start of FROM. text = text or if text:find('<span class=', 1, true) then -- To allow a transition period where some navboxes use the old syntax, the -- given text is used if it appears to have come from the old subtemplates. return text end -- Get the non-blank lines first so can tell when am processing the last line. -- Each line is left- and right-trimmed. local lines = collection() for line in string.gmatch(text .. '\n', '[\t ]*(.-)[\t\r ]*\n') do if line ~= then lines:add(line) end end if lines.n <= 0 then return end local entries = collection()

entries:add('

')

for i, line in ipairs(lines) do -- Need to detect lines like "Name from=1930 & 1935" (probably should -- not be like that, but that is not up to the template to enforce). local name, from, to = line:match('^([^=]-)%s+(%d%d%d%d)%s+to%s+(%d%d?%d?%d?)$') if not name then name, from = line:match('^([^=]-)%s+(%d%d%d%d)$') if not name then name, from, to = line:match('^(.-) from=(.-) to=(.*)') if not name then name, from = line:match('^(.-) from=(.*)') end end end name = clean(name) from = clean(from, ) to = clean(to) if ((name or '=') .. (from or '=') .. (to or )):find('=', 1, true) then -- name and from must be defined (from can be ); to is optional. -- Reject '=' to avoid typos in items like 'to=x' or 'from=xto=y' -- from being displayed. error('Invalid line "' .. mw.text.nowiki(line) .. '"', 0) end entries:add(make_entry(name, from, to, i == lines.n)) end

entries:add('

')

entries:addif(note) return entries:join('\n') end

local function arg_style(bgcolor, textcolor, bordercolor) local result = collection() result:addif(clean(bgcolor), 'background:%s;') result:addif(clean(textcolor), 'color:%s;') result:addif(clean(bordercolor), 'border:1px solid %s;') result:add('width: 87%;') return result:join(' ') end

local function arg_title(title, teamname, managerlist, textcolor, american_english) title = clean(title) teamname = clean(teamname, 'MISSING "teamname"') managerlist = clean(managerlist) textcolor = clean(textcolor) american_english = clean(american_english) local spancolor = textcolor and ('') or '' local mgr = spancolor .. (american_english and 'Head coaches' or 'managers') .. '' return '' .. spancolor .. (title or teamname) .. ' – ' .. (managerlist and ('' .. mgr .. '') or mgr) end

local function _main(args) -- Return wikitext for a navbox. -- Code does not do much checking of inputs but will throw an error -- if input is found to be invalid. local style = arg_style(args.bgcolor, args.textcolor, args.bordercolor) local navargs = { bodyclass = 'vcard', name = clean(args.name), state = clean(args.state, 'autocollapse'), titlestyle = style, title = arg_title(args.title, args.teamname, args.managerlist, args.textcolor, args.american_english), listclass = 'hlist', list1 = make_list(args.list, clean(args.note)), belowstyle = style, below = clean(args.below), } local navbox = require('Module:Navbox')._navbox return navbox(navargs) end

local function main(frame) -- Return wikitext for a navbox or an error message. local args = frame:getParent().args -- Read arguments in order of output (Module:Navbox says this puts -- reference numbers in the right order). local _ _ = args.title _ = args.list _ = args.below local success, result = pcall(_main, args) if success then return result end return message(result, clean(args.name), clean(args.nocat)) end

return { main = main, _main = _main }