--[[
    Horizon Suite - Focus - Floating Quest Item
    Extra Action style button for quest item; keybindable. Source: super-tracked/first or current-zone first.
]]

local addon = _G._HorizonSuite_Loading or _G.HorizonSuiteBeta or _G.HorizonSuite

-- ============================================================================
-- FLOATING QUEST ITEM BUTTON
-- ============================================================================

local floatingQuestItemBtn = CreateFrame("Button", "HSFloatingQuestItem", UIParent)
floatingQuestItemBtn:SetSize(addon.GetDB("floatingQuestItemSize", 36) or 36, addon.GetDB("floatingQuestItemSize", 36) or 36)
floatingQuestItemBtn:SetPoint("RIGHT", addon.HS, "LEFT", -12, 0)
floatingQuestItemBtn:RegisterForClicks("AnyDown", "AnyUp")
floatingQuestItemBtn:SetMovable(true)
floatingQuestItemBtn:RegisterForDrag("LeftButton")
floatingQuestItemBtn:SetScript("OnDragStart", function(self)
    if addon.GetDB("lockFloatingQuestItemPosition", false) then return end
    if InCombatLockdown() then return end
    self:StartMoving()
end)
floatingQuestItemBtn:SetScript("OnDragStop", function(self)
    self:StopMovingOrSizing()
    self:SetUserPlaced(false)
    if InCombatLockdown() then return end
    addon.EnsureDB()
    local l, b = self:GetLeft(), self:GetBottom()
    if l and b then
        addon.SetDB("floatingQuestItemPoint", "BOTTOMLEFT")
        addon.SetDB("floatingQuestItemRelPoint", "BOTTOMLEFT")
        addon.SetDB("floatingQuestItemX", l)
        addon.SetDB("floatingQuestItemY", b)
        self:ClearAllPoints()
        self:SetPoint("BOTTOMLEFT", UIParent, "BOTTOMLEFT", l, b)
    end
end)
floatingQuestItemBtn:Hide()

-- ============================================================================
-- DRAG ANCHOR (visible when position is unlocked, drags the floating button)
-- ============================================================================

local ANCHOR_W, ANCHOR_H = 10, 20
local dragAnchor = CreateFrame("Frame", nil, UIParent)
dragAnchor:SetSize(ANCHOR_W, ANCHOR_H)
dragAnchor:SetPoint("RIGHT", floatingQuestItemBtn, "LEFT", -2, 0)
dragAnchor:SetFrameStrata(floatingQuestItemBtn:GetFrameStrata())
dragAnchor:SetFrameLevel(floatingQuestItemBtn:GetFrameLevel() + 10)
dragAnchor:EnableMouse(true)
dragAnchor:SetMovable(true)
dragAnchor:SetClampedToScreen(true)
dragAnchor:RegisterForDrag("LeftButton")
dragAnchor:Hide()

local anchorBg = dragAnchor:CreateTexture(nil, "BACKGROUND")
anchorBg:SetAllPoints()
anchorBg:SetColorTexture(0.25, 0.60, 0.90, 0.70)

for i = 1, 3 do
    local line = dragAnchor:CreateTexture(nil, "OVERLAY")
    line:SetColorTexture(1, 1, 1, 0.5)
    line:SetHeight(1)
    line:SetPoint("LEFT", dragAnchor, "LEFT", 2, (i - 2) * 4)
    line:SetPoint("RIGHT", dragAnchor, "RIGHT", -2, 0)
end

dragAnchor:SetScript("OnEnter", function(self)
    anchorBg:SetColorTexture(0.35, 0.70, 1.0, 0.90)
    if addon.GetDB("focusShowTooltipOnHover", false) and GameTooltip then
        GameTooltip:SetOwner(self, "ANCHOR_RIGHT")
        GameTooltip:AddLine("Drag to move quest item button")
        GameTooltip:Show()
    end
end)
dragAnchor:SetScript("OnLeave", function(self)
    anchorBg:SetColorTexture(0.25, 0.60, 0.90, 0.70)
    if GameTooltip then GameTooltip:Hide() end
end)

