Ikwipedia

Module:NavboxUpgraded: Difference between revisions

← Older edit
No edit summary
No edit summary
 
(20 intermediate revisions by the same user not shown)
Line 1: Line 1:
-- Module:NavboxUpgraded
-- Module:NavboxUpgraded
require('strict')
local p = {}
local p = {}
local cfg = mw.loadData('Module:Navbox/configuration')
local inArray = require("Module:TableTools").inArray
local getArgs -- lazily initialized
local format = string.format


local getArgs = require('Module:Arguments').getArgs


-- Recursive function to process subgroups
-- Recursive function to process subgroups
Line 13: Line 18:
             local container = html:tag('div')
             local container = html:tag('div')
                 :addClass('navbox-subgroup')
                 :addClass('navbox-subgroup')
                 :css('margin', '0.5em 0')
                 :css('margin-left', '1em') -- Indent for nesting
                 :css('padding', '0.25em')
                 :css('padding', '0.25em')


Line 19: Line 24:
             if subgroup then
             if subgroup then
                 container:tag('div')
                 container:tag('div')
                     :addClass('navbox-subgroup-heading')
                     :addClass('navbox-group')
                     :css('background-color', '#e6e6ff') -- Light shade
                     :css('background-color', '#e6e6ff') -- Lighter shade
                     :css('padding', '0.25em 1em')
                     :css('padding', '0.25em 1em')
                     :css('font-weight', 'bold')
                     :css('font-weight', 'bold')
