-- LibShowUIPanel-1.0.lua
-- @Author : Dencer (tdaddon@163.com)
-- @Link   : https://dengsir.github.io
-- @Date   : 6/15/2021, 11:20:01 PM
--
local MAJOR, MINOR = 'LibShowUIPanel-1.0', 6

---@class LibShowUIPanel-1.0
local Lib, oldminor = LibStub:NewLibrary(MAJOR, MINOR)
if not Lib then
    return
end

local ShowUIPanel = ShowUIPanel
local HideUIPanel = HideUIPanel

local InCombatLockdown = InCombatLockdown

Lib.Delegate = Lib.Delegate or (function()
    local frame = EnumerateFrames()
    while frame do
        if frame.SetUIPanel and issecurevariable(frame, 'SetUIPanel') then
            return frame
        end
        frame = EnumerateFrames(frame)
    end
end)()

local Delegate = Lib.Delegate

local function GetUIPanelWindowInfo(frame, name)
    if not frame:GetAttribute('UIPanelLayout-defined') then
        local info = UIPanelWindows[frame:GetName()]
        if not info then
            return
        end
        frame:SetAttribute('UIPanelLayout-defined', true)
        for k, v in pairs(info) do
            frame:SetAttribute('UIPanelLayout-' .. k, v)
        end
    end
    return frame:GetAttribute('UIPanelLayout-' .. name)
end

local function ShowPanel(frame, force)
    if not frame or frame:IsShown() then
        return
    end

    if not GetUIPanelWindowInfo(frame, 'area') then
        frame:Show()
        return
    end

    Delegate:SetAttribute('panel-force', force)
    Delegate:SetAttribute('panel-frame', frame)
    Delegate:SetAttribute('panel-show', true)
end

local function HidePanel(frame, skipSetPoint)
    if not frame or not frame:IsShown() then
        return
    end

    if not GetUIPanelWindowInfo(frame, 'area') then
        frame:Hide()
        return
    end

    Delegate:SetAttribute('panel-frame', frame)
    Delegate:SetAttribute('panel-skipSetPoint', skipSetPoint)
    Delegate:SetAttribute('panel-hide', true)
end

function Lib.Show(frame, force)
    if not InCombatLockdown() then
        return ShowUIPanel(frame, force)
    else
        return ShowPanel(frame, force)
    end
end

function Lib.Hide(frame, skipSetPoint)
    if not InCombatLockdown() then
        return HideUIPanel(frame, skipSetPoint)
    else
        return HidePanel(frame, skipSetPoint)
    end
end

function Lib.Toggle(frame)
    if frame:IsShown() then
        Lib.Hide(frame)
    else
        Lib.Show(frame)
    end
end

if not oldminor or oldminor < 6 then
    -- 可长期持有的API
    function Lib.ShowUIPanel(frame, force)
        return Lib.Show(frame, force)
    end

    function Lib.HideUIPanel(frame, skipSetPoint)
        return Lib.Hide(frame, skipSetPoint)
    end

    function Lib.ToggleFrame(frame)
        return Lib.Toggle(frame)
    end
end

---- hooks

if not Lib.OnCallShowUIPanel then
    hooksecurefunc('ShowUIPanel', function(...)
        return Lib.OnCallShowUIPanel(...)
    end)
end

if not Lib.OnCallHideUIPanel then
    hooksecurefunc('HideUIPanel', function(...)
        return Lib.OnCallHideUIPanel(...)
    end)
end

function Lib.OnCallShowUIPanel(frame, force)
    if not frame or frame:IsShown() or not InCombatLockdown() then
        return
    end
    return ShowPanel(frame, force)
end

function Lib.OnCallHideUIPanel(frame, skipSetPoint)
    if not frame or not frame:IsShown() or not InCombatLockdown() then
        return
    end
    return HidePanel(frame, skipSetPoint)
end