dragAnchor:SetScript("OnDragStart", function(self)
    if InCombatLockdown() then return end
    floatingQuestItemBtn:StartMoving()
end)
dragAnchor:SetScript("OnDragStop", function(self)
    floatingQuestItemBtn:StopMovingOrSizing()
    floatingQuestItemBtn:SetUserPlaced(false)
    if InCombatLockdown() then return end
    addon.EnsureDB()
    local l, b = floatingQuestItemBtn:GetLeft(), floatingQuestItemBtn:GetBottom()
    if l and b then
        addon.SetDB("floatingQuestItemPoint", "BOTTOMLEFT")
        addon.SetDB("floatingQuestItemRelPoint", "BOTTOMLEFT")
        addon.SetDB("floatingQuestItemX", l)
        addon.SetDB("floatingQuestItemY", b)
        floatingQuestItemBtn:ClearAllPoints()
        floatingQuestItemBtn:SetPoint("BOTTOMLEFT", UIParent, "BOTTOMLEFT", l, b)
    end
    -- Re-anchor the grip to the button's new position
    dragAnchor:ClearAllPoints()
    dragAnchor:SetPoint("RIGHT", floatingQuestItemBtn, "LEFT", -2, 0)
end)

local function UpdateDragAnchorVisibility()
    if floatingQuestItemBtn:IsShown() and not addon.GetDB("lockFloatingQuestItemPosition", false) then
        dragAnchor:ClearAllPoints()
        dragAnchor:SetPoint("RIGHT", floatingQuestItemBtn, "LEFT", -2, 0)
        dragAnchor:Show()
    else
        dragAnchor:Hide()
    end
end
addon._UpdateFloatingItemDragAnchor = UpdateDragAnchorVisibility

local INSET = 0
local floatingQuestItemIcon = floatingQuestItemBtn:CreateTexture(nil, "ARTWORK")
floatingQuestItemIcon:SetPoint("TOPLEFT", floatingQuestItemBtn, "TOPLEFT", INSET, -INSET)
floatingQuestItemIcon:SetPoint("BOTTOMRIGHT", floatingQuestItemBtn, "BOTTOMRIGHT", -INSET, INSET)
floatingQuestItemIcon:SetTexCoord(0.07, 0.93, 0.07, 0.93)
floatingQuestItemBtn.icon = floatingQuestItemIcon
floatingQuestItemBtn.cooldown = CreateFrame("Cooldown", nil, floatingQuestItemBtn, "CooldownFrameTemplate")
floatingQuestItemBtn.cooldown:SetPoint("TOPLEFT", floatingQuestItemBtn, "TOPLEFT", INSET, -INSET)
floatingQuestItemBtn.cooldown:SetPoint("BOTTOMRIGHT", floatingQuestItemBtn, "BOTTOMRIGHT", -INSET, INSET)
floatingQuestItemBtn:SetScript("OnEnter", function(self)
    self:SetAlpha(1)
    -- Tooltip from HSSecureItemOverlay only; avoids double GameTooltip Show with Insight fade.
    addon.AttachSecureItemOverlay(self, self._itemLink)
    if addon.GetDB("showOnMouseoverOnly", false) and addon.EnsureFocusUpdateRunning then
        addon.EnsureFocusUpdateRunning()
    end
end)
floatingQuestItemBtn:SetScript("OnLeave", function(self)
    self:SetAlpha(0.9)
    if GameTooltip and GameTooltip:GetOwner() == self then GameTooltip:Hide() end
    addon.DetachSecureItemOverlay(self)
    if addon.GetDB("showOnMouseoverOnly", false) and addon.EnsureFocusUpdateRunning then
        addon.EnsureFocusUpdateRunning()
    end
end)
floatingQuestItemBtn:SetScript("OnClick", function(self, button)
    local questID = self._questID
    if not questID then return end
    local logIndex = C_QuestLog.GetLogIndexForQuestID(questID)
    if not logIndex then return end
    if IsModifiedClick("CHATLINK") then
        local link = GetQuestLogSpecialItemInfo(logIndex)
        if not link then return end
        if addon.FocusInsertLinkIntoChat then
            addon.FocusInsertLinkIntoChat(link)
        elseif ChatFrameUtil and ChatFrameUtil.GetActiveWindow and ChatFrameUtil.GetActiveWindow() and ChatFrameUtil.InsertLink then
            ChatFrameUtil.InsertLink(link)
        end
    end
end)
floatingQuestItemBtn:SetAlpha(0.9)

