UI.lua

local addonName, ns = ...

local FADE_DURATION = 0.2
-- LibDBIcon buttons ship with a 53 px decorative ring that extends beyond
-- the button frame itself (31 px). We keep those decorations intact (they
-- are what makes the icon read as a button) and size the grid cells big
-- enough that adjacent rings don't overlap. Pitch and padding are tuned
-- for LibDBIcon's ring; non-LibDBIcon buttons (MoveAny, Zygor, legacy)
-- simply sit inside a larger cell.
local PITCH    = 40
local PADDING  = 12
local MIN_COLS = 3
local MAX_COLS = 8

local function isUsable(frame)
    if not frame then return false end
    if frame.IsForbidden and frame:IsForbidden() then return false end
    return true
end

-- LibDataBroker + LibDBIcon trigger. Right-click opens the settings panel.
local ldb = LibStub("LibDataBroker-1.1")
local icon = LibStub("LibDBIcon-1.0")

local dataObject = ldb:NewDataObject("MinimapButtonCollector", {
    type = "launcher",
    text = "MBC",
    icon = "Interface\\Icons\\INV_Misc_Bag_10",
    OnClick = function(_, btn)
        if btn == "RightButton" and ns.OpenSettings then
            ns:OpenSettings()
        else
            ns:ToggleOverlay()
        end
    end,
    OnTooltipShow = function(tt)
        tt:AddLine("Minimap Button Collector")
        tt:AddLine("Left-click: open or close panel", 1, 1, 1)
        tt:AddLine("Right-click: settings", 1, 1, 1)
        tt:AddLine("/mbc config  ·  /mbc rescan  ·  /mbc list", 0.7, 0.7, 0.7)
    end,
})

local registerFrame = CreateFrame("Frame")
registerFrame:RegisterEvent("PLAYER_LOGIN")
registerFrame:SetScript("OnEvent", function(self)
    MinimapButtonCollectorPerCharDB = MinimapButtonCollectorPerCharDB or {}
    MinimapButtonCollectorPerCharDB.minimap = MinimapButtonCollectorPerCharDB.minimap or {}
    icon:Register("MinimapButtonCollector", dataObject, MinimapButtonCollectorPerCharDB.minimap)
    self:UnregisterAllEvents()
end)

-- Panel anchor presets: which minimap corner the panel attaches to, and how
-- the panel grows from there. LEFT/RIGHT place the panel beside the minimap;
-- BOTTOM*/TOP* place it below/above, aligned to a left or right edge.
local ANCHOR_PRESETS = {
    LEFT        = { panelAnchor = "TOPRIGHT",    mapAnchor = "TOPLEFT",     x = -4, y = 0  },
    RIGHT       = { panelAnchor = "TOPLEFT",     mapAnchor = "TOPRIGHT",    x =  4, y = 0  },
    BOTTOMLEFT  = { panelAnchor = "TOPLEFT",     mapAnchor = "BOTTOMLEFT",  x = 0,  y = -4 },
    BOTTOMRIGHT = { panelAnchor = "TOPRIGHT",    mapAnchor = "BOTTOMRIGHT", x = 0,  y = -4 },
    TOPLEFT     = { panelAnchor = "BOTTOMLEFT",  mapAnchor = "TOPLEFT",     x = 0,  y = 4  },
    TOPRIGHT    = { panelAnchor = "BOTTOMRIGHT", mapAnchor = "TOPRIGHT",    x = 0,  y = 4  },
}

local function getAnchorConfig()
    local db = MinimapButtonCollectorDB or {}
    db.global = db.global or {}
    return ANCHOR_PRESETS[db.global.panelAnchor] or ANCHOR_PRESETS.LEFT
end

local function shouldCatchOutsideClicks()
    local db = MinimapButtonCollectorDB
    return db and db.global and db.global.closeOnOutsideClick == true
end

local sidePanel

