Options.lua

local addonName, addon = ...

local ANCHOR_POINTS = {
    "TOPLEFT", "TOP", "TOPRIGHT",
    "LEFT", "CENTER", "RIGHT",
    "BOTTOMLEFT", "BOTTOM", "BOTTOMRIGHT",
}

local SLIDER_WIDTH = 300
local DROPDOWN_WIDTH = 150

local function ResolveFrameName(frame)
    local name = frame.GetName and frame:GetName()
    if name then return name end
    local parent = frame.GetParent and frame:GetParent()
    if parent then
        for key, child in pairs(parent) do
            if child == frame then
                return (ResolveFrameName(parent) or "") .. "." .. key
            end
        end
    end
    return nil
end

local function FindNamedAncestor(frame)
    while frame do
        local name = frame:GetName()
        if name then return frame, name end
        frame = frame:GetParent()
    end
    return nil, nil
end

-- Sorta like WeakAuras picker
local function CreateFramePicker(onFramePicked, onCancel)
    local picker = CreateFrame("Frame")

    local highlight = CreateFrame("Frame", nil, UIParent, "BackdropTemplate")
    highlight:SetFrameStrata("TOOLTIP")
    highlight:SetBackdrop({
        edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border",
        edgeSize = 12,
        insets = { left = 0, right = 0, top = 0, bottom = 0 },
    })
    highlight:SetBackdropBorderColor(0, 1, 0)
    highlight:Hide()

    local active = false
    local currentFocus

    local function StopPicking()
        active = false
        picker:SetScript("OnUpdate", nil)
        highlight:Hide()
        GameTooltip:Hide()
        ResetCursor()
    end

    function picker:Start()
        active = true
        currentFocus = nil
        SetCursor("CAST_CURSOR")
        picker:SetScript("OnUpdate", function()
            if not active then return end

            if IsMouseButtonDown("RightButton") then
                StopPicking()
                if onCancel then onCancel() end
                return
            end

            if IsMouseButtonDown("LeftButton") and currentFocus then
                local _, name = FindNamedAncestor(currentFocus)
                if name then
                    StopPicking()
                    onFramePicked(name)
                else
                    print("|cFFFF6600TotemFrameRelocation:|r No named frame found.")
                    StopPicking()
                    if onCancel then onCancel() end
                end
                return
            end

            local focus = GetMouseFocus and GetMouseFocus() or (GetMouseFoci and GetMouseFoci()[1])
            if focus and focus ~= WorldFrame then
                -- Find nearest named ancestor.
                local namedFrame, namedName = FindNamedAncestor(focus)
                if namedFrame then
                    currentFocus = namedFrame
                    highlight:ClearAllPoints()
                    highlight:SetPoint("BOTTOMLEFT", namedFrame, "BOTTOMLEFT", -4, -4)
                    highlight:SetPoint("TOPRIGHT", namedFrame, "TOPRIGHT", 4, 4)
                    highlight:Show()
                    GameTooltip:SetOwner(namedFrame, "ANCHOR_CURSOR")
                    GameTooltip:SetText(namedName)
                    GameTooltip:Show()
                else
                    currentFocus = nil
                    highlight:Hide()
                    GameTooltip:Hide()
                end
            else
                currentFocus = nil
                highlight:Hide()
                GameTooltip:Hide()
            end
        end)
    end

    return picker
end