-- Keybind label: shows the bound key in the top-left corner of the button.
local keybindLabel = floatingQuestItemBtn:CreateFontString(nil, "OVERLAY")
keybindLabel:SetFontObject(NumberFontNormalSmallGray or NumberFontNormal or GameFontNormalSmall)
keybindLabel:SetPoint("TOPLEFT", floatingQuestItemBtn, "TOPLEFT", 2, -2)
keybindLabel:SetPoint("RIGHT", floatingQuestItemBtn, "RIGHT", -2, 0)
keybindLabel:SetJustifyH("LEFT")
keybindLabel:SetWordWrap(false)
keybindLabel:SetTextColor(1, 1, 1, 1)
keybindLabel:SetShadowOffset(1, -1)
keybindLabel:SetShadowColor(0, 0, 0, 1)
floatingQuestItemBtn.keybindLabel = keybindLabel

--- Refresh the keybind label text. Hides if no key is bound.
local function UpdateKeybindLabel()
    if not GetBindingKey then
        keybindLabel:Hide()
        return
    end
    local key = GetBindingKey("CLICK HSSecureItemOverlay:LeftButton")
    if key and key ~= "" then
        -- Shorten common modifier names for display
        local display = key
        display = display:gsub("CTRL%-", "C-")
        display = display:gsub("ALT%-", "A-")
        display = display:gsub("SHIFT%-", "S-")
        display = display:gsub("NUMPAD", "N")
        keybindLabel:SetText(display)
        keybindLabel:Show()
    else
        keybindLabel:SetText("")
        keybindLabel:Hide()
    end
end

-- Deferred style + initial keybind label update.
C_Timer.After(0, function()
    if floatingQuestItemBtn and not floatingQuestItemBtn:IsForbidden() then
        addon.ApplyBlizzardFloatingQuestItemStyle(floatingQuestItemBtn)
        UpdateKeybindLabel()
    end
end)

-- Listen for keybind changes so the label stays current.
local pendingQuestsFlat = nil
local hasPendingUpdate = false
local UpdateFloatingQuestItem -- forward declaration for PLAYER_REGEN_ENABLED handler

local keybindWatcher = CreateFrame("Frame")
keybindWatcher:RegisterEvent("UPDATE_BINDINGS")
keybindWatcher:RegisterEvent("SPELL_UPDATE_COOLDOWN")
keybindWatcher:RegisterEvent("PLAYER_REGEN_ENABLED")
keybindWatcher:SetScript("OnEvent", function(_, event)
    if event == "UPDATE_BINDINGS" then
        UpdateKeybindLabel()
    elseif event == "SPELL_UPDATE_COOLDOWN" then
        -- Re-apply cooldown sweep so the timer text stays current during combat.
        if floatingQuestItemBtn:IsShown() and floatingQuestItemBtn._itemLink then
            addon.ApplyItemCooldown(floatingQuestItemBtn.cooldown, floatingQuestItemBtn._itemLink)
        end
    elseif event == "PLAYER_REGEN_ENABLED" then
        if hasPendingUpdate then
            UpdateFloatingQuestItem(pendingQuestsFlat)
        end
    end
end)