local function buildSidePanel()
    if sidePanel then return sidePanel end

    sidePanel = CreateFrame(
        "Frame",
        "MBCSidePanel",
        UIParent,
        BackdropTemplateMixin and "BackdropTemplate" or nil
    )
    sidePanel:SetFrameStrata("HIGH")

    if sidePanel.SetBackdrop then
        -- Thin gold tooltip-style border + warm pale-gold fill at low alpha.
        -- The fill is lighter than both the icons and the world behind, so
        -- mixing it in LIGHTENS rather than darkens — icons stand out MORE,
        -- not less. This is the one path to "fondo sin dim" that math allows.
        sidePanel:SetBackdrop({
            bgFile   = "Interface\\Buttons\\WHITE8X8",
            edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
            tile = true, tileSize = 8,
            edgeSize = 10,
        })
        if sidePanel.SetBackdropColor then
            sidePanel:SetBackdropColor(0.82, 0.70, 0.35, 0.15)
        end
        if sidePanel.SetBackdropBorderColor then
            sidePanel:SetBackdropBorderColor(0.78, 0.64, 0.30, 0.9)
        end
    end

    sidePanel:Hide()
    return sidePanel
end

local function applyPanelAnchor(panel)
    local cfg = getAnchorConfig()
    panel:ClearAllPoints()
    panel:SetPoint(cfg.panelAnchor, Minimap, cfg.mapAnchor, cfg.x, cfg.y)
end

local function computeGrid(n)
    if n <= 0 then return 0, 0 end
    local cols = math.ceil(math.sqrt(n))
    if cols < MIN_COLS then cols = MIN_COLS end
    if cols > MAX_COLS then cols = MAX_COLS end
    local rows = math.ceil(n / cols)
    return cols, rows
end

local function panelSizeFor(cols, rows)
    return cols * PITCH + 2 * PADDING, rows * PITCH + 2 * PADDING
end

-- Alpha animator (same pattern as v1.0.3: single reusable frame, per-entry
-- linear interpolation over `duration`, onDone callback fires once at t=1).
local animFrame = CreateFrame("Frame")

local function animateFade(entries, duration, onDone)
    local elapsed = 0
    animFrame:SetScript("OnUpdate", function(self, dt)
        elapsed = elapsed + dt
        local t = elapsed / duration
        if t > 1 then t = 1 end
        for _, e in ipairs(entries) do
            if isUsable(e.obj) then
                e.obj:SetAlpha(e.from + (e.to - e.from) * t)
            end
        end
        if t >= 1 then
            self:SetScript("OnUpdate", nil)
            if onDone then onDone() end
        end
    end)
end

-- ESC-to-close proxy. WoW hides the topmost shown frame listed in
-- UISpecialFrames on Escape; our OnHide reroutes to the animated close.
local escHandler = CreateFrame("Frame", "MBCEscHandler", UIParent)
escHandler:Hide()
escHandler:SetScript("OnHide", function()
    if ns.state.isOpen then
        ns:CloseOverlay()
    end
end)
tinsert(UISpecialFrames, "MBCEscHandler")

-- Optional click-outside-to-close catcher. Built lazily, shown only while the
-- panel is open AND the user has the setting enabled (default ON for v2).
-- Covers the full viewport behind the panel; MEDIUM strata means clicks on
-- the panel itself (HIGH) still reach the buttons.
local outsideCatcher

local function buildOutsideCatcher()
    if outsideCatcher then return end
    outsideCatcher = CreateFrame("Frame", nil, UIParent)
    outsideCatcher:SetAllPoints(UIParent)
    outsideCatcher:SetFrameStrata("MEDIUM")
    outsideCatcher:EnableMouse(true)
    outsideCatcher:SetScript("OnMouseDown", function() ns:CloseOverlay() end)
    outsideCatcher:Hide()
end

local function hookAutoClose(button, data)
    if data.hooked then return end
    button:HookScript("OnClick", function()
        if ns.state.isOpen then
            C_Timer.After(0, function() ns:CloseOverlay() end)
        end
    end)
    data.hooked = true