local function CreateSettingsPanel()
    local panel = CreateFrame("Frame")
    panel:SetSize(400, 400)
    panel:Hide()

    local db = addon.db
    local yOffset = -10

    local title = panel:CreateFontString(nil, "ARTWORK", "GameFontNormalLarge")
    title:SetPoint("TOPLEFT", panel, "TOPLEFT", 10, yOffset)
    title:SetText("Totem Frame Relocation")
    yOffset = yOffset - 30

    local frameLabel = panel:CreateFontString(nil, "ARTWORK", "GameFontNormal")
    frameLabel:SetPoint("TOPLEFT", panel, "TOPLEFT", 10, yOffset)
    frameLabel:SetText("Parent Frame:")

    local frameNameText = panel:CreateFontString(nil, "ARTWORK", "GameFontHighlight")
    frameNameText:SetPoint("LEFT", frameLabel, "RIGHT", 8, 0)
    frameNameText:SetWidth(120)
    frameNameText:SetWordWrap(false)
    frameNameText:SetText(db.parentFrameName or "None")

    local picker
    local pickButton = CreateFrame("Button", nil, panel, "UIPanelButtonTemplate")
    pickButton:SetSize(120, 22)
    pickButton:SetPoint("LEFT", frameNameText, "RIGHT", 10, 0)
    pickButton:SetText("Select Frame")
    pickButton:SetScript("OnClick", function()
        local function reopenSettings()
            Settings.OpenToCategory(addon.settingsCategory:GetID())
        end
        picker = picker or CreateFramePicker(function(name)
            db.parentFrameName = name
            frameNameText:SetText(name)
            addon:ApplySettings()
            reopenSettings()
        end, reopenSettings)
        HideUIPanel(SettingsPanel)
        picker:Start()
    end)

    local clearButton = CreateFrame("Button", nil, panel, "UIPanelButtonTemplate")
    clearButton:SetSize(60, 22)
    clearButton:SetPoint("LEFT", pickButton, "RIGHT", 4, 0)
    clearButton:SetText("Clear")
    clearButton:SetScript("OnClick", function()
        db.parentFrameName = nil
        frameNameText:SetText("None")
        addon:ApplySettings()
    end)
    yOffset = yOffset - 30

    local parentAnchorLabel = panel:CreateFontString(nil, "ARTWORK", "GameFontNormal")
    parentAnchorLabel:SetPoint("TOPLEFT", panel, "TOPLEFT", 10, yOffset)
    parentAnchorLabel:SetText("Parent Anchor:")

    local parentAnchorDD = CreateFrame("DropdownButton", nil, panel, "WowStyle1DropdownTemplate")
    parentAnchorDD:SetPoint("LEFT", parentAnchorLabel, "RIGHT", 8, 0)
    parentAnchorDD:SetWidth(DROPDOWN_WIDTH)
    parentAnchorDD:SetupMenu(function(_, rootDescription)
        for _, point in ipairs(ANCHOR_POINTS) do
            rootDescription:CreateRadio(point, function(p) return p == db.parentAnchor end, function()
                db.parentAnchor = point
                addon:ApplySettings()
            end, point)
        end
    end)
    yOffset = yOffset - 40

    local totemAnchorLabel = panel:CreateFontString(nil, "ARTWORK", "GameFontNormal")
    totemAnchorLabel:SetPoint("TOPLEFT", panel, "TOPLEFT", 10, yOffset)
    totemAnchorLabel:SetText("Totem Frame Anchor:")

    local totemAnchorDD = CreateFrame("DropdownButton", nil, panel, "WowStyle1DropdownTemplate")
    totemAnchorDD:SetPoint("LEFT", totemAnchorLabel, "RIGHT", 8, 0)
    totemAnchorDD:SetWidth(DROPDOWN_WIDTH)
    totemAnchorDD:SetupMenu(function(_, rootDescription)
        for _, point in ipairs(ANCHOR_POINTS) do
            rootDescription:CreateRadio(point, function(p) return p == db.totemFrameAnchor end, function()
                db.totemFrameAnchor = point
                addon:ApplySettings()
            end, point)
        end
    end)
    yOffset = yOffset - 40

    local xSlider = CreateFrame("Slider", addonName .. "XOffsetSlider", panel, "OptionsSliderTemplate")
    xSlider:SetPoint("TOPLEFT", panel, "TOPLEFT", 14, yOffset)
    xSlider:SetWidth(SLIDER_WIDTH)
    xSlider:SetMinMaxValues(-250, 250)
    xSlider:SetValueStep(1)
    xSlider:SetObeyStepOnDrag(true)
    xSlider:SetValue(db.xOffset)
    xSlider.Low:SetText("-250")
    xSlider.High:SetText("250")
    xSlider.Text:SetText("X Offset")

    local xBox = CreateFrame("EditBox", nil, panel, "InputBoxTemplate")
    xBox:SetSize(50, 20)
    xBox:SetPoint("LEFT", xSlider, "RIGHT", 10, 0)
    xBox:SetAutoFocus(false)
    xBox:SetNumeric(false)
    xBox:SetText(tostring(db.xOffset))

    xSlider:SetScript("OnValueChanged", function(self, value, userInput)
        if userInput then
            local v = math.floor(value + 0.5)
            db.xOffset = v
            xBox:SetText(tostring(v))
            addon:ApplySettings()
        end
    end)

    xBox:SetScript("OnEnterPressed", function(self)
        local v = tonumber(self:GetText())
        if v then
            v = math.floor(math.max(-250, math.min(250, v)) + 0.5)
            db.xOffset = v
            xSlider:SetValue(v)
            self:SetText(tostring(v))
            addon:ApplySettings()
        else
            self:SetText(tostring(db.xOffset))
        end
        self:ClearFocus()
    end)
    yOffset = yOffset - 50

    local ySlider = CreateFrame("Slider", addonName .. "YOffsetSlider", panel, "OptionsSliderTemplate")
    ySlider:SetPoint("TOPLEFT", panel, "TOPLEFT", 14, yOffset)
    ySlider:SetWidth(SLIDER_WIDTH)
    ySlider:SetMinMaxValues(-250, 250)
    ySlider:SetValueStep(1)
    ySlider:SetObeyStepOnDrag(true)
    ySlider:SetValue(db.yOffset)
    ySlider.Low:SetText("-250")
    ySlider.High:SetText("250")
    ySlider.Text:SetText("Y Offset")

    local yBox = CreateFrame("EditBox", nil, panel, "InputBoxTemplate")
    yBox:SetSize(50, 20)
    yBox:SetPoint("LEFT", ySlider, "RIGHT", 10, 0)
    yBox:SetAutoFocus(false)
    yBox:SetNumeric(false)
    yBox:SetText(tostring(db.yOffset))

    ySlider:SetScript("OnValueChanged", function(self, value, userInput)
        if userInput then
            local v = math.floor(value + 0.5)
            db.yOffset = v
            yBox:SetText(tostring(v))
            addon:ApplySettings()
        end
    end)

    yBox:SetScript("OnEnterPressed", function(self)
        local v = tonumber(self:GetText())
        if v then
            v = math.floor(math.max(-250, math.min(250, v)) + 0.5)
            db.yOffset = v
            ySlider:SetValue(v)
            self:SetText(tostring(v))
            addon:ApplySettings()
        else
            self:SetText(tostring(db.yOffset))
        end
        self:ClearFocus()
    end)
    yOffset = yOffset - 50

    local maskCheckbox = CreateFrame("CheckButton", nil, panel, "UICheckButtonTemplate")
    maskCheckbox:SetPoint("TOPLEFT", panel, "TOPLEFT", 10, yOffset)
    maskCheckbox.Text:SetText(" Square Totem Icons")
    maskCheckbox.Text:SetFontObject("GameFontNormal")
    maskCheckbox:SetChecked(db.useSquareMask)
    maskCheckbox:HookScript("OnClick", function(self)
        db.useSquareMask = self:GetChecked()
        addon:ApplySettings()
    end)

    return panel
end

local eventFrame = CreateFrame("Frame")
eventFrame:RegisterEvent("ADDON_LOADED")
eventFrame:SetScript("OnEvent", function(_, event, arg1)
    if event == "ADDON_LOADED" and arg1 == addonName then
        local panel = CreateSettingsPanel()
        local category = Settings.RegisterCanvasLayoutCategory(panel, "Totem Frame Relocation")
        Settings.RegisterAddOnCategory(category)
        addon.settingsCategory = category

        SLASH_TOTEMFRAMERELOCATE1 = "/totemframe"
        SlashCmdList["TOTEMFRAMERELOCATE"] = function()
            Settings.OpenToCategory(category:GetID())
        end

        eventFrame:UnregisterEvent("ADDON_LOADED")
    end
end)