-- File: Core.lua
-- Main addon logic, event handling, and slash command processing.

local addonName, ACVar = ...
local L = ACVar.L or {}
local CONSTANTS = ACVar.CONSTANTS

local _G = _G
local tonumber = tonumber
local tostring = tostring
local lower = string.lower
local format = string.format
local trim = string.trim
local math_cos = math.cos
local math_sin = math.sin
local math_rad = math.rad
local math_deg = math.deg
local math_atan2 = math.atan2

local GetCVar = GetCVar
local SetCVar = SetCVar
local CreateFrame = CreateFrame
local SlashCmdList = SlashCmdList
local GetCursorPosition = GetCursorPosition
local InterfaceOptions_AddCategory = InterfaceOptions_AddCategory

ACVar.reloadIsPending = false

local function formatMessage(template, ...)
    return CONSTANTS.COLORS.SUCCESS..L.ADDON_NAME..":"..CONSTANTS.COLORS.RESET.." "..string.format(template, ...)
end

function ACVar:PrintMessage(message, ...)
    _G.DEFAULT_CHAT_FRAME:AddMessage(formatMessage(message, ...))
end

function ACVar:PrintCVarChange(cvarName, value, label)
    ACVar:PrintMessage(format(
        L.MSG_SET_VALUE,
        CONSTANTS.COLORS.HIGHLIGHT..cvarName..CONSTANTS.COLORS.RESET,
        CONSTANTS.COLORS.VALUE..tostring(value)..(label and format(" (%s)", label) or "")..CONSTANTS.COLORS.RESET
    ))
end

function ACVar:GetCVarValue(cvarName)
    local value = GetCVar(cvarName)
    return tonumber(value) or value
end

function ACVar:SetCVarValue(cvarName, value, cvarDef)
    if self:GetCVarValue(cvarName) then
        SetCVar(cvarName, value)
        if cvarDef and cvarDef.reloadRequired then
            self.reloadIsPending = true
        end
    end
end

function ACVar.FormatNumber(value)
    return tonumber(format("%.2f", value or 0)) or 0
end

-- ### Slash Command Handler ###
local function processSlashCommand(msg)
    msg = lower(trim(msg))

    if msg == "" or msg == "toggle" then
        ACVar:ToggleFrame()
    elseif msg == "show" then
        ACVar:ShowFrame()
    elseif msg == "hide" then
        ACVar:HideFrame()
    elseif msg == "reset" or msg == "resetposition" then
        ACVar:ResetFramePosition()
    elseif msg == "help" then
        ACVar:PrintMessage(L.MSG_HELP_HEADER)
        ACVar:PrintMessage(L.MSG_HELP_TOGGLE)
        ACVar:PrintMessage(L.MSG_HELP_SHOW)
        ACVar:PrintMessage(L.MSG_HELP_HIDE)
        ACVar:PrintMessage(L.MSG_HELP_RESET)
        ACVar:PrintMessage(L.MSG_HELP_HELP)
    else
        _G.DEFAULT_CHAT_FRAME:AddMessage(CONSTANTS.COLORS.ERROR..L.MSG_UNKNOWN_COMMAND)
    end
end

-- ### Minimap Logic ###
function ACVar:UpdateMinimapButton()
    if not self.MinimapButton then return end
    if self.DB.minimap.hide then
        self.MinimapButton:Hide()
    else
        self.MinimapButton:Show()
    end
end