end

local function restoreButtons()
    -- Collected buttons stay permanently parented to the side panel once
    -- adopted; we don't reassign their parent or point every close. Just
    -- Hide() each so any OnUpdate loop in the owning addon stops firing
    -- while the panel is down. Panel:Hide() handles visual disappearance
    -- via parent-inheritance; per-button alpha is already 1 and stays so.
    for _, data in pairs(ns.collectedButtons) do
        local btn = data.button
        if isUsable(btn) then
            btn:Hide()
        end
    end
    if sidePanel then sidePanel:Hide() end
    escHandler:Hide()
    if outsideCatcher then outsideCatcher:Hide() end
end

function ns:OpenOverlay()
    if self.state.isOpen then return end

    local panel = buildSidePanel()

    local ordered = {}
    for _, entry in ipairs(ns:GetOrderedButtons()) do
        if isUsable(entry.data.button) then
            ordered[#ordered + 1] = entry
        end
    end

    if #ordered == 0 then
        print("|cffffcc55MBC:|r no minimap buttons collected yet. Try /mbc rescan.")
        return
    end

    self.state.isOpen = true

    local cols, rows = computeGrid(#ordered)
    local w, h = panelSizeFor(cols, rows)
    panel:SetSize(w, h)
    applyPanelAnchor(panel)

    -- Fade only the panel; collected buttons stay at alpha 1 and inherit
    -- effective visibility from the panel's current alpha. Saves per-button
    -- fade entries and matches how Blizzard-style frames animate.
    local fadeEntries = {
        { obj = panel, from = 0, to = 1 },
    }

    for i, entry in ipairs(ordered) do
        local btn = entry.data.button
        local col = (i - 1) % cols
        local row = math.floor((i - 1) / cols)

        btn:ClearAllPoints()
        btn:SetParent(panel)
        -- LibDBIcon creates its buttons at strata MEDIUM. The panel is HIGH,
        -- and a child that inherits but doesn't re-assert can end up drawn
        -- BELOW its parent's backdrop textures. Force the button above.
        btn:SetFrameStrata("HIGH")
        btn:SetFrameLevel(panel:GetFrameLevel() + 10)
        btn:SetPoint(
            "TOPLEFT",
            panel,
            "TOPLEFT",
            PADDING + col * PITCH,
            -(PADDING + row * PITCH)
        )
        btn:SetAlpha(1)
        entry.data.originalShow(btn)

        hookAutoClose(btn, entry.data)
    end

    panel:SetAlpha(0)
    panel:Show()
    escHandler:Show()

    if shouldCatchOutsideClicks() then
        buildOutsideCatcher()
        outsideCatcher:Show()
    end

    animateFade(fadeEntries, FADE_DURATION)
end

function ns:CloseOverlay(forced)
    if not self.state.isOpen then return end
    self.state.isOpen = false

    if forced then
        animFrame:SetScript("OnUpdate", nil)
        restoreButtons()
        return
    end

    -- Panel-only fade; children inherit effective visibility.
    local fadeEntries = {}
    if sidePanel then
        fadeEntries[#fadeEntries + 1] = { obj = sidePanel, from = sidePanel:GetAlpha(), to = 0 }
    end

    animateFade(fadeEntries, FADE_DURATION, restoreButtons)
end

function ns:ToggleOverlay()
    if self.state.isOpen then
        self:CloseOverlay()
    else
        self:OpenOverlay()
    end
end

-- Settings panel entry point. Delegates to Settings.lua if loaded.
function ns:OpenSettings()
    if ns.OpenSettingsPanel then
        ns:OpenSettingsPanel()
    else
        print("|cffffcc55MBC:|r settings panel not available.")
    end
end

-- Re-apply anchor on the fly when the user changes it from settings.
function ns:ReapplyPanelAnchor()
    if sidePanel then applyPanelAnchor(sidePanel) end
end