Line 28: Line 33:
             -- Subgroup list
             -- Subgroup list
             if sublist then
             if sublist then
                 container:tag('ul')
                 if sublist:lower() == 'subgroup' then
                    :addClass('navbox-list')
                    -- Recursively render nested subgroups
                    :css('padding-left', '1.5em')
                    local childArgs = {}
                    :css('list-style', 'disc') -- Bullet points
                    for k, v in pairs(args) do
                     :wikitext(sublist)
                        local prefix = groupPrefix .. '_list' .. i .. '_'
                        if k:sub(1, #prefix) == prefix then
                            childArgs[k:sub(#prefix + 1)] = v
                        end
                    end
                    local nestedSubgroup = renderSubgroups(childArgs, groupPrefix .. '_list' .. i)
                    container:wikitext(nestedSubgroup)
                else
                    -- Process the list into proper <li> elements
                    local listHtml = mw.html.create('ul')
                        :addClass('navbox-list')
                        :css('padding-left', '1.5em')
                        :css('list-style', 'disc')
 
                    for item in sublist:gmatch("[^\n]+") do
                        -- Remove leading '*' or similar list markers
                        local cleanItem = item:gsub("^%s*[%*#]+%s*", "")
                        if cleanItem ~= '' then
                            listHtml:tag('li')
                                :wikitext(cleanItem)
                        end
                     end
 
                    container:node(listHtml)
                end
             end
             end
            html:node(container)
         end
         end
     end
     end
     return tostring(html)
     return tostring(html)
end
end


-- Function to generate the desktop navbox
-- Function to generate the desktop navbox
Line 43: Line 74:
     local navbox = mw.html.create('table')
     local navbox = mw.html.create('table')
     navbox
     navbox
         :addClass('navbox')
         :addClass('navbox-upgraded') -- Updated class
         -- [Rest of your styling code]
        :css('width', '100%')
        :css('margin', 'auto')
        :css('clear', 'both')
        :css('border', '1px solid #a2a9b1')
         :css('padding', '1px')
        :css('font-size', '88%')
        :css('text-align', 'center')


     -- Handle title
     -- Handle title
     -- [Existing code for title]
     if args.title then
        local titleRow = navbox:tag('tr')
        local titleCell = titleRow:tag('th')
        titleCell
            :attr('colspan', '2')
            :addClass('navbox-title')
            :css('background-color', '#ccf')
            :css('padding', '0.25em 1em')
            :wikitext(args.title)
    end


     -- Handle above
     -- Handle above
     -- [Existing code for above]
     if args.above then
        local aboveRow = navbox:tag('tr')
        local aboveCell = aboveRow:tag('td')
        aboveCell
            :attr('colspan', '2')
            :addClass('navbox-abovebelow')
            :css('background-color', '#ddf')
            :css('padding', '0.25em 1em')
            :wikitext(args.above)
    end


     -- Handle groups and lists
     -- Handle groups and lists
    local rowIndex = 0
     for i = 1, 10 do
     for i = 1, 10 do
         local group = args['group' .. i]
         local group = args['group' .. i]
         local list = args['list' .. i]
         local list = args['list' .. i]
         if group or list then
         if group or list then
            rowIndex = rowIndex + 1
             local row = navbox:tag('tr')
             local row = navbox:tag('tr')
            -- Apply striped classes
            if rowIndex % 2 == 1 then
                row:attr('class', 'navbox-odd')
            else
                row:attr('class', 'navbox-even')
            end


             -- Group heading
             -- Group heading
             if group then
             if group then
                 -- [Existing code for groupCell]
                 local groupCell = row:tag('th')
                groupCell
                    :addClass('navbox-group')
                    :css('text-align', 'right')
                    :css('background-color', '#ddf') -- Parent shade
                    :css('padding', '0.25em 1em')
                    :wikitext(group)
             end
             end


Line 67: Line 137:
             if list then
             if list then
                 local listCell = row:tag('td')
                 local listCell = row:tag('td')
                listCell
                     :addClass('navbox-list')
                     :addClass('navbox-list')
                    -- [Rest of your styling code]


                 if list == 'subgroup' then
                -- Apply list classes if specified
                if args.listclass then
                    listCell:addClass(args.listclass) -- e.g., 'hlist' or 'plainlist'
                end
 
                -- Render subgroups or standard lists
                 if list:lower() == 'subgroup' then
                     -- Process subgroup
                     -- Process subgroup
                     local childArgs = {}
                     local childArgs = {}
Line 80: Line 154:
                         end
                         end
                     end
                     end
                     local subgroupContent = p._navboxDesktop(childArgs)
                     local subgroupContent = renderSubgroups(childArgs, 'list' .. i)
                     listCell:wikitext(subgroupContent)
                     listCell:wikitext(subgroupContent)
                 else
                 else
                     listCell:tag('ul')
                     listCell:tag('ul')
                         :addClass('navbox-list')
                         :addClass('navbox-list')
                         -- [Rest of your styling code]
                         :css('list-style', 'disc')
                        :css('padding-left', '1.5em')
                         :wikitext(list)
                         :wikitext(list)
                 end
                 end
Line 93: Line 168:


     -- Handle below
     -- Handle below
     -- [Existing code for below]
     if args.below then
        local belowRow = navbox:tag('tr')
        local belowCell = belowRow:tag('td')
        belowCell
            :attr('colspan', '2')
            :addClass('navbox-abovebelow')
            :css('background-color', '#ddf')
            :css('padding', '0.25em 1em')
            :wikitext(args.below)
    end


     return tostring(navbox)
     return tostring(navbox)
end
end




Line 167: Line 253:
     return tostring(navbox)
     return tostring(navbox)
end
end
local function add_navbox_styles()
    local html = mw.html.create()
   
    -- Helper function to add a stylesheet link
    local function add_stylesheet(path)
        html:tag('link')
            :attr('rel', 'stylesheet')
            :attr('href', path)
            :attr('type', 'text/css')
    end
    -- Assuming cfg.templatestyles contains space-separated CSS file paths
    if type(cfg.templatestyles) == 'string' and cfg.templatestyles ~= '' then
        for stylePath in cfg.templatestyles:gmatch("[^%s]+") do
            add_stylesheet(stylePath)
        end
    end
    if type(cfg.hlist_templatestyles) == 'string' and cfg.hlist_templatestyles ~= '' then
        for stylePath in cfg.hlist_templatestyles:gmatch("[^%s]+") do
            add_stylesheet(stylePath)
        end
    end
    if type(cfg.plainlist_templatestyles) == 'string' and cfg.plainlist_templatestyles ~= '' then
        for stylePath in cfg.plainlist_templatestyles:gmatch("[^%s]+") do
            add_stylesheet(stylePath)
        end
    end
    return html:done()
end


-- Main function
-- Main function
function p.navbox(frame)
function p.navbox(frame)
    if not getArgs then
        getArgs = require('Module:Arguments').getArgs
    end
     local args = getArgs(frame)
     local args = getArgs(frame)
     local desktopNavbox = p._navboxDesktop(args)
     local desktopNavbox = p._navboxDesktop(args)
     local mobileNavbox = p._navboxMobile(args)
     local mobileNavbox = p._navboxMobile(args)


     local res = mw.html.create()
     local res = mw.html.create('div')
    res:node(add_navbox_styles()) -- Add styles at the beginning of the div
     res
     res
         :tag('div')
         :tag('div')
             :addClass('nomobile')
             :addClass('nomobile')
             :wikitext(desktopNavbox)
             :wikitext(desktopNavbox) -- Do not include `add_navbox_styles()` here
             :done()
             :done()
         :tag('div')
         :tag('div')
             :addClass('onlymobile')
             :addClass('onlymobile')
             :wikitext(mobileNavbox)
             :wikitext(mobileNavbox) -- Do not include `add_navbox_styles()` here
             :done()
             :done()


     return tostring(res)
     return tostring(res)
end
end


return p
return p
Retrieved from "https://en.ikwipedia.org/wiki/Module:NavboxUpgraded"