function ACVar:CreateMinimapButton()
    local button = CreateFrame("Button", "AwesomeCVarMinimapButton", Minimap)
    self.MinimapButton = button
    button:SetFrameStrata("MEDIUM")
    button:SetSize(31, 31)
    button:SetFrameLevel(8)
    button:RegisterForClicks("AnyUp")
    button:RegisterForDrag("LeftButton")
    button:SetHighlightTexture("Interface\\Minimap\\UI-Minimap-ZoomButton-Highlight")

    local overlay = button:CreateTexture(nil, "OVERLAY")
    overlay:SetWidth(53)
    overlay:SetHeight(53)
    overlay:SetTexture("Interface\\Minimap\\MiniMap-TrackingBorder")
    overlay:SetPoint("TOPLEFT")

    local icon = button:CreateTexture(nil, "BACKGROUND")
    icon:SetWidth(20)
    icon:SetHeight(20)
    icon:SetTexture("Interface\\Icons\\Trade_Engineering")
    icon:SetTexCoord(0.05, 0.95, 0.05, 0.95)
    icon:SetPoint("TOPLEFT", 7, -5)

    local function updatePosition()
        local angle = math_rad(self.DB.minimap.minimapPos or 220)
        local x = math_cos(angle) * 80
        local y = math_sin(angle) * 80
        button:SetPoint("CENTER", Minimap, "CENTER", x, y)
    end

    button:SetScript("OnDragStart", function(self)
        self:LockHighlight()
        self:SetScript("OnUpdate", function()
            local mx, my = Minimap:GetCenter()
            local px, py = GetCursorPosition()
            local scale = Minimap:GetEffectiveScale()
            px, py = px / scale, py / scale
            local angle = math_deg(math_atan2(py - my, px - mx))
            ACVar.DB.minimap.minimapPos = angle
            updatePosition()
        end)
    end)

    button:SetScript("OnDragStop", function(self)
        self:UnlockHighlight()
        self:SetScript("OnUpdate", nil)
    end)

    button:SetScript("OnClick", function()
        ACVar:ToggleFrame()
    end)

    button:SetScript("OnEnter", function(self)
        GameTooltip:SetOwner(self, "ANCHOR_LEFT")
        GameTooltip:AddLine(L.ADDON_NAME)
        GameTooltip:AddLine(L.MINIMAP_TOOLTIP, 1, 1, 1)
        GameTooltip:Show()
    end)

    button:SetScript("OnLeave", function()
        GameTooltip:Hide()
    end)

    updatePosition()
    self:UpdateMinimapButton()
end

-- ### Blizz UI Options Entry ###
-- ### Game Menu Dynamic Update ###
function ACVar:UpdateGameMenuButton()
    if not self.GameMenuButton then return end
    if self.DB.showGameMenuButton then
        self.GameMenuButton:Show()
    else
        self.GameMenuButton:Hide()
    end
end

-- ### Initialization and Event Handling ###
function ACVar:OnLoad()
    if self.isLoaded then return end
    self:CreateMainFrame()
    self:CreateReloadPopup()
    self:CreateDefaultConfirmationPopup()
    self:AddGameMenuButton()
    self:CreateMinimapButton()
    self:PrintMessage(L.MSG_LOADED)
    self.isLoaded = true
end

local eventFrame = CreateFrame("Frame")
eventFrame:RegisterEvent("ADDON_LOADED")
eventFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
eventFrame:SetScript("OnEvent", function(self, event, arg)
    if event == "ADDON_LOADED" then
		if arg == addonName then
			_G.AwesomeCVarDB = _G.AwesomeCVarDB or {}
			_G.AwesomeCVarDB.minimap = _G.AwesomeCVarDB.minimap or {}

			if _G.AwesomeCVarDB.minimap.hide == nil then _G.AwesomeCVarDB.minimap.hide = false end
			if _G.AwesomeCVarDB.minimap.minimapPos == nil then _G.AwesomeCVarDB.minimap.minimapPos = 220 end
			-- Default OFF in this pack. Upstream defaults it on, which puts the
			-- add-on in four places at once: the Escape menu, the minimap, the
			-- Interface page and /maniaxcvar. The feature is kept and the checkbox
			-- still turns it on; only the default changed.
			if _G.AwesomeCVarDB.showGameMenuButton == nil then _G.AwesomeCVarDB.showGameMenuButton = false end

			ACVar.DB = _G.AwesomeCVarDB
			ACVar:OnLoad()
		end
    elseif event == "PLAYER_ENTERING_WORLD" then
        -- Unregister FIRST, and run each skin in its own pcall. A skin that
        -- errors used to abort this handler before the unregister, so the same
        -- error fired again on every loading screen for the rest of the session.
        self:UnregisterEvent(event)
        for _, f in pairs(ACVar.Skins or {}) do
            pcall(f)
        end
    end
end)

-- Register Slash Commands. The add-on is Maniax CVar, so the commands are too -
-- /awesome and /awesomecvar are gone, not aliased. /mcvar matches the family
-- (/mnp, /mnpconfig, /maniaxcompat); neither token collides with anything in
-- the pack.
SLASH_MANIAXCVAR1 = "/maniaxcvar"
SLASH_MANIAXCVAR2 = "/mcvar"
SlashCmdList["MANIAXCVAR"] = processSlashCommand