UpdateFloatingQuestItem = function(questsFlat)
    if InCombatLockdown() then
        pendingQuestsFlat = questsFlat
        hasPendingUpdate = true
        return
    end
    pendingQuestsFlat = nil
    hasPendingUpdate = false

    if addon.ShouldHideInCombat() or not addon.GetDB("showFloatingQuestItem", false) or (addon.ShouldShowInInstance and not addon.ShouldShowInInstance()) then
        floatingQuestItemBtn:Hide()
        UpdateDragAnchorVisibility()
        return
    end
    local superTracked = (C_SuperTrack and C_SuperTrack.GetSuperTrackedQuestID) and C_SuperTrack.GetSuperTrackedQuestID() or 0
    local mode = addon.GetDB("floatingQuestItemMode", "superTracked") or "superTracked"
    local playerZone = (addon.GetPlayerCurrentZoneName and addon.GetPlayerCurrentZoneName()) or nil

    local function inCurrentZone(q)
        return q.isNearby or (q.zoneName and playerZone and q.zoneName:lower() == playerZone:lower())
    end

    local chosenLink, chosenTex, chosenQuestID
    if mode == "currentZone" then
        -- Current zone mode: super-tracked in zone first, else first in-zone with item, else first with item
        local superTrackedInZoneLink, superTrackedInZoneTex, superTrackedInZoneQID
        local firstInZoneLink, firstInZoneTex, firstInZoneQID
        local firstAnyLink, firstAnyTex, firstAnyQID
        for _, q in ipairs(questsFlat or {}) do
            if q.questID and q.itemLink and q.itemTexture then
                local inZone = inCurrentZone(q)
                if q.questID == superTracked and inZone then
                    superTrackedInZoneLink, superTrackedInZoneTex, superTrackedInZoneQID = q.itemLink, q.itemTexture, q.questID
                end
                if not firstInZoneLink and inZone then
                    firstInZoneLink, firstInZoneTex, firstInZoneQID = q.itemLink, q.itemTexture, q.questID
                end
                if not firstAnyLink then
                    firstAnyLink, firstAnyTex, firstAnyQID = q.itemLink, q.itemTexture, q.questID
                end
            end
        end
        chosenLink = superTrackedInZoneLink or firstInZoneLink or firstAnyLink
        chosenTex = superTrackedInZoneTex or firstInZoneTex or firstAnyTex
        chosenQuestID = superTrackedInZoneQID or firstInZoneQID or firstAnyQID
    else
        -- Super-tracked mode: super-tracked first, else first with item
        for _, q in ipairs(questsFlat or {}) do
            if q.questID and q.itemLink and q.itemTexture then
                if q.questID == superTracked then
                    chosenLink, chosenTex, chosenQuestID = q.itemLink, q.itemTexture, q.questID
                    break
                end
                if not chosenLink then chosenLink, chosenTex, chosenQuestID = q.itemLink, q.itemTexture, q.questID end
            end
        end
    end
    if chosenLink and chosenTex then
        floatingQuestItemBtn.icon:SetTexture(chosenTex)
        floatingQuestItemBtn._itemLink = chosenLink
        floatingQuestItemBtn._questID = chosenQuestID
        addon.SetSecureItemOverlayItem(chosenLink)
        local sz = (addon.Scaled or function(v) return v end)(tonumber(addon.GetDB("floatingQuestItemSize", 36)) or 36)
        floatingQuestItemBtn:SetSize(sz, sz)
        local savedPoint = addon.GetDB("floatingQuestItemPoint", nil)
        floatingQuestItemBtn:ClearAllPoints()
        if savedPoint then
            local relPoint = addon.GetDB("floatingQuestItemRelPoint", "BOTTOMLEFT") or "BOTTOMLEFT"
            local sx = tonumber(addon.GetDB("floatingQuestItemX", 0)) or 0
            local sy = tonumber(addon.GetDB("floatingQuestItemY", 0)) or 0
            floatingQuestItemBtn:SetPoint(savedPoint, UIParent, relPoint, sx, sy)
        else
            local anchor = addon.GetDB("floatingQuestItemAnchor", "LEFT") or "LEFT"
            local ox = tonumber(addon.GetDB("floatingQuestItemOffsetX", -12)) or -12
            local oy = tonumber(addon.GetDB("floatingQuestItemOffsetY", 0)) or 0
            if anchor == "LEFT" then
                floatingQuestItemBtn:SetPoint("RIGHT", addon.HS, "LEFT", ox, oy)
            elseif anchor == "RIGHT" then
                floatingQuestItemBtn:SetPoint("LEFT", addon.HS, "RIGHT", ox, oy)
            elseif anchor == "TOP" then
                floatingQuestItemBtn:SetPoint("BOTTOM", addon.HS, "TOP", ox, oy)
            else
                floatingQuestItemBtn:SetPoint("TOP", addon.HS, "BOTTOM", ox, oy)
            end
        end
        if addon.focus.combat.fadeState == "in" then
            floatingQuestItemBtn:SetAlpha(0)
        elseif addon.focus.combat.faded and addon.GetCombatFadeAlpha then
            floatingQuestItemBtn:SetAlpha(addon.GetCombatFadeAlpha())
        end
        floatingQuestItemBtn:Show()
        UpdateKeybindLabel()
        addon.ApplyItemCooldown(floatingQuestItemBtn.cooldown, chosenLink)
        UpdateDragAnchorVisibility()
    else
        floatingQuestItemBtn:Hide()
        UpdateDragAnchorVisibility()
    end
end

addon.UpdateFloatingQuestItem = UpdateFloatingQuestItem