KeybindAuditUI.lua

local ADDON_NAME, ns = ...

local KeybindAuditUI = {}
ns.KeybindAuditUI = KeybindAuditUI

local Utils      = ns.Utils
local sformat    = Utils.sformat
local mfloor     = Utils.mfloor
local mmin, mmax = Utils.mmin, Utils.mmax
local ipairs     = Utils.ipairs
local pairs      = Utils.pairs
local tinsert    = Utils.tinsert
local CreateFrame = Utils.CreateFrame
local PlayUISound = Utils.PlayUISound
local SOUND_CLICK = Utils.SOUND_CLICK

local UIParent = UIParent

local BAR_FRAME_MAP = {
    { key = "main",        label = "Action Bar 1",  prefix = "ActionButton",               barFrame = "MainMenuBar" },
    { key = "bottomLeft",  label = "Action Bar 2",  prefix = "MultiBarBottomLeftButton",   barFrame = "MultiBarBottomLeft" },
    { key = "bottomRight", label = "Action Bar 3",  prefix = "MultiBarBottomRightButton",  barFrame = "MultiBarBottomRight" },
    { key = "right",       label = "Action Bar 4",  prefix = "MultiBarRightButton",        barFrame = "MultiBarRight" },
    { key = "left",        label = "Action Bar 5",  prefix = "MultiBarLeftButton",         barFrame = "MultiBarLeft" },
    { key = "bar6",        label = "Action Bar 6",  prefix = "MultiBar5Button",            barFrame = "MultiBar5" },
    { key = "bar7",        label = "Action Bar 7",  prefix = "MultiBar6Button",            barFrame = "MultiBar6" },
    { key = "bar8",        label = "Action Bar 8",  prefix = "MultiBar7Button",            barFrame = "MultiBar7" },
}

local ISSUE_ROW_HEIGHT = 36
local SEVERITY_COLORS = {
    high   = { 0.8, 0.2, 0.2 },
    medium = { 0.8, 0.6, 0.2 },
    low    = { 0.6, 0.6, 0.3 },
}

local auditFrame, dimmer
local setupPage, resultsPage, methodologyPage, categoryDetailPage, uniqueBindsPanel
local barOverlays = {}
local barToggles = {}
local lastResults

local gradeText, scoreText, summaryText
local categoryBars = {}
local barSummaryLabels = {}
local issueRows = {}
local issueContainer, issueScrollChild

local function GetBarColor(score)
    if score >= 90 then return 0.2, 0.8, 0.2 end
    if score >= 70 then return 0.8, 0.8, 0.2 end
    if score >= 50 then return 0.8, 0.6, 0.2 end
    return 0.6, 0.3, 0.3
end

local function GetDb()
    return BoundToLearn.db.audit
end

local function LoadBarToggles()
    local db = GetDb()
    -- Always sync with actual bar visibility
    for _, barDef in ipairs(BAR_FRAME_MAP) do
        local visible = ns.KeybindAudit.IsBarVisible(barDef.prefix)
        db.bars[barDef.key] = visible
        barToggles[barDef.key] = visible
    end
end

local function SaveBarToggles()
    local db = GetDb()
    for key, val in pairs(barToggles) do
        db.bars[key] = val
    end
end

local function UpdateBarOverlay(overlay, included)
    local word = included and "Included" or "Excluded"
    overlay.label:SetText(overlay.barLabel .. " (" .. word .. ")")
    if included then
        overlay.bg:SetColorTexture(0.1, 0.6, 0.1, 0.25)
        overlay.border:SetColorTexture(0.2, 0.8, 0.2, 0.8)
        overlay.label:SetTextColor(0.3, 1.0, 0.3)
    else
        overlay.bg:SetColorTexture(0.4, 0.1, 0.1, 0.25)
        overlay.border:SetColorTexture(0.6, 0.2, 0.2, 0.6)
        overlay.label:SetTextColor(0.8, 0.4, 0.4)
    end
end

local function FindLastVisibleButton(prefix)
    for i = 12, 1, -1 do
        local btn = _G[prefix .. i]
        if btn and btn:IsVisible() then return btn end
    end
    return nil
end

local function PositionOverlay(overlay, barDef)
    overlay:ClearAllPoints()
    local btn1 = _G[barDef.prefix .. "1"]
    local lastBtn = FindLastVisibleButton(barDef.prefix)
    if btn1 and lastBtn then
        overlay:SetPoint("TOPLEFT", btn1, "TOPLEFT", -6, 6)
        overlay:SetPoint("BOTTOMRIGHT", lastBtn, "BOTTOMRIGHT", 6, -6)
    end
end

local function CreateBarOverlay(barDef)
    local btn1 = _G[barDef.prefix .. "1"]
    if not btn1 then return nil end

    local overlay = CreateFrame("Button", nil, UIParent)
    overlay:SetFrameStrata("FULLSCREEN_DIALOG")
    overlay:SetFrameLevel(10)

    local bg = overlay:CreateTexture(nil, "BACKGROUND")
    bg:SetAllPoints()
    bg:SetColorTexture(0.1, 0.6, 0.1, 0.25)
    overlay.bg = bg

    local border = overlay:CreateTexture(nil, "BORDER")
    border:SetPoint("TOPLEFT", 0, 0)
    border:SetPoint("TOPRIGHT", 0, 0)
    border:SetHeight(2)
    border:SetColorTexture(0.2, 0.8, 0.2, 0.8)
    overlay.border = border

    local label = overlay:CreateFontString(nil, "OVERLAY")
    label:SetFont("Fonts\\FRIZQT__.TTF", 12, "OUTLINE")
    label:SetPoint("CENTER", 0, 6)
    label:SetText(barDef.label)
    overlay.label = label
    overlay.barLabel = barDef.label

    local hint = overlay:CreateFontString(nil, "OVERLAY")
    hint:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
    hint:SetPoint("CENTER", 0, -8)
    hint:SetText("Click to toggle")
    hint:SetTextColor(0.7, 0.7, 0.7)
    overlay.hint = hint

    overlay.barKey = barDef.key
    overlay:SetScript("OnClick", function(self)
        PlayUISound(SOUND_CLICK)
        barToggles[self.barKey] = not barToggles[self.barKey]
        UpdateBarOverlay(self, barToggles[self.barKey])
        SaveBarToggles()
        -- Sync setup page checkboxes
        if setupPage and setupPage.barCheckboxes then
            local cb = setupPage.barCheckboxes[self.barKey]
            if cb then cb:SetChecked(barToggles[self.barKey]) end
        end
    end)

    overlay:Hide()
    return overlay
end

local function CreateScoreBar(parent, label, yOffset, categoryIndex)
    local row = CreateFrame("Button", nil, parent)
    row:SetSize(240, 18)
    row:SetPoint("TOPLEFT", 20, yOffset)

    local highlight = row:CreateTexture(nil, "HIGHLIGHT")
    highlight:SetAllPoints()
    highlight:SetColorTexture(1, 1, 1, 0.08)

    local lbl = row:CreateFontString(nil, "OVERLAY")
    lbl:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
    lbl:SetPoint("LEFT", 0, 0)
    lbl:SetWidth(95)
    lbl:SetJustifyH("LEFT")
    lbl:SetTextColor(0.8, 0.8, 0.8)
    lbl:SetText(label)
    row.label = lbl

    local bg = row:CreateTexture(nil, "BACKGROUND")
    bg:SetPoint("LEFT", 100, 0)
    bg:SetSize(110, 12)
    bg:SetColorTexture(ns.Theme.RGB(ns.Theme.C.PANEL_DARK))
    row.bg = bg

    local fill = row:CreateTexture(nil, "ARTWORK")
    fill:SetPoint("LEFT", 100, 0)
    fill:SetSize(110, 12)
    fill:SetColorTexture(0.2, 0.8, 0.2, 1)
    row.fill = fill

    local val = row:CreateFontString(nil, "OVERLAY")
    val:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
    val:SetPoint("LEFT", 218, 0)
    val:SetTextColor(0.9, 0.9, 0.9)
    row.value = val

    row:SetScript("OnClick", function()
        PlayUISound(SOUND_CLICK)
        KeybindAuditUI:ShowCategoryDetail(categoryIndex)
    end)

    return row
end

local function SetScoreBar(bar, score)
    local clamped = mmax(0, mmin(100, score))
    bar.fill:SetWidth(mmax(1, 110 * clamped / 100))
    local r, g, b = GetBarColor(score)
    bar.fill:SetColorTexture(r, g, b, 1)
    bar.fill:Show()
    bar.value:SetTextColor(0.9, 0.9, 0.9)
    bar.value:SetText(tostring(mfloor(score)))
end

-- Grouping can't be scored without at least one role holding two bound abilities.
-- Show N/A rather than a bare 0 (which reads as a failing grade); the reason lands
-- in the recommendations list.
local function SetScoreBarNA(bar)
    bar.fill:Hide()
    bar.value:SetTextColor(0.5, 0.5, 0.5)
    bar.value:SetText("N/A")
