Editing Module:BSW/MainPage

-- Module:BSW/MainPage
-- MW 1.45 compatible. Uses only sanitizer-safe HTML elements.
-- <button> is NOT on the MW 1.45 allowed list — replaced with
-- <span role="button"> which IS allowed and is wired by JS.
-- External <a class="..."> replaced with wikitext [url text]
-- processed via frame:preprocess().

local p = {}

-- ── Helpers ───────────────────────────────────────────────────────

local function e( s )
    s = tostring( s or '' )
    s = s:gsub( '&', '&amp;' ):gsub( '<', '&lt;' ):gsub( '>', '&gt;' ):gsub( '"', '&quot;' )
    return s
end

local function a( name, val )
    if val and val ~= '' then return ' ' .. name .. '="' .. e(val) .. '"' end
    return ''
end

-- Wikitext internal link: [[target|label]]
local function wlink( frame, target, label )
    return frame:preprocess( '[[' .. target .. '|' .. (label or target) .. ']]' )
end

-- External link via wikitext: [url label] — survives sanitizer
local function xlink( frame, url, label )
    return frame:preprocess( '[' .. url .. ' ' .. (label or url) .. ']' )
end

-- Span acting as a button — sanitizer-safe, JS wires the behaviour
local function spanBtn( id, cls, onclick, label )
    return '<span' ..
        a('id', id) ..
        a('class', cls) ..
        a('role', 'button') ..
        a('tabindex', '0') ..
        a('onclick', onclick) ..
        '>' .. (label or '') .. '</span>'
end

