local addonName, ns = ...
local L = ns.L

local cache = {}
local W = ns.Widgets
local C = ns.COLORS

function ns:InitCombatAlerts()
    local p = ns.MainFrame.Content
    local db = NaowhQOL.combatAlert
    local display = ns.CombatAlertDisplay

    if db.enterSoundID and not db.enterSound then
        db.enterSound = { id = db.enterSoundID }
    end
    if db.leaveSoundID and not db.leaveSound then
        db.leaveSound = { id = db.leaveSoundID }
    end

    W:CachedPanel(cache, "caFrame", p, function(f)
        local sf, sc = W:CreateScrollFrame(f, 1200)

        W:CreatePageHeader(sc,
            {{"COMBAT", C.BLUE}, {"ALERT", C.ORANGE}},
            W.Colorize(L["COMBATALERT_SUBTITLE"], C.GRAY))

        local function refresh() if display then display:UpdateDisplay() end end

        local killArea = CreateFrame("Frame", nil, sc, "BackdropTemplate")
        killArea:SetSize(460, 62)
        killArea:SetPoint("TOPLEFT", 10, -75)
        killArea:SetBackdrop({ bgFile = [[Interface\Buttons\WHITE8x8]] })
        killArea:SetBackdropColor(0.01, 0.56, 0.91, 0.08)

        local masterCB = W:CreateCheckbox(killArea, {
            label = L["COMBATALERT_ENABLE"],
            db = db, key = "enabled",
            x = 15, y = -8,
            isMaster = true,
        })

        local unlockCB = W:CreateCheckbox(killArea, {
            label = L["COMMON_UNLOCK"],
            db = db, key = "unlock",
            x = 15, y = -38,
            template = "ChatConfigCheckButtonTemplate",
            onChange = refresh
        })
        unlockCB:SetShown(db.enabled)

        local sectionContainer = CreateFrame("Frame", nil, sc)
        sectionContainer:SetPoint("TOPLEFT", killArea, "BOTTOMLEFT", 0, -10)
        sectionContainer:SetPoint("RIGHT", sc, "RIGHT", -10, 0)
        sectionContainer:SetHeight(1000)

        local RelayoutSections

        local appWrap, appContent = W:CreateCollapsibleSection(sectionContainer, {
            text = L["COMMON_SECTION_APPEARANCE"],
            startOpen = false,
            onCollapse = function() if RelayoutSections then RelayoutSections() end end,
        })

        W:CreateFontPicker(appContent, 10, -5, db.font, function(name)
            db.font = name
            refresh()
        end)

        appContent:SetHeight(50)
        appWrap:RecalcHeight()

        local enterWrap, enterContent = W:CreateCollapsibleSection(sectionContainer, {
            text = L["COMBATALERT_SECTION_ENTER"],
            startOpen = false,
            onCollapse = function() if RelayoutSections then RelayoutSections() end end,
        })

        local GE = ns.Layout:New(2)

        W:CreateTextInput(enterContent, {
            label = L["COMBATALERT_DISPLAY_TEXT"], db = db, key = "enterText",
            default = "++ Combat", x = GE:Col(1), y = GE:Row(1), width = 150,
            onChange = refresh
        })

        W:CreateColorPicker(enterContent, {
            label = L["COMMON_LABEL_TEXT_COLOR"], db = db,
            rKey = "enterR", gKey = "enterG", bKey = "enterB",
            x = GE:Col(2), y = GE:Row(1) + 6,
            onChange = refresh
        })

        W:CreateDropdown(enterContent, {
            label = L["COMBATALERT_AUDIO_MODE"],
            x = GE:Col(1), y = GE:Row(2),
            db = db, key = "enterAudioMode",
            options = {
                { text = L["COMBATALERT_AUDIO_NONE"], value = "none" },
                { text = L["COMBATALERT_AUDIO_SOUND"], value = "sound" },
                { text = L["COMBATALERT_AUDIO_TTS"], value = "tts" },
            },
            onChange = refresh
        })

        W:CreateSoundPicker(enterContent, GE:Col(1), GE:Row(3), db.enterSound, function(sound)
            db.enterSound = sound
        end)

        local enterTtsLbl = enterContent:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
        enterTtsLbl:SetPoint("TOPLEFT", GE:Col(1), GE:Row(4))
        enterTtsLbl:SetText(L["COMMON_TTS_MESSAGE"])

        local enterTtsBox = CreateFrame("EditBox", nil, enterContent, "BackdropTemplate")
        enterTtsBox:SetSize(180, 24)
        enterTtsBox:SetPoint("LEFT", enterTtsLbl, "RIGHT", 8, 0)
        enterTtsBox:SetBackdrop({ bgFile = [[Interface\Buttons\WHITE8x8]],
            edgeFile = [[Interface\Buttons\WHITE8x8]], edgeSize = 1 })
        enterTtsBox:SetBackdropColor(0, 0, 0, 1)
        enterTtsBox:SetBackdropBorderColor(0, 0, 0, 1)
        enterTtsBox:SetFontObject("GameFontHighlightSmall")
        enterTtsBox:SetAutoFocus(false)
        enterTtsBox:SetTextInsets(6, 6, 0, 0)
        enterTtsBox:SetMaxLetters(50)
        enterTtsBox:SetText(db.enterTtsMessage or "Combat")
        enterTtsBox:SetScript("OnEnterPressed", function(self) self:ClearFocus() end)
        enterTtsBox:SetScript("OnEscapePressed", function(self) self:ClearFocus() end)
        enterTtsBox:SetScript("OnEditFocusLost", function(self)
            local val = strtrim(self:GetText())
            if val == "" then val = "Combat"; self:SetText(val) end
            db.enterTtsMessage = val
        end)

        local enterTtsVoiceLbl = enterContent:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
        enterTtsVoiceLbl:SetPoint("TOPLEFT", GE:Col(1), GE:Row(5))
        enterTtsVoiceLbl:SetText(L["COMMON_TTS_VOICE"])

        W:CreateTTSVoicePicker(enterContent, 80, GE:Row(5), db.enterTtsVoiceID or 0, function(voiceID)
            db.enterTtsVoiceID = voiceID
        end)

        W:CreateSlider(enterContent, {
            label = L["COMMON_TTS_VOLUME"],
            min = 0, max = 100, step = 5,
            isPercent = true,
            x = GE:Col(1), y = GE:Row(6),
            db = db, key = "enterTtsVolume",
            onChange = function(val) db.enterTtsVolume = val end
        })

        W:CreateSlider(enterContent, {
            label = L["COMMON_TTS_SPEED"],
            min = -10, max = 10, step = 1,
            x = GE:Col(2), y = GE:Row(6),
            db = db, key = "enterTtsRate",
            onChange = function(val) db.enterTtsRate = val end
        })

        enterContent:SetHeight(GE:Height(6))
        enterWrap:RecalcHeight()

        local leaveWrap, leaveContent = W:CreateCollapsibleSection(sectionContainer, {
            text = L["COMBATALERT_SECTION_LEAVE"],
            startOpen = false,
            onCollapse = function() if RelayoutSections then RelayoutSections() end end,
        })

        local GL = ns.Layout:New(2)

        W:CreateTextInput(leaveContent, {
            label = L["COMBATALERT_DISPLAY_TEXT"], db = db, key = "leaveText",
            default = "-- Combat", x = GL:Col(1), y = GL:Row(1), width = 150,
            onChange = refresh
        })

        W:CreateColorPicker(leaveContent, {
            label = L["COMMON_LABEL_TEXT_COLOR"], db = db,
            rKey = "leaveR", gKey = "leaveG", bKey = "leaveB",
            x = GL:Col(2), y = GL:Row(1) + 6,
            onChange = refresh
        })

        W:CreateDropdown(leaveContent, {
            label = L["COMBATALERT_AUDIO_MODE"],
            x = GL:Col(1), y = GL:Row(2),
            db = db, key = "leaveAudioMode",
            options = {
                { text = L["COMBATALERT_AUDIO_NONE"], value = "none" },
                { text = L["COMBATALERT_AUDIO_SOUND"], value = "sound" },
                { text = L["COMBATALERT_AUDIO_TTS"], value = "tts" },
            },
            onChange = refresh
        })

        W:CreateSoundPicker(leaveContent, GL:Col(1), GL:Row(3), db.leaveSound, function(sound)
            db.leaveSound = sound
        end)

        local leaveTtsLbl = leaveContent:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
        leaveTtsLbl:SetPoint("TOPLEFT", GL:Col(1), GL:Row(4))
        leaveTtsLbl:SetText(L["COMMON_TTS_MESSAGE"])

        local leaveTtsBox = CreateFrame("EditBox", nil, leaveContent, "BackdropTemplate")
        leaveTtsBox:SetSize(180, 24)
        leaveTtsBox:SetPoint("LEFT", leaveTtsLbl, "RIGHT", 8, 0)
        leaveTtsBox:SetBackdrop({ bgFile = [[Interface\Buttons\WHITE8x8]],
            edgeFile = [[Interface\Buttons\WHITE8x8]], edgeSize = 1 })
        leaveTtsBox:SetBackdropColor(0, 0, 0, 1)
        leaveTtsBox:SetBackdropBorderColor(0, 0, 0, 1)
        leaveTtsBox:SetFontObject("GameFontHighlightSmall")
        leaveTtsBox:SetAutoFocus(false)
        leaveTtsBox:SetTextInsets(6, 6, 0, 0)
        leaveTtsBox:SetMaxLetters(50)
        leaveTtsBox:SetText(db.leaveTtsMessage or "Safe")
        leaveTtsBox:SetScript("OnEnterPressed", function(self) self:ClearFocus() end)
        leaveTtsBox:SetScript("OnEscapePressed", function(self) self:ClearFocus() end)
        leaveTtsBox:SetScript("OnEditFocusLost", function(self)
            local val = strtrim(self:GetText())
            if val == "" then val = "Safe"; self:SetText(val) end
            db.leaveTtsMessage = val
        end)

        local leaveTtsVoiceLbl = leaveContent:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
        leaveTtsVoiceLbl:SetPoint("TOPLEFT", GL:Col(1), GL:Row(5))
        leaveTtsVoiceLbl:SetText(L["COMMON_TTS_VOICE"])

        W:CreateTTSVoicePicker(leaveContent, 80, GL:Row(5), db.leaveTtsVoiceID or 0, function(voiceID)
            db.leaveTtsVoiceID = voiceID
        end)

        W:CreateSlider(leaveContent, {
            label = L["COMMON_TTS_VOLUME"],
            min = 0, max = 100, step = 5,
            isPercent = true,
            x = GL:Col(1), y = GL:Row(6),
            db = db, key = "leaveTtsVolume",
            onChange = function(val) db.leaveTtsVolume = val end
        })

        W:CreateSlider(leaveContent, {
            label = L["COMMON_TTS_SPEED"],
            min = -10, max = 10, step = 1,
            x = GL:Col(2), y = GL:Row(6),
            db = db, key = "leaveTtsRate",
            onChange = function(val) db.leaveTtsRate = val end
        })

        leaveContent:SetHeight(GL:Height(6))
        leaveWrap:RecalcHeight()

        local allSections = { appWrap, enterWrap, leaveWrap }

        RelayoutSections = function()
            for i, section in ipairs(allSections) do
                section:ClearAllPoints()
                if i == 1 then
                    section:SetPoint("TOPLEFT", sectionContainer, "TOPLEFT", 0, 0)
                else
                    section:SetPoint("TOPLEFT", allSections[i - 1], "BOTTOMLEFT", 0, -12)
                end
                section:SetPoint("RIGHT", sectionContainer, "RIGHT", 0, 0)
            end

            local totalH = 75 + 62 + 10
            if db.enabled then
                for _, s in ipairs(allSections) do
                    totalH = totalH + s:GetHeight() + 12
                end
            end
            sc:SetHeight(math.max(totalH + 40, 600))
        end

        masterCB:HookScript("OnClick", function(self)
            db.enabled = self:GetChecked() and true or false
            refresh()
            unlockCB:SetShown(db.enabled)
            sectionContainer:SetShown(db.enabled)
            RelayoutSections()
        end)
        sectionContainer:SetShown(db.enabled)

        local restoreBtn = W:CreateRestoreDefaultsButton({
            moduleName = "combatAlert",
            parent = sc,
            initFunc = function() ns:InitCombatAlerts() end,
            onRestore = function()
                if cache.caFrame then
                    cache.caFrame:Hide()
                    cache.caFrame:SetParent(nil)
                    cache.caFrame = nil
                end
                if display then display:UpdateDisplay() end
            end
        })
        restoreBtn:SetPoint("BOTTOMLEFT", sc, "BOTTOMLEFT", 10, 20)

        RelayoutSections()
    end)
end