end

local function CreateIssueRow(parent, index)
    local row = CreateFrame("Frame", nil, parent)
    row:SetSize(250, ISSUE_ROW_HEIGHT)
    row:SetPoint("TOPLEFT", 0, -(index - 1) * ISSUE_ROW_HEIGHT)

    local strip = row:CreateTexture(nil, "ARTWORK")
    strip:SetSize(3, ISSUE_ROW_HEIGHT - 4)
    strip:SetPoint("LEFT", 0, 0)
    strip:SetColorTexture(0.8, 0.6, 0.2, 1)
    row.strip = strip

    local icon = row:CreateTexture(nil, "ARTWORK")
    icon:SetSize(20, 20)
    icon:SetPoint("LEFT", 8, 0)
    icon:SetTexCoord(0.07, 0.93, 0.07, 0.93)
    icon:Hide()
    row.icon = icon

    local text = row:CreateFontString(nil, "OVERLAY")
    text:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
    text:SetPoint("TOPLEFT", 34, -3)
    text:SetWidth(210)
    text:SetJustifyH("LEFT")
    text:SetTextColor(0.9, 0.9, 0.9)
    row.text = text

    -- Under the text, so a recommendation that wraps pushes it down.
    local detail = row:CreateFontString(nil, "OVERLAY")
    detail:SetFont("Fonts\\FRIZQT__.TTF", 9, "")
    detail:SetPoint("TOPLEFT", text, "BOTTOMLEFT", 0, -3)
    detail:SetWidth(210)
    detail:SetJustifyH("LEFT")
    detail:SetTextColor(0.6, 0.6, 0.6)
    row.detail = detail

    row:Hide()
    return row
end

local function CreateCheckbox(parent, label, yOffset, onClick)
    local cb = ns.Theme.CreateToggle(parent, label, nil, 130)
    cb:SetPoint("TOPLEFT", 20, yOffset)
    cb.label = cb.Text

    cb:SetScript("OnClick", function(self)
        PlayUISound(SOUND_CLICK)
        if onClick then onClick(self:GetChecked()) end
    end)

    return cb
end