-- Check if transcluded content is just a red link (page doesn't exist).
-- Returns true if content should be hidden.
local function isRedlink( content )
    if not content or mw.text.trim( content ) == '' then return true end
    -- MW renders missing transclusions as red links with class="new"
    -- Check if content is ONLY a red link and nothing else meaningful
    local stripped = mw.text.trim( content )
    -- If it starts with the page title link pattern for a missing page
    -- (the whole content is just one red link), hide it
    if stripped:match( '^<a[^>]+class="[^"]*new[^"]*"' ) and
       not stripped:match( '</a>%s*%S' ) then
        return true
    end
    return false
end

-- Wrap a card so JS can hide it if content is a red link
local function conditionalCard( id, html )
    return '<div class="bsw-conditional-card"' .. a('id', id) .. '>' .. html .. '</div>'
end

-- ── hero() ────────────────────────────────────────────────────────
function p.hero( frame )
    local args  = frame.args
    local count = tonumber( args.count ) or 0
    local html  = '<div class="bsw-hero">'

    for i = 1, count do
        local pfx    = 'slide' .. i .. '_'
        local art    = mw.text.trim( args[pfx..'article']    or '' )
        local series = mw.text.trim( args[pfx..'series']     or '' )
        local title  = mw.text.trim( args[pfx..'title']      or art )
        local tlink  = mw.text.trim( args[pfx..'titlelink']  or art )
        local desc   = mw.text.trim( args[pfx..'desc']       or '' )
        local bcolor = mw.text.trim( args[pfx..'badgecolor'] or '' )

        local active   = i == 1 and ' bsw-active' or ''
        local dot_sty  = bcolor ~= '' and ' style="background:' .. bcolor .. '"' or ''
        local wl       = wlink( frame, tlink, title )

        html = html ..
            '<div class="bsw-slide' .. active .. '"' .. a('data-article', art) .. '>' ..
            '<div class="bsw-slide-bg"></div>' ..
            '<div class="bsw-slide-overlay"></div>' ..
            '<div class="bsw-slide-content">' ..
            '<div class="bsw-slide-badge">' ..
            '<span class="bsw-slide-badge-dot"' .. dot_sty .. '></span>' ..
            '<span>' .. e(series) .. '</span>' ..
            '</div>' ..
            '<div class="bsw-slide-title">' .. wl .. '</div>' ..
            '<div class="bsw-slide-desc">' .. e(desc) .. '</div>' ..
            '</div>' ..
            '</div>'
    end

    -- Dots: span[role=button] — sanitizer safe
    html = html .. '<div class="bsw-hero-dots">'
    for i = 1, count do
        local cls = 'bsw-hero-dot' .. (i == 1 and ' bsw-active' or '')
        html = html .. spanBtn(nil, cls, 'bswGoSlide(' .. (i-1) .. ')', '')
    end
    html = html .. '</div>'

    -- Prev/next: span[role=button]
    html = html ..
        '<div class="bsw-hero-nav">' ..
        spanBtn('bsw-hero-prev', 'bsw-hero-btn', 'bswPrevSlide()', '&#8249;') ..
        spanBtn('bsw-hero-next', 'bsw-hero-btn', 'bswNextSlide()', '&#8250;') ..
        '</div>' ..
        '</div>'

    return html
end

-- ── portals() ─────────────────────────────────────────────────────
function p.portals( frame )
    local args  = frame.args
    local count = tonumber( args.count ) or 0

    local html =
        '<div class="bsw-portals">' ..
        '<div class="bsw-portals-label">∞ Portals of Battlestar Wiki ∞</div>' ..
        '<div class="bsw-portals-grid">'

    for i = 1, count do
        local pfx    = 'portal' .. i .. '_'
        local href   = mw.text.trim( args[pfx..'href']   or '#' )
        local stripe = mw.text.trim( args[pfx..'stripe'] or '' )
        local icon   = mw.text.trim( args[pfx..'icon']   or '' )
        local name   = mw.text.trim( args[pfx..'name']   or '' )
        local sub    = mw.text.trim( args[pfx..'sub']    or '' )

        -- Internal links (/Portal:...) work as wikitext links
        -- Use span wrapper styled as link block via CSS
        local stripe_sty = stripe ~= '' and ' style="background:' .. stripe .. '"' or ''
        local inner =
            '<div class="bsw-portal-stripe"' .. stripe_sty .. '></div>' ..
            '<span class="bsw-portal-icon">' .. icon .. '</span>' ..
            '<span class="bsw-portal-name">' .. e(name) .. '</span>' ..
            '<span class="bsw-portal-sub">'  .. e(sub)  .. '</span>'

        -- Use MW internal link syntax — href is a /Wiki_Path
        -- Strip leading slash to get page title
        local page = href:gsub('^/', '')
        local link = frame:preprocess( '[[' .. page .. '|<div class="bsw-portal">' .. inner .. '</div>]]' )
        html = html .. link
    end

    html = html .. '</div></div>'
    return html
end

-- ── card header helper ────────────────────────────────────────────
-- Returns card-hd div; link is rendered as wikitext [url text]
local function cardHd( frame, title, linktext, linkurl )
    local hd = '<div class="bsw-card-hd">' .. e(title)
    if linkurl and linkurl ~= '' then
        -- Internal links start with /
        local link
        if linkurl:match('^/') or linkurl:match('^#') then
            local page = linkurl:gsub('^/', '')
            if page == '' or page:match('^#') then
                -- anchor-only or hash — can't wikilink, use span
                link = '<span class="bsw-card-hd-link">' .. e(linktext or 'More') .. '</span>'
            else
                link = frame:preprocess( '[[' .. page .. '|' .. (linktext or 'More →') .. ']]' )
            end
        else
            link = xlink( frame, linkurl, linktext or 'More →' )
        end
        hd = hd .. link
    end
    hd = hd .. '</div>'
    return hd
end

-- ── card() ────────────────────────────────────────────────────────
function p.card( frame )
    local args    = frame.args
    local title   = mw.text.trim( args.title    or '' )
    local ltext   = mw.text.trim( args.linktext or '' )
    local lurl    = mw.text.trim( args.linkurl  or '' )
    local content = args.content or ''

    -- Hide card entirely if content resolved to only a red link
    if isRedlink( content ) then return '' end

    return '<div class="bsw-card">' ..
        cardHd( frame, title, ltext, lurl ) ..
        '<div class="bsw-card-body">' .. content .. '</div>' ..
        '</div>'
end

-- ── featuredloading() ─────────────────────────────────────────────
function p.featuredloading( frame )
    -- "Read more" link points to '#' — JS will update href
    -- Use a span since we can't href to '#' cleanly in wikitext
    local hd =
        '<div class="bsw-card-hd">Featured article' ..
        '<span class="bsw-card-hd-link" id="bsw-featured-link">Read more →</span>' ..
        '</div>'

    return '<div class="bsw-card">' ..
        hd ..
        '<div class="bsw-card-body">' ..
        '<div id="bsw-featured-inner">' ..
        '<div class="bsw-loading">' ..
        '<div class="bsw-spinner"></div>' ..
        'Loading today\'s featured article\226\128\166' ..
        '</div></div></div></div>'
end

-- ── photolab() ────────────────────────────────────────────────────
function p.photolab( frame )
    local args     = frame.args
    local content  = args.content    or ''
    local prev_url = mw.text.trim( args.prev_url   or '' )
    local prev_lbl = mw.text.trim( args.prev_label or '‹' )
    local caption  = mw.text.trim( args.caption    or '' )
    local next_url = mw.text.trim( args.next_url   or '' )
    local next_lbl = mw.text.trim( args.next_label or '›' )

    -- Hide if today's PotD subpage doesn't exist yet
    if isRedlink( content ) then return '' end

    local hd =
        '<div class="bsw-card-hd">\226\136\158 Photo Lab \226\128\148 Picture of the Day' ..
        frame:preprocess( '[[BW:Potd|View project →]]' ) ..
        '</div>'

    local prev_link = prev_url ~= '' and frame:preprocess( '[[' .. prev_url:gsub('^/','') .. '|' .. prev_lbl .. ']]' ) or prev_lbl
    local next_link = next_url ~= '' and frame:preprocess( '[[' .. next_url:gsub('^/','') .. '|' .. next_lbl .. ']]' ) or next_lbl

    local nav =
        '<div class="bsw-photo-nav">' ..
        prev_link ..
        '<span class="bsw-photo-caption">' .. e(caption) .. '</span>' ..
        next_link ..
        '</div>'

    return '<div class="bsw-card">' .. hd .. content .. nav .. '</div>'
end

-- ── statsblock() ──────────────────────────────────────────────────
function p.statsblock( frame )
    local args = frame.args
    local grid = '<div class="bsw-stats-grid">'
    for i = 1, 6 do
        local n     = mw.text.trim( args['n'     .. i] or '' )
        local label = mw.text.trim( args['label' .. i] or '' )
        if n ~= '' or label ~= '' then
            grid = grid ..
                '<div class="bsw-stat">' ..
                '<div class="bsw-stat-n">' .. n .. '</div>' ..
                '<div class="bsw-stat-l">' .. e(label) .. '</div>' ..
                '</div>'
        end
    end
    grid = grid .. '</div>'

    local links = '<div class="bsw-stat-links">'
    for i = 1, 4 do
        local url  = mw.text.trim( args['link' .. i .. '_url' ] or '' )
        local text = mw.text.trim( args['link' .. i .. '_text'] or '' )
        if url ~= '' then
            local page = url:gsub('^/', '')
            links = links .. frame:preprocess( '[[' .. page .. '|<span class="bsw-stat-link">' .. e(text) .. '</span>]]' )
        end
    end
    links = links .. '</div>'

    return
        '<div class="bsw-card">' ..
        '<div class="bsw-card-hd">Wiki statistics</div>' ..
        '<div class="bsw-card-body">' .. grid .. links .. '</div>' ..
        '</div>'
end

-- ── recenttabs() ──────────────────────────────────────────────────
function p.recenttabs( frame )
    local tabs = { {'All','all'}, {'EN','en'}, {'DE','de'}, {'Media','media'} }
    local html = '<div class="bsw-wiki-tabs">'
    for i, t in ipairs(tabs) do
        local cls = 'bsw-wtab' .. (i == 1 and ' bsw-active' or '')
        html = html .. spanBtn(nil, cls, "bswSetTab(this,'" .. t[2] .. "')", t[1])
    end
    return html .. '</div>'
end

-- ── interwiki() ───────────────────────────────────────────────────
function p.interwiki( frame )
    local args = frame.args
    local html = '<div class="bsw-interwiki">'
    for i = 1, 8 do
        local flag  = mw.text.trim( args[i..'_flag' ] or '' )
        local label = mw.text.trim( args[i..'_label'] or '' )
        local url   = mw.text.trim( args[i..'_url'  ] or '' )
        if url ~= '' then
            local link
            if url:match('^/') then
                link = frame:preprocess( '[[' .. url:gsub('^/','') .. '|' .. label .. ']]' )
            else
                link = xlink( frame, url, label )
            end
            local prefix = flag ~= '' and (flag .. ' ') or ''
            html = html .. '<div class="bsw-iw">' .. prefix .. link .. '</div>'
        end
    end
    return html .. '</div>'
end

-- ── tagline() ─────────────────────────────────────────────────────
function p.tagline( frame )
    local inner = frame:preprocess(
        "The only original and legitimate '''Battlestar Wiki''' " ..
        "\226\128\148 the free-as-in-beer, non-corporate, open-content encyclopedia " ..
        "on all things ''Battlestar Galactica''.<br>" ..
        "\226\136\158 ''Accept neither subpar substitutes nor subpar clones.'' \226\136\158"
    )
    return '<div class="bsw-tagline">' .. inner .. '</div>'
end

-- ── sisterprojects() ──────────────────────────────────────────────
-- Dedicated card for sister wiki links.
-- Uses numbered params: |1_label, |1_url, |2_label, |2_url ...
-- External URLs rendered via frame:preprocess [url label] syntax.
function p.sisterprojects( frame )
    local args = frame.args
    local body = '<div style="display:flex;flex-direction:column;gap:0.375rem">'
    for i = 1, 8 do
        local label = mw.text.trim( args[i .. '_label'] or '' )
        local url   = mw.text.trim( args[i .. '_url'  ] or '' )
        if url ~= '' and label ~= '' then
            -- Wrap in span.bsw-sister-link for styling
            -- Use preprocess so [url text] becomes a real hyperlink
            local link = frame:preprocess( '[' .. url .. ' ' .. label .. ']' )
            body = body .. '<div class="bsw-sister-link">' .. link .. '</div>'
        end
    end
    body = body .. '</div>'

    return
        '<div class="bsw-card">' ..
        '<div class="bsw-card-hd">Sister projects</div>' ..
        '<div class="bsw-card-body">' .. body .. '</div>' ..
        '</div>'
end

-- ── votd() ────────────────────────────────────────────────────────
-- Renders the Video of the Day band.
-- The container div carries data-date and data-override attributes
-- so the VotD JS loader can find and populate it.
-- data-override is populated if a manual subpage exists for today.
--
-- Usage: {{#invoke:BSW/MainPage|votd}}
function p.votd( frame )
    local today =
        frame:callParserFunction( 'CURRENTYEAR'  ) .. '-' ..
        frame:callParserFunction( 'CURRENTMONTH' ) .. '-' ..
        frame:callParserFunction( 'CURRENTDAY'   )

    local override_page = 'BattlestarWiki:VotD/' .. today
    local override_title = mw.title.new( override_page )
    local override_token = ''
    if override_title and override_title.exists then
        local content = override_title:getContent()
        if content then
            override_token = mw.text.trim( content )
        end
    end

    -- Header bar
    local hd =
        '<div class="bsw-votd-hd">' ..
        '<span class="bsw-votd-hd-inner">' ..
        '<span class="bsw-votd-hd-dot"></span>' ..
        '\226\136\158 Video of the Day' ..
        '</span>' ..
        frame:preprocess( '[https://battlestarpegasus.com battlestarpegasus.com \226\134\151]' ) ..
        '</div>'

    -- Inner grid: player (populated by JS) + info panel (populated by JS)
    local inner =
        '<div class="bsw-votd-inner">' ..
        '<div class="bsw-votd-player">' ..
        '<div class="bsw-loading"><div class="bsw-spinner"></div>Loading today\226\128\153s video\226\128\166</div>' ..
        '</div>' ..
        '<div class="bsw-votd-info" id="bsw-votd-info" style="display:none"></div>' ..
        '</div>'

    return
        '<div class="bsw-votd-band" id="bsw-votd-container"' ..
        ' data-date="' .. today .. '"' ..
        ' data-override="' .. mw.text.trim( override_token ) .. '">' ..
        hd .. inner ..
        '</div>'
end

return p