Module:Team roster navbox

-- This module implements {{team roster navbox}}
local me = { }

local Navbox = require('Module:Navbox')

local getArgs -- lazily initialized

local function colorlinks(v, s)
 if v and v ~= '' and s and s ~= '' then
  if not mw.ustring.match(v, '<span style') then
   v = mw.ustring.gsub(v, '%[%[([^%[%]|]*)%]%]', 
    '[[%1|<span style="' .. s .. '>%1</span>]]')
   v = mw.ustring.gsub(v, '%[%[([^%[%]|]*)|([^%[%]|]*)%]%]', 
    '[[%1|<span style="' .. s .. '>%2</span>]]')
  end
 end
 return v
end

local function extractstyle(v)
 local r = ''
 local slist = mw.text.split(mw.ustring.gsub(mw.ustring.gsub(v or '', '&#[Xx]23;', '#'), '&#35;', '#'), ';')
 for k = 1,#slist do
  local s = slist[k]
  if s:match('^[%s]*background') or s:match('^[%s]*color') then
   r = r .. s .. ';'
  end
 end
 return r
end 

function me.generateRosterNavbox(frame)
 if not getArgs then
  getArgs = require('Module:Arguments').getArgs
 end
    local args = { }
    local parentArgs = getArgs(frame)
    
    -- Default is to nowrap items
    args['nowrapitems'] = 'yes'

    -- Massage the styles for coloring the links
    local basestyle  = extractstyle(parentArgs['basestyle'] or '')
    local titlestyle = extractstyle(parentArgs['titlestyle'] or '')
    local abovestyle = extractstyle(parentArgs['abovestyle'] or '')
    local groupstyle = extractstyle(parentArgs['groupstyle'] or '')
    local belowstyle = extractstyle(parentArgs['belowstyle'] or '')
    
    if basestyle ~= '' then
     titlestyle = basestyle .. ';' .. titlestyle
     abovestyle = basestyle .. ';' .. abovestyle
     groupstyle = basestyle .. ';' .. groupstyle
     belowstyle = basestyle .. ';' .. belowstyle
    end
    
    -- Color links before passing them to the Navbox helper function
    for argName, value in pairs(parentArgs) do
        if value ~= '' then
            if type(argName) == 'string' then
                if argName == 'title' then
                    value = colorlinks(value, titlestyle)
                elseif argName == 'above' then
                    value = colorlinks(value, abovestyle)
                elseif mw.ustring.find(argName, '^group[0-9][0-9]*$') then
                 if parentArgs[argName .. 'style'] then
                     value = colorlinks(value, extractstyle(groupstyle .. ';' .. parentArgs[argName .. 'style']))
                 else
                  value = colorlinks(value, groupstyle)
                 end
                elseif argName == 'below' then
                    value = colorlinks(value, belowstyle)
                end
                args[argName] = value
            end
        end
    end
    -- Note Navbox.navbox() has a kludge to order the parent frame's args
    -- into a specific order. For now, this is omitted from this module.

    return Navbox._navbox(args)

end  -- function me.generateRosterNavbox

return me