function KeybindAuditUI:CreateFrame()
    if auditFrame then return end

    -- Dimmer
    dimmer = CreateFrame("Frame", nil, UIParent)
    dimmer:SetAllPoints(UIParent)
    dimmer:SetFrameStrata("FULLSCREEN")
    dimmer:EnableMouse(false)
    local dimBg = dimmer:CreateTexture(nil, "BACKGROUND")
    dimBg:SetAllPoints()
    dimBg:SetColorTexture(0, 0, 0, 0.6)
    dimmer:Hide()

    -- Bar overlays
    for _, barDef in ipairs(BAR_FRAME_MAP) do
        barOverlays[barDef.key] = CreateBarOverlay(barDef)
    end

    -- Main frame
    auditFrame = CreateFrame("Frame", "BoundToLearnAuditFrame", UIParent)
    auditFrame:SetSize(580, 480)
    auditFrame:SetPoint("CENTER")
    auditFrame:SetFrameStrata("FULLSCREEN_DIALOG")
    auditFrame:SetFrameLevel(20)
    ns.Theme.StylePanel(auditFrame)
    auditFrame:EnableMouse(true)
    auditFrame:SetMovable(true)
    auditFrame:RegisterForDrag("LeftButton")
    auditFrame:SetClampedToScreen(true)
    auditFrame:SetScript("OnDragStart", auditFrame.StartMoving)
    auditFrame:SetScript("OnDragStop", auditFrame.StopMovingOrSizing)
    auditFrame:SetScript("OnHide", function()
        self:HideBarOverlays()
    end)
    Utils.CloseOnEscape(auditFrame)

    local close = ns.Theme.CreateCloseButton(auditFrame, function() auditFrame:Hide() end)
    close:SetPoint("TOPRIGHT", -8, -8)

    -- Title
    local title = ns.Theme.CreateTitle(auditFrame, "Keybind Audit", 16)
    title:SetPoint("TOP", 0, -12)

    -- Header, left of the close button.
    local feedbackBtn = ns.Feedback.CreateButton(auditFrame, function()
        local page = (resultsPage and resultsPage:IsShown() and "results")
            or (methodologyPage and methodologyPage:IsShown() and "methodology")
            or (categoryDetailPage and categoryDetailPage:IsShown() and "category detail")
            or "setup"
        local db = GetDb()
        local bars = {}
        for key, on in pairs(db.bars or {}) do
            if on then bars[#bars + 1] = key end
        end
        table.sort(bars)
        return "Keybind Audit", {
            "Page: " .. page,
            sformat("Keyboard: %s, MMO mouse: %s, grouping: %s", tostring(db.keyboardLayout),
                tostring(db.mmoMouse), tostring(db.includeGrouping)),
            "Bars: " .. (#bars > 0 and table.concat(bars, ", ") or "none"),
        }
    end)
    ns.Feedback.PlaceBesideClose(feedbackBtn, close)

    -- Back, top left on the title row (mirrors Give feedback): one level up.
    -- Hidden on setup, the first page.
    local backBtn = ns.Theme.CreateButton(auditFrame, "Back", 70, 22)
    backBtn:SetPoint("TOPLEFT", 14, -12)
    backBtn:SetScript("OnClick", function()
        PlayUISound(SOUND_CLICK)
        KeybindAuditUI:GoBack()
    end)
    backBtn:Hide()
    auditFrame.backBtn = backBtn

    -- The results follow the bars: a keybind or a bar slot changed while they
    -- are open re-scans them (once, after the burst of events settles).
    local rescanPending = false
    auditFrame:RegisterEvent("UPDATE_BINDINGS")
    auditFrame:RegisterEvent("ACTIONBAR_SLOT_CHANGED")
    auditFrame:SetScript("OnEvent", function()
        if rescanPending or not (resultsPage and resultsPage:IsShown()) then return end
        rescanPending = true
        C_Timer.After(0.3, function()
            rescanPending = false
            if resultsPage:IsShown() then KeybindAuditUI:RefreshResults() end
        end)
    end)

    -- Divider under the title in the window border's bronze (measured from the
    -- Dialog frame's lit metal), with its darker underside.
    local accent = auditFrame:CreateTexture(nil, "ARTWORK")
    accent:SetPoint("TOP", 0, -34)
    accent:SetSize(550, 1)
    accent:SetColorTexture(0.55, 0.41, 0.27)
    local accentShade = auditFrame:CreateTexture(nil, "ARTWORK")
    accentShade:SetPoint("TOP", accent, "BOTTOM")
    accentShade:SetSize(550, 1)
    accentShade:SetColorTexture(0.30, 0.21, 0.13)

    -- Under the divider: the audit is opinion, and its methodology is one click
    -- away ("here"). Hidden on the methodology page itself.
    local note = CreateFrame("Frame", nil, auditFrame)
    note:SetPoint("TOP", accent, "BOTTOM", 0, -3)
    note:SetHeight(14)
    local noteText = note:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
    noteText:SetPoint("LEFT")
    noteText:SetText("This is extremely subjective and still heavily a WIP. See current methodology ")
    local here = CreateFrame("Button", nil, note)
    local hereText = here:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall")
    hereText:SetPoint("LEFT")
    hereText:SetText("here")
    here:SetFontString(hereText)
    here:SetNormalFontObject("GameFontNormalSmall")
    here:SetHighlightFontObject("GameFontHighlightSmall")
    here:SetSize(hereText:GetStringWidth() + 1, 14)
    here:SetPoint("LEFT", noteText, "RIGHT", 0, 0)
    here:SetScript("OnClick", function()
        PlayUISound(SOUND_CLICK)
        KeybindAuditUI:ToggleMethodology()
    end)
    local dot = note:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
    dot:SetPoint("LEFT", here, "RIGHT", 0, 0)
    dot:SetText(".")
    note:SetWidth(noteText:GetStringWidth() + here:GetWidth() + dot:GetStringWidth())
    auditFrame.methNote = note

    self:CreateSetupPage()
    self:CreateResultsPage()
    self:CreateMethodologyPage()
    self:CreateCategoryDetailPage()

    resultsPage:Hide()
    methodologyPage:Hide()
    categoryDetailPage:Hide()
    auditFrame:Hide()
end

function KeybindAuditUI:CreateSetupPage()
    setupPage = CreateFrame("Frame", nil, auditFrame)
    setupPage:SetAllPoints()

    local desc = setupPage:CreateFontString(nil, "OVERLAY")
    desc:SetFont("Fonts\\FRIZQT__.TTF", 11, "")
    desc:SetPoint("TOPLEFT", 25, -58)
    desc:SetWidth(530)
    desc:SetJustifyH("LEFT")
    desc:SetTextColor(0.6, 0.6, 0.6)
    desc:SetText("Select which bars to include by clicking them on screen, or use the checkboxes below.")

    -- Bar checkboxes (two columns of 4)
    local barCheckY = -104
    local barCheckboxes = {}
    local BARS_PER_COL = 4
    for i, barDef in ipairs(BAR_FRAME_MAP) do
        local col = (i - 1) < BARS_PER_COL and 0 or 1
        local row = (i - 1) % BARS_PER_COL
        local cb = CreateCheckbox(setupPage, barDef.label, barCheckY - row * 28, function(checked)
            barToggles[barDef.key] = checked
            SaveBarToggles()
            local overlay = barOverlays[barDef.key]
            if overlay and overlay:IsShown() then
                UpdateBarOverlay(overlay, checked)
            end
            KeybindAuditUI:UpdateStartButtonState()
        end)
        if col == 1 then
            cb:ClearAllPoints()
            cb:SetPoint("TOPLEFT", 160, barCheckY - row * 28)
        end
        barCheckboxes[barDef.key] = cb
    end
    setupPage.barCheckboxes = barCheckboxes

    -- Toggle-all button above the bar list.
    local toggleAllBtn = ns.Theme.CreateButton(setupPage, "Toggle All", 90, 20)
    toggleAllBtn:SetPoint("TOPLEFT", 20, -76)
    toggleAllBtn:SetScript("OnClick", function()
        PlayUISound(SOUND_CLICK)
        local allOn = true
        for _, barDef in ipairs(BAR_FRAME_MAP) do
            if not barToggles[barDef.key] then allOn = false; break end
        end
        KeybindAuditUI:SetAllBars(not allOn)
    end)
    setupPage.toggleAllBtn = toggleAllBtn

    -- Right column options
    local optX = 330

    local mmoMouseCb = ns.Theme.CreateToggle(setupPage, "I use an MMO mouse (12-button)", nil, 230)
    mmoMouseCb:SetPoint("TOPLEFT", optX, -82)
    mmoMouseCb:SetScript("OnClick", function(self)
        PlayUISound(SOUND_CLICK)
        GetDb().mmoMouse = self:GetChecked()
    end)
    setupPage.mmoMouseCb = mmoMouseCb

    local mmoHint = setupPage:CreateFontString(nil, "OVERLAY")
    mmoHint:SetFont("Fonts\\FRIZQT__.TTF", 9, "")
    mmoHint:SetPoint("TOPLEFT", optX + 30, -108)
    mmoHint:SetWidth(200)
    mmoHint:SetJustifyH("LEFT")
    mmoHint:SetTextColor(0.55, 0.55, 0.55)
    mmoHint:SetText("Number keys won't be penalized as distant since they're on your thumb.")

    -- FN / other unique binds: declare keys the player physically has on their mouse.
    local fnBindsCb = ns.Theme.CreateToggle(setupPage, "I have FN or other unique binds", nil, 230)
    fnBindsCb:SetPoint("TOPLEFT", optX, -132)
    fnBindsCb:SetScript("OnClick", function(self)
        PlayUISound(SOUND_CLICK)
        local on = self:GetChecked()
        GetDb().hasUniqueBinds = on
        if setupPage.setKeysBtn then setupPage.setKeysBtn:SetShown(on) end
    end)
    setupPage.fnBindsCb = fnBindsCb

    local setKeysBtn = ns.Theme.CreateButton(setupPage, "Set unique keys", 130, 20)
    setKeysBtn:SetPoint("TOPLEFT", optX + 20, -158)
    setKeysBtn:SetScript("OnClick", function()
        PlayUISound(SOUND_CLICK)
        KeybindAuditUI:ShowUniqueBindsPanel()
    end)
    setKeysBtn:Hide()
    setupPage.setKeysBtn = setKeysBtn

    local skipBarsCb = ns.Theme.CreateToggle(setupPage, "Skip this setup next time", nil, 230)
    skipBarsCb:SetPoint("TOPLEFT", optX, -186)
    skipBarsCb:SetScript("OnClick", function(self)
        PlayUISound(SOUND_CLICK)
        GetDb().skipBarSelection = self:GetChecked()
    end)
    setupPage.skipBarsCb = skipBarsCb

    local skipBarsHint = setupPage:CreateFontString(nil, "OVERLAY")
    skipBarsHint:SetFont("Fonts\\FRIZQT__.TTF", 9, "")
    skipBarsHint:SetPoint("TOPLEFT", optX + 30, -212)
    skipBarsHint:SetWidth(200)
    skipBarsHint:SetJustifyH("LEFT")
    skipBarsHint:SetTextColor(0.55, 0.55, 0.55)
    skipBarsHint:SetText("Next time you open the audit, click Settings (bottom-left) to change these options.")

    -- Grouping checkbox (experimental)
    -- 236 wide ends 14 inside the right border (11).
    local groupingCb = ns.Theme.CreateToggle(setupPage, "Include grouping score  |cFFFF8800Experimental|r", nil, 236)
    groupingCb:SetPoint("TOPLEFT", optX, -242)
    groupingCb:SetScript("OnClick", function(self)
        PlayUISound(SOUND_CLICK)
        GetDb().includeGrouping = self:GetChecked()
    end)
    setupPage.groupingCb = groupingCb

    local groupingHint = setupPage:CreateFontString(nil, "OVERLAY")
    groupingHint:SetFont("Fonts\\FRIZQT__.TTF", 9, "")
    groupingHint:SetPoint("TOPLEFT", optX + 30, -268)
    groupingHint:SetWidth(200)
    groupingHint:SetJustifyH("LEFT")
    groupingHint:SetTextColor(0.55, 0.55, 0.55)
    groupingHint:SetText("Scores whether defensives, CCs, and offensive cooldowns are on nearby keys. Uses SpellData classifications.")

    -- Keyboard layout selector (under bar checkboxes)
    local layoutLabel = setupPage:CreateFontString(nil, "OVERLAY")
    layoutLabel:SetFont("Fonts\\FRIZQT__.TTF", 11, "")
    layoutLabel:SetPoint("TOPLEFT", 20, -234)
    layoutLabel:SetTextColor(0.8, 0.8, 0.8)
    layoutLabel:SetText("Keyboard layout:")

    local LAYOUT_OPTIONS = { "QWERTY", "AZERTY", "QWERTZ", "DVORAK" }
    local layoutButtons = {}
    for i, layoutName in ipairs(LAYOUT_OPTIONS) do
        local btn = CreateFrame("Button", nil, setupPage)
        btn:SetSize(56, 18)
        btn:SetPoint("TOPLEFT", layoutLabel, "BOTTOMLEFT", (i - 1) * 60, -4)

        local btnBg = btn:CreateTexture(nil, "BACKGROUND")
        btnBg:SetAllPoints()
        btn.bg = btnBg

        local btnText = btn:CreateFontString(nil, "OVERLAY")
        btnText:SetFont("Fonts\\FRIZQT__.TTF", 9, "")
        btnText:SetPoint("CENTER")
        btnText:SetText(layoutName)
        btn.label = btnText

        btn.layoutName = layoutName
        btn:SetScript("OnClick", function(self)
            PlayUISound(SOUND_CLICK)
            GetDb().keyboardLayout = self.layoutName
            for _, b in ipairs(layoutButtons) do
                local selected = b.layoutName == self.layoutName
                b.bg:SetColorTexture(selected and 0.2 or 0.1, selected and 0.5 or 0.1, selected and 0.2 or 0.1, selected and 0.5 or 0.3)
                b.label:SetTextColor(selected and 0.3 or 0.6, selected and 1.0 or 0.6, selected and 0.3 or 0.6)
            end
        end)
        tinsert(layoutButtons, btn)
    end
    setupPage.layoutButtons = layoutButtons

    -- Run Audit button
    local runBtn = ns.Theme.CreateAccentButton(setupPage, "Start Audit", 140, 30)
    runBtn:SetPoint("BOTTOM", 0, 20)
    runBtn:SetScript("OnClick", function()
        if not KeybindAuditUI:AnyBarEnabled() then return end
        PlayUISound(SOUND_CLICK)
        SaveBarToggles()
        KeybindAuditUI:ShowResults()
    end)
    setupPage.runBtn = runBtn
    KeybindAuditUI:UpdateStartButtonState()
end

function KeybindAuditUI:AnyBarEnabled()
    for _, barDef in ipairs(BAR_FRAME_MAP) do
        if barToggles[barDef.key] then return true end
    end
    return false
end

function KeybindAuditUI:UpdateStartButtonState()
    local runBtn = setupPage and setupPage.runBtn
    if not runBtn then return end
    local any = self:AnyBarEnabled()
    runBtn:SetEnabled(any)
    runBtn:SetAlpha(any and 1 or 0.4)
end

function KeybindAuditUI:SetAllBars(on)
    for _, barDef in ipairs(BAR_FRAME_MAP) do
        barToggles[barDef.key] = on
        local cb = setupPage and setupPage.barCheckboxes and setupPage.barCheckboxes[barDef.key]
        if cb then cb:SetChecked(on) end
        local overlay = barOverlays[barDef.key]
        if overlay and overlay:IsShown() then
            UpdateBarOverlay(overlay, on)
        end
    end
    SaveBarToggles()
    self:UpdateStartButtonState()
end

-- Unique-bind entry: declare keys in unusual spots and where they live, so a key the
-- player keeps on their mouse scores as reachable instead of a far function-row stretch.
local UNIQUE_LOCATIONS = { "mouse", "numpad", "function", "other" }
local UNIQUE_LOC_LABEL = { mouse = "Mouse", numpad = "Numpad", ["function"] = "Fn row", other = "Other" }

local function NextLocation(loc)
    for i = 1, #UNIQUE_LOCATIONS do
        if UNIQUE_LOCATIONS[i] == loc then
            return UNIQUE_LOCATIONS[(i % #UNIQUE_LOCATIONS) + 1]
        end
    end
    return UNIQUE_LOCATIONS[1]
end

local function NormalizeUniqueKey(text)
    local key = (text or ""):upper():gsub("%s", "")
    if key == "" then return nil end
    if key:match("^[A-Z0-9]$") then return nil end   -- reject plain single letters/numbers
    return key
end

function KeybindAuditUI:RefreshUniqueBinds()
    local p = uniqueBindsPanel
    if not p then return end
    local binds = GetDb().uniqueBinds or {}
    local keys = {}
    for k in pairs(binds) do keys[#keys + 1] = k end
    table.sort(keys)
    for i = 1, #p.rows do
        local row = p.rows[i]
        local key = keys[i]
        if key then
            row.keyFS:SetText(key)
            row.locBtn:SetText(UNIQUE_LOC_LABEL[binds[key]] or binds[key])
            row.locBtn.key = key
            row.rm.key = key
            row:Show()
        else
            row:Hide()
        end
    end
    p.overflow:SetShown(#keys > #p.rows)
end

function KeybindAuditUI:ShowUniqueBindsPanel()
    GetDb().uniqueBinds = GetDb().uniqueBinds or {}
    if not uniqueBindsPanel then
        local p = CreateFrame("Frame", nil, auditFrame)
        p:SetPoint("TOPLEFT", 20, -58)
        p:SetPoint("BOTTOMRIGHT", -20, 18)
        p:SetFrameStrata("FULLSCREEN_DIALOG")
        p:SetFrameLevel(auditFrame:GetFrameLevel() + 20)
        ns.Theme.StylePanel(p, 0.98)
        p:EnableMouse(true)

        local title = p:CreateFontString(nil, "OVERLAY")
        title:SetFont("Fonts\\FRIZQT__.TTF", 15, "OUTLINE")
        title:SetPoint("TOP", 0, -10)
        title:SetText("Unique keys and where they are")
        title:SetTextColor(ns.Theme.RGB(ns.Theme.C.ACCENT_BRIGHT))

        local hint = p:CreateFontString(nil, "OVERLAY", "GameFontDisableSmall")
        hint:SetPoint("TOP", title, "BOTTOM", 0, -4)
        hint:SetWidth(500)
        hint:SetJustifyH("CENTER")
        hint:SetText("Type a key such as F11 or NUMPAD4 (plain letters and numbers are not allowed), pick where it lives, then Add. Mouse counts as fully reachable; the rest count as a far reach.")

        local edit = CreateFrame("EditBox", nil, p, "InputBoxTemplate")
        edit:SetSize(120, 20)
        edit:SetPoint("TOPLEFT", 40, -70)
        edit:SetAutoFocus(false)

        p.newLoc = "mouse"
        local locBtn = ns.Theme.CreateButton(p, "Mouse", 80, 20)
        locBtn:SetPoint("LEFT", edit, "RIGHT", 14, 0)
        locBtn:SetScript("OnClick", function()
            p.newLoc = NextLocation(p.newLoc)
            locBtn:SetText(UNIQUE_LOC_LABEL[p.newLoc])
        end)

        local addBtn = ns.Theme.CreateAccentButton(p, "Add", 60, 22)
        addBtn:SetPoint("LEFT", locBtn, "RIGHT", 14, 0)
        local function doAdd()
            local key = NormalizeUniqueKey(edit:GetText())
            if not key then return end
            GetDb().uniqueBinds[key] = p.newLoc
            edit:SetText("")
            KeybindAuditUI:RefreshUniqueBinds()
        end
        addBtn:SetScript("OnClick", doAdd)
        edit:SetScript("OnEnterPressed", function() doAdd(); edit:ClearFocus() end)
        edit:SetScript("OnEscapePressed", function() edit:ClearFocus() end)

        p.rows = {}
        for i = 1, 8 do
            local row = CreateFrame("Frame", nil, p)
            row:SetSize(320, 20)
            row:SetPoint("TOPLEFT", 40, -100 - (i - 1) * 24)
            local keyFS = row:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
            keyFS:SetPoint("LEFT", 0, 0)
            keyFS:SetWidth(90)
            keyFS:SetJustifyH("LEFT")
            row.keyFS = keyFS
            local rowLoc = ns.Theme.CreateButton(row, "Mouse", 80, 18)
            rowLoc:SetPoint("LEFT", 96, 0)
            rowLoc:SetScript("OnClick", function(self)
                local newLoc = NextLocation(GetDb().uniqueBinds[self.key])
                GetDb().uniqueBinds[self.key] = newLoc
                self:SetText(UNIQUE_LOC_LABEL[newLoc])
            end)
            row.locBtn = rowLoc
            local rm = ns.Theme.CreateButton(row, "Remove", 70, 18)
            rm:SetPoint("LEFT", rowLoc, "RIGHT", 12, 0)
            rm:SetScript("OnClick", function(self)
                GetDb().uniqueBinds[self.key] = nil
                KeybindAuditUI:RefreshUniqueBinds()
            end)
            row.rm = rm
            row:Hide()
            p.rows[i] = row
        end

        local overflow = p:CreateFontString(nil, "OVERLAY", "GameFontDisableSmall")
        overflow:SetPoint("TOPLEFT", 40, -100 - 8 * 24)
        overflow:SetText("Showing the first 8 keys.")
        overflow:Hide()
        p.overflow = overflow

        local doneBtn = ns.Theme.CreateButton(p, "Done", 90, 24)
        doneBtn:SetPoint("BOTTOM", 0, 14)
        doneBtn:SetScript("OnClick", function() PlayUISound(SOUND_CLICK); p:Hide() end)

        uniqueBindsPanel = p
    end
    self:RefreshUniqueBinds()
    uniqueBindsPanel:Show()
end

function KeybindAuditUI:CreateResultsPage()
    resultsPage = CreateFrame("Frame", nil, auditFrame)
    resultsPage:SetAllPoints()

    -- Left column header
    gradeText = resultsPage:CreateFontString(nil, "OVERLAY")
    gradeText:SetFont("Fonts\\FRIZQT__.TTF", 38, "OUTLINE")
    gradeText:SetPoint("TOP", resultsPage, "TOPLEFT", 140, -60)

    scoreText = resultsPage:CreateFontString(nil, "OVERLAY")
    scoreText:SetFont("Fonts\\FRIZQT__.TTF", 13, "")
    scoreText:SetPoint("TOP", gradeText, "BOTTOM", 0, -4)
    scoreText:SetTextColor(0.8, 0.8, 0.8)

    summaryText = resultsPage:CreateFontString(nil, "OVERLAY")
    summaryText:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
    summaryText:SetPoint("TOP", scoreText, "BOTTOM", 0, -6)
    summaryText:SetTextColor(0.7, 0.7, 0.7)
    summaryText:SetWidth(250)

    -- Score bars (clickable for detail drill-down)
    local barY = -148
    local categories = { "Coverage", "Reachability", "Modifier Usage", "Anti-patterns" }
    for i, cat in ipairs(categories) do
        categoryBars[i] = CreateScoreBar(resultsPage, cat, barY - (i - 1) * 22, i)
    end

    -- Grouping bar (5th, shown only when enabled)
    categoryBars[5] = CreateScoreBar(resultsPage, "Grouping |cFFFF8A33(Exp)|r", barY - 4 * 22, 5)
    ns.Theme.DelayedTooltip(categoryBars[5], function(self)
        GameTooltip:SetText("Experimental", ns.Theme.RGB(ns.Theme.C.ACCENT))
        GameTooltip:AddLine("This score measures physical key proximity of\nabilities that share a role (defensives, CCs, etc).\n\nSpell classification may not cover all abilities.\nTreat this as a guideline, not a strict score.", 0.7, 0.7, 0.7, true)
    end)
    categoryBars[5]:Hide()

    -- Divider (positioned dynamically based on grouping bar visibility)
    local div = resultsPage:CreateTexture(nil, "ARTWORK")
    div:SetSize(250, 1)
    div:SetPoint("TOPLEFT", 15, -256)
    div:SetColorTexture(ns.Theme.RGB(ns.Theme.C.BORDER, 0.35))
    resultsPage.divider = div

    -- Per-bar summary
    for i = 1, 8 do
        local lbl = resultsPage:CreateFontString(nil, "OVERLAY")
        lbl:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
        lbl:SetPoint("TOPLEFT", 20, -264 - (i - 1) * 16)
        lbl:SetWidth(250)
        lbl:SetJustifyH("LEFT")
        lbl:Hide()
        barSummaryLabels[i] = lbl
    end

    -- Skipped macros note
    local skippedLabel = resultsPage:CreateFontString(nil, "OVERLAY")
    skippedLabel:SetFont("Fonts\\FRIZQT__.TTF", 9, "")
    skippedLabel:SetPoint("BOTTOMLEFT", 20, 42)
    skippedLabel:SetWidth(250)
    skippedLabel:SetJustifyH("LEFT")
    skippedLabel:SetTextColor(0.5, 0.5, 0.5)
    skippedLabel:Hide()
    resultsPage.skippedLabel = skippedLabel

    -- Right column: Recommendations
    local rightX = 290

    -- Vertical divider
    local vDiv = resultsPage:CreateTexture(nil, "ARTWORK")
    vDiv:SetSize(1, 1)
    vDiv:SetPoint("TOPLEFT", rightX - 10, -54)
    vDiv:SetPoint("BOTTOMLEFT", rightX - 10, 40)
    vDiv:SetColorTexture(ns.Theme.RGB(ns.Theme.C.BORDER, 0.35))

    local recHeader = resultsPage:CreateFontString(nil, "OVERLAY")
    recHeader:SetFont("Fonts\\FRIZQT__.TTF", 12, "OUTLINE")
    recHeader:SetPoint("TOPLEFT", rightX, -56)
    recHeader:SetTextColor(0.9, 0.9, 0.9)
    recHeader:SetText("Recommendations")

    issueContainer = CreateFrame("ScrollFrame", "BoundToLearnAuditScroll", resultsPage, "UIPanelScrollFrameTemplate")
    issueContainer:SetPoint("TOPLEFT", rightX, -76)
    issueContainer:SetPoint("BOTTOMRIGHT", -15, 44)
    ns.Theme.StyleScrollBar(issueContainer.ScrollBar or _G["BoundToLearnAuditScrollScrollBar"])

    issueScrollChild = CreateFrame("Frame", nil, issueContainer)
    issueScrollChild:SetSize(250, 1)
    issueContainer:SetScrollChild(issueScrollChild)

    -- Room for every action bar's section header and its rows.
    for i = 1, 48 do
        issueRows[i] = CreateIssueRow(issueScrollChild, i)
    end

    -- No issues message
    local noIssues = resultsPage:CreateFontString(nil, "OVERLAY")
    noIssues:SetFont("Fonts\\FRIZQT__.TTF", 11, "")
    noIssues:SetPoint("TOP", issueContainer, "TOP", 0, -40)
    noIssues:SetTextColor(0.4, 0.7, 0.4)
    noIssues:SetText("No issues found. Nice work.")   -- set per result in ShowResults
    noIssues:Hide()
    resultsPage.noIssues = noIssues
    -- Back (top left, on the frame) returns to setup; the results re-scan by
    -- themselves when a keybind or a bar slot changes (no Refresh button).
end

function KeybindAuditUI:CreateMethodologyPage()
    methodologyPage = CreateFrame("Frame", nil, auditFrame)
    methodologyPage:SetAllPoints()

    local scrollFrame = CreateFrame("ScrollFrame", "BoundToLearnAuditMethScroll", methodologyPage, "UIPanelScrollFrameTemplate")
    -- Starts under the divider (the methodology note is hidden on this page);
    -- the scroll bar hangs right of the frame and must clear the right border (11).
    scrollFrame:SetPoint("TOPLEFT", 15, -44)
    scrollFrame:SetPoint("BOTTOMRIGHT", -36, 44)
    ns.Theme.StyleScrollBar(scrollFrame.ScrollBar or _G["BoundToLearnAuditMethScrollScrollBar"])

    local content = CreateFrame("Frame", nil, scrollFrame)
    content:SetWidth(520)
    scrollFrame:SetScrollChild(content)

    local text = content:CreateFontString(nil, "OVERLAY")
    text:SetFont("Fonts\\FRIZQT__.TTF", 12, "")
    text:SetPoint("TOPLEFT", 0, 0)
    text:SetWidth(520)
    text:SetJustifyH("LEFT")
    text:SetTextColor(0.75, 0.75, 0.75)
    local methBody =
        "|cFFFF8A33Overview|r\n"
        .. "The audit scans your action bars and scores your keybind setup on a 0-100 scale "
        .. "across four categories.\n\n"
        .. "|cFFFF8A33Coverage (40%)|r\n"
        .. "Percentage of filled action bar slots that have a keybind assigned. "
        .. "Every ability on your bars should be reachable without clicking.\n\n"
        .. "|cFFFF8A33Reachability (30%)|r\n"
        .. "How close your keybinds are to your movement keys. Each bound slot is scored:\n"
        .. "  |cFF66DD66Prime keys (100)|r: 1-5, Q, E, R, F, G, Z, X, C, V, T, B, `, Tab, mouse buttons\n"
        .. "  |cFFDDDD44Acceptable (60)|r: 6, Y, H, N, Space, the mouse wheel\n"
        .. "  |cFFDD8844Poor (20)|r: 7-0, -, =, F1-F12, and the right hand's keys: everything right of "
        .. "6/Y/H/N (U, I, O, P, J, K, L, M and on), the numpad, arrows and the Insert/Home block\n"
        .. "A modifier combo on a prime key (Shift-Q, Ctrl-3) keeps its 100. On an acceptable or "
        .. "poor key the hand already stretches, and holding Shift, Ctrl or Alt spreads it further: "
        .. "those combos score 40 and 10. A far key or stretch combo is listed with a nudge toward "
        .. "a closer key while you still have near keys or combos free; once every one is taken, a "
        .. "stretch combo is no longer listed.\n\n"
        .. "|cFFFF8A33Modifier Usage (15%)|r\n"
        .. "Modifiers are expected only once your abilities outnumber your prime keys (22 above, "
        .. "29 with the MMO mouse option). Past that, scored by how many of the extra abilities sit on "
        .. "Shift, Ctrl or Alt combos of near keys; a combo on a far key does not count.\n\n"
        .. "|cFFFF8A33Anti-patterns (15%)|r\n"
        .. "Starts at 100 and deducts for common issues:\n"
        .. "  Keyboard turning (A/D bound to turn): -40\n"
        .. "  Each unbound ability: -5 (max -40)\n"
        .. "  Each poor-tier keybind: -3 (max -20)\n\n"
        .. "|cFFFF8A33Grouping|r |cFFFF8800(Experimental, opt-in)|r\n"
        .. "Measures physical key proximity of abilities that share a role "
        .. "(defensives, CCs, offensive cooldowns, interrupts). Abilities are classified "
        .. "using spell data. For each role with 2+ bound abilities, the average pairwise "
        .. "distance between their keys is scored:\n"
        .. "  |cFF66DD66Same key / adjacent (dist 0-1.5): 90-100|r\n"
        .. "  |cFFDDDD44Nearby (dist 1.5-3.5): 60-75|r\n"
        .. "  |cFFDD8844Distant (dist 3.5+): 20-40|r\n"
        .. "Distance is measured on your selected keyboard layout (QWERTY, AZERTY, etc). "
        .. "When enabled, weights redistribute: Coverage 35%, Reachability 25%, "
        .. "Modifiers 12%, Anti-patterns 13%, Grouping 15%.\n\n"
        .. "|cFFFF8A33Grading|r\n"
        .. "A+ (95+)  A (90+)  A- (85+)  B+ (80+)  B (75+)  B- (70+)\n"
        .. "C+ (65+)  C (60+)  D (50+)  F (below 50)\n\n"
        .. "|cFFFF8A33MMO Mouse|r\n"
        .. "When enabled, number row keys (6-0, -, =) are treated as prime keys "
        .. "since they map to your thumb grid."
    text:SetText((methBody:gsub("FF8A33", ns.Theme.ACCENT_HEX)))
    content:SetHeight(text:GetStringHeight() + 10)
end

function KeybindAuditUI:ToggleMethodology()
    if methodologyPage:IsShown() then
        methodologyPage:Hide()
        auditFrame.methNote:Show()
        if methodologyPage.returnToResults then
            resultsPage:Show()
        else
            setupPage:Show()
            self:ShowBarOverlays()
        end
    else
        methodologyPage.returnToResults = resultsPage:IsShown() or categoryDetailPage:IsShown()
        auditFrame.methNote:Hide()
        methodologyPage:Show()
        setupPage:Hide()
        resultsPage:Hide()
        categoryDetailPage:Hide()
        self:HideBarOverlays()
    end
    self:UpdateBackButton()
end

-- Back is shown on every page but setup.
function KeybindAuditUI:UpdateBackButton()
    if auditFrame and auditFrame.backBtn then auditFrame.backBtn:SetShown(not setupPage:IsShown()) end
end

-- One level up: methodology to where it was opened from, a category's detail
-- to the scorecard, the scorecard to setup.
function KeybindAuditUI:GoBack()
    if methodologyPage:IsShown() then
        self:ToggleMethodology()
    elseif categoryDetailPage:IsShown() then
        categoryDetailPage:Hide()
        resultsPage:Show()
    elseif resultsPage:IsShown() then
        self:ShowSetup()
    end
    self:UpdateBackButton()
end

local TIER_COLORS = {
    prime      = "|cFF66DD66",
    acceptable = "|cFFDDDD44",
    poor       = "|cFFDD8844",
}

local function BuildCoverageDetail(results)
    local lines = {}
    tinsert(lines, sformat("|cFFFF8A33Score: %d / 100|r", results.scores.coverage))
    tinsert(lines, sformat("\n%d of %d filled slots have keybinds assigned.", results.totalBound, results.totalFilled))
    tinsert(lines, "\n\n|cFFFF8A33Per-bar breakdown:|r")
    for _, barDef in ipairs(results.barOrder) do
        local barData = results.bars[barDef.key]
        if barData and not barData.excluded and barData.filledCount > 0 then
            local ratio = barData.boundCount / barData.filledCount * 100
            local r, g, b = GetBarColor(ratio)
            tinsert(lines, sformat("  %s: |cFF%02x%02x%02x%d / %d bound|r",
                barData.label, r * 255, g * 255, b * 255, barData.boundCount, barData.filledCount))
        end
    end
    local unbound = {}
    for _, slot in ipairs(results.allSlots) do
        if not slot.keybind then tinsert(unbound, slot) end
    end
    if #unbound > 0 then
        tinsert(lines, "\n\n|cFFFF8A33Unbound abilities:|r")
        for _, slot in ipairs(unbound) do
            tinsert(lines, sformat("  |cFFDD8844%s|r on %s, slot %d", slot.actionName, slot.barLabel, slot.barIndex))
        end
    end
    tinsert(lines, "\n\n|cFF666666Coverage measures how many of your action bar abilities have keybinds. Every ability you use in combat should be reachable via keyboard.|r")
    return table.concat(lines, "\n")
end

local function BuildReachabilityDetail(results)
    local lines = {}
    tinsert(lines, sformat("|cFFFF8A33Score: %d / 100|r", results.scores.reachability))
    local primeCount, acceptCount, poorCount = 0, 0, 0
    for _, slot in ipairs(results.allSlots) do
        if slot.keybind then
            if slot.tier == "prime" then primeCount = primeCount + 1
            elseif slot.tier == "poor" then poorCount = poorCount + 1
            else acceptCount = acceptCount + 1 end
        end
    end
    tinsert(lines, sformat("\nAverage reachability across %d bound slots.", results.totalBound))
    tinsert(lines, sformat("\n  %sPrime: %d|r (100 pts each, with or without a modifier)", TIER_COLORS.prime, primeCount))
    tinsert(lines, sformat("  %sAcceptable: %d|r (60 pts each, 40 with a modifier)", TIER_COLORS.acceptable, acceptCount))
    tinsert(lines, sformat("  %sPoor: %d|r (20 pts each, 10 with a modifier)", TIER_COLORS.poor, poorCount))
    tinsert(lines, "\n\n|cFFFF8A33Bound slots:|r")
    for _, slot in ipairs(results.allSlots) do
        if slot.keybind then
            local tc = TIER_COLORS[slot.tier] or TIER_COLORS.acceptable
            tinsert(lines, sformat("  %s%s|r - %s (%s, %d pts)", tc, slot.keybind, slot.actionName, slot.tier,
                ns.KeybindAudit.ReachPoints(slot.tier, slot.hasModifier)))
        end
    end
    tinsert(lines, "\n\n|cFF666666Reachability scores how close your keybinds are to WASD. Prime keys (1-5, Q, E, R, F, etc.) score 100, acceptable keys (6, Y, H, N) 60, and distant keys (7-0, F1-F12, the right hand's keys) 20. A modifier on a prime key costs nothing; on an acceptable or distant key, where the hand already stretches, it drops the slot to 40 or 10.|r")
    return table.concat(lines, "\n")
end

local function BuildModifierDetail(results)
    local lines = {}
    tinsert(lines, sformat("|cFFFF8A33Score: %d / 100|r", results.scores.modifiers))
    local modCount = 0
    for _, slot in ipairs(results.allSlots) do
        if slot.keybind and slot.hasModifier then modCount = modCount + 1 end
    end
    local needed, near, prime = results.modNeeded or 0, results.nearModified or 0, results.primeKeys or 0
    tinsert(lines, sformat("\n%d abilities bound, %d prime keys.", results.totalBound, prime))
    if needed == 0 then
        tinsert(lines, "Every ability fits on a prime key, so no modifiers are needed yet.")
    else
        tinsert(lines, sformat("%d abilities go past your prime keys; %d of them are on modifier combos of near keys.",
            needed, mmin(near, needed)))
    end
    tinsert(lines, sformat("%d keybinds use modifiers in all.", modCount))
    tinsert(lines, "\n\n|cFFFF8A33Scoring:|r")
    tinsert(lines, "  Fewer abilities than prime keys: 100 pts")
    tinsert(lines, "  Otherwise, by how many of the abilities past the prime keys are on modifier combos of near keys:")
    tinsert(lines, "  all: 100, two thirds: 80, a third: 60, some: 40, none: 20")
    if modCount > 0 then
        tinsert(lines, "\n\n|cFFFF8A33Modified keybinds:|r")
        for _, slot in ipairs(results.allSlots) do
            if slot.keybind and slot.hasModifier then
                tinsert(lines, sformat("  |cFF66DD66%s|r - %s", slot.keybind, slot.actionName))
            end
        end
    end
    tinsert(lines, "\n\n|cFF666666A modifier is worth reaching for once your near keys run out: Shift, Ctrl and Alt combos of them reach more abilities without moving your hand, where the next free key would be farther away. A combo on a far key saves no reach and does not count.|r")
    return table.concat(lines, "\n")
end

local function BuildAntiPatternDetail(results)
    local lines = {}
    tinsert(lines, sformat("|cFFFF8A33Score: %d / 100|r", results.scores.antiPatterns))
    tinsert(lines, "\nStarts at 100, with deductions for common issues:")
    local deductions = {}
    if results.keyboardTurning then
        tinsert(deductions, "  |cFFDD4444-40|r Keyboard turning detected (A/D bound to turn)")
    end
    local unboundCount = results.totalFilled - results.totalBound
    if unboundCount > 0 then
        local penalty = mmin(unboundCount * 5, 40)
        tinsert(deductions, sformat("  |cFFDD8844-%d|r %d unbound abilities (5 each, max 40)", penalty, unboundCount))
    end
    local poorCount = 0
    for _, slot in ipairs(results.allSlots) do
        if slot.keybind and slot.tier == "poor" then poorCount = poorCount + 1 end
    end
    if poorCount > 0 then
        local penalty = mmin(poorCount * 3, 20)
        tinsert(deductions, sformat("  |cFFDD8844-%d|r %d poor-tier keybinds (3 each, max 20)", penalty, poorCount))
    end
    if #deductions > 0 then
        tinsert(lines, "\n|cFFFF8A33Deductions:|r")
        for _, d in ipairs(deductions) do tinsert(lines, d) end
    else
        tinsert(lines, "\n|cFF66DD66No deductions. Clean setup.|r")
    end
    tinsert(lines, "\n\n|cFF666666Anti-patterns checks for habits that limit your effectiveness: keyboard turning, unbound abilities, and distant key choices.|r")
    return table.concat(lines, "\n")
end

local function BuildGroupingDetail(results)
    local lines = {}
    if results.scoredGroups and results.scoredGroups > 0 then
        tinsert(lines, sformat("|cFFFF8A33Score: %d / 100|r", results.scores.grouping))
    else
        tinsert(lines, "|cFFFF8A33Score: N/A|r  |cFFAAAAAA(not enough classified abilities to measure)|r")
    end
    if not results.includeGrouping then
        tinsert(lines, "\n|cFFFF8800This category is not included in your overall score.|r")
        tinsert(lines, "Enable it in Settings to factor it into your grade.")
    end

    tinsert(lines, "\n\nMeasures physical key proximity of abilities that share a role.")
    tinsert(lines, "Defensives near each other, CCs near each other, and so on.")
    tinsert(lines, sformat("Layout: |cFFFF8A33%s|r", results.keyboardLayout or "QWERTY"))

    local roleLabels = ns.KeybindAudit.ROLE_LABELS
    local roleScores = results.roleScores or {}
    local roleGroups = results.roleGroups or {}

    -- Sorted display: scored groups first (by score descending), then unscored
    local scored, unscored = {}, {}
    for role, group in pairs(roleGroups) do
        if roleScores[role] then
            tinsert(scored, role)
        elseif #group.slots == 1 then
            tinsert(unscored, role)
        end
    end
    table.sort(scored, function(a, b) return (roleScores[a].score or 0) > (roleScores[b].score or 0) end)
    table.sort(unscored, function(a, b) return (roleLabels[a] or a) < (roleLabels[b] or b) end)

    if #scored > 0 then
        tinsert(lines, "\n")
        for _, role in ipairs(scored) do
            local info = roleScores[role]
            local label = roleLabels[role] or role
            local color = info.score >= 75 and "66DD66" or info.score >= 50 and "DDDD44" or "DD8844"
            tinsert(lines, sformat("\n|cFF%s%s|r  |cFFAAAAAA%s, avg distance %.1f, score %d|r",
                color, label, Utils.Count(info.count, "ability", "abilities"), info.avgDist, info.score))
            local group = roleGroups[role]
            if group then
                for _, slotData in ipairs(group.slots) do
                    local bindStr = slotData.keybind or "?"
                    local nameStr = slotData.actionName or "?"
                    tinsert(lines, sformat("    |cFFCCCCCC%s|r  %s", bindStr, nameStr))
                end
            end
        end
    end

    if #unscored > 0 then
        tinsert(lines, "\n\n|cFF888888Single-ability roles (not scored):|r")
        for _, role in ipairs(unscored) do
            local label = roleLabels[role] or role
            local group = roleGroups[role]
            local slotData = group and group.slots[1]
            if slotData then
                tinsert(lines, sformat("  |cFF888888%s:|r %s (%s)", label, slotData.actionName or "?", slotData.keybind or "?"))
            end
        end
    end

    if #scored == 0 and #unscored == 0 then
        tinsert(lines, "\n\nNo classified abilities found on your action bars.")
        tinsert(lines, "This metric uses spell data to identify defensives, CCs,")
        tinsert(lines, "offensive cooldowns, and interrupts.")
    end

    tinsert(lines, "\n\n|cFFFF8800This is an experimental metric. Spell classification covers most|r")
    tinsert(lines, "|cFFFF8800common abilities but may miss some. Treat as a guideline.|r")
    return table.concat(lines, "\n")
end

local CATEGORY_BUILDERS = { BuildCoverageDetail, BuildReachabilityDetail, BuildModifierDetail, BuildAntiPatternDetail, BuildGroupingDetail }
local CATEGORY_NAMES = { "Coverage", "Reachability", "Modifier Usage", "Anti-patterns", "Grouping" }

function KeybindAuditUI:CreateCategoryDetailPage()
    categoryDetailPage = CreateFrame("Frame", nil, auditFrame)
    categoryDetailPage:SetAllPoints()

    local titleText = categoryDetailPage:CreateFontString(nil, "OVERLAY")
    titleText:SetFont("Fonts\\FRIZQT__.TTF", 14, "OUTLINE")
    titleText:SetPoint("TOP", 0, -60)
    titleText:SetTextColor(ns.Theme.RGB(ns.Theme.C.GOLD))
    categoryDetailPage.titleText = titleText

    local scrollFrame = CreateFrame("ScrollFrame", "BoundToLearnAuditCatScroll", categoryDetailPage, "UIPanelScrollFrameTemplate")
    scrollFrame:SetPoint("TOPLEFT", 20, -84)
    scrollFrame:SetPoint("BOTTOMRIGHT", -35, 44)
    ns.Theme.StyleScrollBar(scrollFrame.ScrollBar or _G["BoundToLearnAuditCatScrollScrollBar"])

    local content = CreateFrame("Frame", nil, scrollFrame)
    content:SetWidth(510)
    scrollFrame:SetScrollChild(content)

    local bodyText = content:CreateFontString(nil, "OVERLAY")
    bodyText:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
    bodyText:SetPoint("TOPLEFT", 0, 0)
    bodyText:SetWidth(510)
    bodyText:SetJustifyH("LEFT")
    bodyText:SetTextColor(0.75, 0.75, 0.75)
    categoryDetailPage.bodyText = bodyText
    categoryDetailPage.content = content

    categoryDetailPage:Hide()
end

function KeybindAuditUI:ShowCategoryDetail(index)
    if not lastResults then return end
    local builder = CATEGORY_BUILDERS[index]
    if not builder then return end

    categoryDetailPage.titleText:SetText(CATEGORY_NAMES[index])
    local body = builder(lastResults)
    categoryDetailPage.bodyText:SetText(body)
    categoryDetailPage.content:SetHeight(categoryDetailPage.bodyText:GetStringHeight() + 10)

    resultsPage:Hide()
    setupPage:Hide()
    methodologyPage:Hide()
    categoryDetailPage:Show()
    self:UpdateBackButton()
end

function KeybindAuditUI:ShowBarOverlays()
    LoadBarToggles()
    dimmer:Show()
    for _, barDef in ipairs(BAR_FRAME_MAP) do
        local overlay = barOverlays[barDef.key]
        if overlay then
            if ns.KeybindAudit.IsBarVisible(barDef.prefix) then
                PositionOverlay(overlay, barDef)
                overlay.barLabel = ns.KeybindAudit.ResolveBarLabel(barDef.prefix, barDef.label)
                UpdateBarOverlay(overlay, barToggles[barDef.key])
                overlay:Show()
            else
                overlay:Hide()
            end
        end
    end
end

function KeybindAuditUI:HideBarOverlays()
    if dimmer then dimmer:Hide() end
    for _, overlay in pairs(barOverlays) do
        if overlay then overlay:Hide() end
    end
end

function KeybindAuditUI:ShowSetup()
    LoadBarToggles()
    local db = GetDb()

    for _, barDef in ipairs(BAR_FRAME_MAP) do
        local cb = setupPage.barCheckboxes[barDef.key]
        if cb then
            local label = ns.KeybindAudit.ResolveBarLabel(barDef.prefix, barDef.label)
            local barEnabled = ns.KeybindAudit.IsBarVisible(barDef.prefix)
            if barEnabled then
                cb:EnableMouse(true)
                cb.label:SetText(label)
                cb.label:SetTextColor(0.9, 0.9, 0.9)
                cb:SetChecked(barToggles[barDef.key])
            else
                -- Not enabled in the default UI: can't audit a bar you can't see.
                barToggles[barDef.key] = false
                cb:SetChecked(false)
                cb:EnableMouse(false)
                cb.label:SetText(label .. " (not shown)")
                cb.label:SetTextColor(0.4, 0.4, 0.4)
            end
        end
    end
    SaveBarToggles()
    self:UpdateStartButtonState()
    setupPage.mmoMouseCb:SetChecked(db.mmoMouse)
    setupPage.fnBindsCb:SetChecked(db.hasUniqueBinds)
    setupPage.setKeysBtn:SetShown(db.hasUniqueBinds)
    setupPage.skipBarsCb:SetChecked(db.skipBarSelection)
    setupPage.groupingCb:SetChecked(db.includeGrouping)
    local currentLayout = db.keyboardLayout or "QWERTY"
    for _, btn in ipairs(setupPage.layoutButtons) do
        local selected = btn.layoutName == currentLayout
        btn.bg:SetColorTexture(selected and 0.2 or 0.1, selected and 0.5 or 0.1, selected and 0.2 or 0.1, selected and 0.5 or 0.3)
        btn.label:SetTextColor(selected and 0.3 or 0.6, selected and 1.0 or 0.6, selected and 0.3 or 0.6)
    end

    methodologyPage:Hide()
    categoryDetailPage:Hide()
    resultsPage:Hide()
    if uniqueBindsPanel then uniqueBindsPanel:Hide() end
    setupPage:Show()
    self:ShowBarOverlays()
    auditFrame:SetSize(580, 380)
    self:UpdateBackButton()
end

function KeybindAuditUI:ShowResults()
    self:HideBarOverlays()
    methodologyPage:Hide()
    categoryDetailPage:Hide()
    setupPage:Hide()
    auditFrame:SetSize(580, 530)
    resultsPage:Show()
    self:RefreshResults()
    self:UpdateBackButton()
end

function KeybindAuditUI:RefreshResults()
    local audit = ns.KeybindAudit
    if not audit then return end

    local db = GetDb()
    local results = audit:Scan({
        barFilter = db.bars,
        mmoMouse = db.mmoMouse,
        uniqueBinds = db.hasUniqueBinds and db.uniqueBinds or nil,
        includeGrouping = db.includeGrouping,
        keyboardLayout = db.keyboardLayout,
    })
    if not results then return end

    local gc = results.gradeColor
    gradeText:SetText(results.grade)
    gradeText:SetTextColor(gc[1], gc[2], gc[3])

    scoreText:SetText(sformat("%d / 100", results.scores.overall))
    summaryText:SetText(results.summary)

    SetScoreBar(categoryBars[1], results.scores.coverage)
    SetScoreBar(categoryBars[2], results.scores.reachability)
    SetScoreBar(categoryBars[3], results.scores.modifiers)
    SetScoreBar(categoryBars[4], results.scores.antiPatterns)

    -- Grouping bar (conditional)
    local groupingShift = 0
    if results.includeGrouping then
        if results.scoredGroups and results.scoredGroups > 0 then
            SetScoreBar(categoryBars[5], results.scores.grouping)
        else
            SetScoreBarNA(categoryBars[5])
        end
        categoryBars[5]:Show()
        groupingShift = 22
    else
        categoryBars[5]:Hide()
    end

    -- Shift divider and per-bar summaries when grouping bar is visible
    resultsPage.divider:ClearAllPoints()
    resultsPage.divider:SetPoint("TOPLEFT", 15, -244 - groupingShift)
    local barSumY = -252 - groupingShift
    for i = 1, 8 do
        barSummaryLabels[i]:ClearAllPoints()
        barSummaryLabels[i]:SetPoint("TOPLEFT", 20, barSumY - (i - 1) * 16)
    end

    local barIdx = 0
    for _, barDef in ipairs(results.barOrder) do
        local barData = results.bars[barDef.key]
        if barData and not barData.excluded and barData.filledCount > 0 then
            barIdx = barIdx + 1
            local lbl = barSummaryLabels[barIdx]
            if lbl then
                local ratio = barData.boundCount / barData.filledCount
                local r, g, b = GetBarColor(ratio * 100)
                lbl:SetText(sformat(
                    "%s:  |cFF%02x%02x%02x%d / %d bound|r",
                    barData.label,
                    r * 255, g * 255, b * 255,
                    barData.boundCount, barData.filledCount
                ))
                lbl:Show()
            end
        end
    end
    for i = barIdx + 1, 8 do
        barSummaryLabels[i]:Hide()
    end

    -- Skipped macros note
    local skippedLabel = resultsPage.skippedLabel
    if results.skippedMacros > 0 then
        skippedLabel:SetText(sformat("%d non-combat macro(s) skipped", results.skippedMacros))
        skippedLabel:Show()
    else
        skippedLabel:Hide()
    end

    lastResults = results

    -- Issues
    local issues = results.issues
    -- Below a perfect score something was found, just nothing big enough to list.
    resultsPage.noIssues:SetText((results.scores.overall or 0) >= 100 and "No issues found. Nice work."
        or "No major issues found. Nice work.")
    resultsPage.noIssues:SetShown(#issues == 0)

    -- Sections: each action bar with its own rows (unbound abilities, distant
    -- keys) under its name and a tally, then General for the rest.
    local entries, byBar, general = {}, {}, {}
    for _, issue in ipairs(issues) do
        if issue.barKey then
            byBar[issue.barKey] = byBar[issue.barKey] or {}
            tinsert(byBar[issue.barKey], issue)
        else
            tinsert(general, issue)
        end
    end
    for _, barDef in ipairs(results.barOrder or {}) do
        local list = byBar[barDef.key]
        if list then
            local unbound, distant, stretch = 0, 0, 0
            for _, issue in ipairs(list) do
                if issue.kind == "unbound" then unbound = unbound + 1 end
                if issue.kind == "distant" then distant = distant + 1 end
                if issue.kind == "stretch" then stretch = stretch + 1 end
            end
            local tally = {}
            if unbound > 0 then tally[#tally + 1] = sformat("%d unbound", unbound) end
            if distant > 0 then tally[#tally + 1] = sformat("%d on distant keys", distant) end
            if stretch > 0 then tally[#tally + 1] = sformat("%d stretch combos", stretch) end
            local bar = results.bars and results.bars[barDef.key]
            tinsert(entries, { header = (bar and bar.label or barDef.label), tally = table.concat(tally, ", ") })
            for _, issue in ipairs(list) do tinsert(entries, issue) end
        end
    end
    if #general > 0 then
        tinsert(entries, { header = "General", tally = "" })
        for _, issue in ipairs(general) do tinsert(entries, issue) end
    end

    -- Hide scroll bar when nothing to scroll
    local scrollBar = issueContainer.ScrollBar or _G["BoundToLearnAuditScrollScrollBar"]
    local hasScroll = #entries > 10
    if scrollBar then
        scrollBar:SetShown(hasScroll)
    end

    -- Width the recommendation rows to fill the column, reserving scrollbar room only
    -- when it shows, so text wraps against the card edge instead of a narrow fixed box.
    -- 305 = right column left inset (290) + right margin (15).
    local rowW = (auditFrame:GetWidth() - 305) - (hasScroll and 20 or 2)
    issueScrollChild:SetWidth(rowW)

    -- Each row is as tall as its wrapped text and detail, never under the
    -- standard height; rows stack by their real heights.
    local rowY, visibleH = 0, 0
    for i = 1, #issueRows do
        local row = issueRows[i]
        local issue = entries[i]
        if issue and issue.header then
            row.strip:Hide()
            row.icon:Hide()
            row:SetWidth(rowW)
            row.text:SetFontObject("GameFontNormal")
            row.text:SetTextColor(1, 0.82, 0)   -- the client's heading gold
            row.text:SetPoint("TOPLEFT", 2, -6)
            row.text:SetWidth(rowW - 4)
            row.text:SetText(issue.header)
            row.detail:SetWidth(rowW - 4)
            row.detail:SetText(issue.tally)
            local h = mfloor(6 + row.text:GetStringHeight() + 3 + row.detail:GetStringHeight() + 4 + 0.5)
            row:SetHeight(h)
            row:SetPoint("TOPLEFT", 0, -rowY)
            rowY = rowY + h
            if i <= 10 then visibleH = visibleH + h end
            row:Show()
        elseif issue then
            local sc = SEVERITY_COLORS[issue.severity] or SEVERITY_COLORS.low
            row.strip:SetColorTexture(sc[1], sc[2], sc[3], 1)
            row.strip:Show()
            row:SetWidth(rowW)
            row.text:SetFont("Fonts\\FRIZQT__.TTF", 10, "")
            row.text:SetTextColor(0.9, 0.9, 0.9)

            if issue.icon then
                row.icon:SetTexture(issue.icon)
                row.icon:Show()
                row.text:SetPoint("TOPLEFT", 34, -3)
                row.text:SetWidth(rowW - 40)
                row.detail:SetWidth(rowW - 40)
            else
                row.icon:Hide()
                row.text:SetPoint("TOPLEFT", 12, -3)
                row.text:SetWidth(rowW - 18)
                row.detail:SetWidth(rowW - 18)
            end

            row.text:SetText(issue.text)
            row.detail:SetText(issue.detail or "")
            local h = mmax(ISSUE_ROW_HEIGHT,
                mfloor(3 + row.text:GetStringHeight() + 3 + row.detail:GetStringHeight() + 7 + 0.5))
            row:SetHeight(h)
            row.strip:SetHeight(h - 4)
            row:SetPoint("TOPLEFT", 0, -rowY)
            rowY = rowY + h
            if i <= 10 then visibleH = visibleH + h end
            row:Show()
        else
            row:Hide()
        end
    end

    issueScrollChild:SetHeight(mmax(1, rowY))

    -- Fit the card height to whichever column runs longer, so short results don't
    -- leave a baggy empty band. Bottom-anchored elements (buttons, skipped note,
    -- issue list) ride the frame's bottom edge and stay put as the frame shrinks.
    local leftBottom = 264 + groupingShift + mmax(0, barIdx - 1) * 16 + 14
    local rightBottom = #issues == 0 and 162 or (76 + visibleH + 6)
    auditFrame:SetHeight(mmax(360, mmin(480, mmax(leftBottom, rightBottom) + 54)))
end

function KeybindAuditUI:Toggle()
    if not auditFrame then
        self:CreateFrame()
    end
    if auditFrame:IsShown() then
        auditFrame:Hide()
    else
        local db = GetDb()
        if db.skipBarSelection then
            self:ShowResults()
        else
            self:ShowSetup()
        end
        auditFrame:Show()
    end
end

function KeybindAuditUI:Show()
    if not auditFrame then
        self:CreateFrame()
    end
    local db = GetDb()
    if db.skipBarSelection then
        self:ShowResults()
    else
        self:ShowSetup()
    end
    auditFrame:Show()
end

function KeybindAuditUI:Hide()
    if auditFrame then auditFrame:Hide() end
end