Options.lua

local L = _G.QuestTogether.Translate
--[[
QuestTogether Options Panel (Esc > Options > AddOns)
]]

local QuestTogether = _G.QuestTogether

QuestTogether.announcementControls = QuestTogether.announcementControls or {}
QuestTogether.whereToAnnounceControls = QuestTogether.whereToAnnounceControls or {}
QuestTogether.questPlateControls = QuestTogether.questPlateControls or {}
QuestTogether.groupsControls = QuestTogether.groupsControls or {}
QuestTogether.homeControls = QuestTogether.homeControls or {}
QuestTogether.profileControls = QuestTogether.profileControls or {}
QuestTogether.profileUIState = QuestTogether.profileUIState or {}

local function SafeText(value, fallback)
	return QuestTogether:SafeToString(value, fallback or "")
end

local function IsFrameMutable(frame)
	if QuestTogether and QuestTogether.CanAccessForeignFrame then
		return QuestTogether:CanAccessForeignFrame(frame)
	end

	if not frame then
		return false
	end

	if frame.IsForbidden and frame:IsForbidden() then
		return false
	end

	return true
end

local QUEST_PLATE_PREVIEW_SCALE = 1.35
local QUEST_PLATE_PREVIEW_FRAME_HEIGHT = 195
local QUEST_PLATE_PREVIEW_BAR_VISUAL_SCALE = 1.25
local QUEST_PLATE_PREVIEW_RANDOM_NAMES = {
	"Koda Bug",
	"Rue Angel",
	"Pi Floof",
	"Sammy Bear",
	"Cinder Kitten",
	"Lilly Pig",
	"Booker Bean",
	"Piper Hippo",
	"Wifebeast",
	"Husblebee",
}
local NAMEPLATE_STYLE_MODERN = Enum and Enum.NamePlateStyle and Enum.NamePlateStyle.Modern or 1
local NAMEPLATE_STYLE_BLOCK = Enum and Enum.NamePlateStyle and Enum.NamePlateStyle.Block or 3
local NAMEPLATE_STYLE_HEALTH_FOCUS = Enum and Enum.NamePlateStyle and Enum.NamePlateStyle.HealthFocus or 4
local NAMEPLATE_STYLE_LEGACY = Enum and Enum.NamePlateStyle and Enum.NamePlateStyle.Legacy or 6
local NAMEPLATE_SIZE_MEDIUM = Enum and Enum.NamePlateSize and Enum.NamePlateSize.Medium or 2
local NAMEPLATE_INFO_PERCENT = Enum and Enum.NamePlateInfoDisplay and Enum.NamePlateInfoDisplay.CurrentHealthPercent or 1
local NAMEPLATE_INFO_VALUE = Enum and Enum.NamePlateInfoDisplay and Enum.NamePlateInfoDisplay.CurrentHealthValue or 2

local NAMEPLATE_PREVIEW_SCALES = {
	[1] = { horizontal = 0.75, vertical = 0.8 },
	[2] = { horizontal = 1.0, vertical = 1.0 },
	[3] = { horizontal = 1.25, vertical = 1.25 },
	[4] = { horizontal = 1.4, vertical = 1.4 },
	[5] = { horizontal = 1.6, vertical = 1.6 },
}

local function HasBit(mask, bitValue)
	if type(mask) ~= "number" or type(bitValue) ~= "number" or bitValue <= 0 then
		return false
	end

	if bit and bit.band then
		return bit.band(mask, bitValue) ~= 0
	end
	if bit32 and bit32.band then
		return bit32.band(mask, bitValue) ~= 0
	end

	local remainder = mask % (bitValue * 2)
	return remainder >= bitValue
end

local function GetNumericCVarValue(cvarName, fallbackValue)
	if not (QuestTogether and QuestTogether.API and type(QuestTogether.API.GetCVar) == "function") then
		return fallbackValue
	end

	local rawValue = QuestTogether.API.GetCVar(cvarName)
	local numericValue = QuestTogether:SafeToNumber(rawValue)
	if numericValue == nil then
		return fallbackValue
	end

	return numericValue
end

local function AnchorPreviewFillTexture(texture, healthBar)
	if not (texture and healthBar and texture.ClearAllPoints and texture.SetPoint) then
		return
	end

	local fillTexture = healthBar.GetStatusBarTexture and healthBar:GetStatusBarTexture() or nil
	if not fillTexture then
		return
	end

	texture:ClearAllPoints()
	texture:SetPoint("TOPLEFT", fillTexture, "TOPLEFT", 0, 0)
	texture:SetPoint("BOTTOMLEFT", fillTexture, "BOTTOMLEFT", 0, 0)
	texture:SetPoint("TOPRIGHT", fillTexture, "TOPRIGHT", 0, 0)
	texture:SetPoint("BOTTOMRIGHT", fillTexture, "BOTTOMRIGHT", 0, 0)
end

local function GetRandomQuestPlatePreviewName()
	local totalNames = #QUEST_PLATE_PREVIEW_RANDOM_NAMES
	if totalNames <= 0 then
		return L("Quest Mob")
	end

	if not (math and type(math.random) == "function") then
		return QUEST_PLATE_PREVIEW_RANDOM_NAMES[1]
	end

	local randomIndex = math.random(totalNames)
	if type(randomIndex) ~= "number" or randomIndex < 1 or randomIndex > totalNames then
		randomIndex = 1
	end

	return QUEST_PLATE_PREVIEW_RANDOM_NAMES[randomIndex]
end

local function ApplyAnnouncementGroupIcon(texture, iconType)
	if not texture then
		return
	end

	if iconType == "world" and texture.SetAtlas then
		texture:SetAtlas("worldquest-icon", true)
		texture:SetTexCoord(0, 1, 0, 1)
		return
	end

	if iconType == "bonus" and texture.SetAtlas then
		texture:SetAtlas("Bonus-Objective-Star", true)
		texture:SetTexCoord(0, 1, 0, 1)
		return
	end

	if iconType == "quest" then
		texture:SetTexture("Interface\\GossipFrame\\AvailableQuestIcon")
		texture:SetTexCoord(0, 1, 0, 1)
		return
	end

	if QuestTogether.NAMEPLATE_QUEST_ICON_ATLAS and texture.SetAtlas then
		texture:SetAtlas(QuestTogether.NAMEPLATE_QUEST_ICON_ATLAS, true)
		texture:SetTexCoord(0, 1, 0, 1)
		return
	end

	texture:SetTexture(QuestTogether.NAMEPLATE_QUEST_ICON_TEXTURE)
	if QuestTogether.NAMEPLATE_QUEST_ICON_TEX_COORDS then
		local coords = QuestTogether.NAMEPLATE_QUEST_ICON_TEX_COORDS
		texture:SetTexCoord(coords.left, coords.right, coords.top, coords.bottom)
	else
		texture:SetTexCoord(0, 1, 0, 1)
	end
end

local function CreateAnnouncementGroupHeader(parent, text, iconType, x, y, width)
	local icon = parent:CreateTexture(nil, "ARTWORK")
	icon:SetPoint("TOPLEFT", parent, "TOPLEFT", x, y)
	icon:SetSize(16, 16)
	ApplyAnnouncementGroupIcon(icon, iconType)

	local label = parent:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	label:SetPoint("LEFT", icon, "RIGHT", 8, 0)
	label:SetText(text)

	local divider = parent:CreateTexture(nil, "BORDER")
	divider:SetPoint("TOPLEFT", icon, "BOTTOMLEFT", 0, -8)
	divider:SetSize(width or 620, 1)
	divider:SetColorTexture(1, 1, 1, 0.12)

	return label
end

function QuestTogether:GetSettingsTooltipParent()
	return UIParent
end

function QuestTogether:CreateSettingsTooltipFrame(parent)
	return CreateFrame("Frame", nil, parent, "BackdropTemplate")
end

function QuestTogether:HideSettingsTooltip(owner)
	if owner and rawget(self, "settingsTooltipOwner") ~= owner then return end
	self.settingsTooltipPendingHide = true
	local tooltip = rawget(self, "settingsTooltip")
	if self.LibChev.CanMutateOwnedRegion(tooltip) then
		tooltip:Hide()
		tooltip:SetScript("OnUpdate", nil)
		self.settingsTooltipOwner, self.settingsTooltipPendingHide = nil, nil
	end
end

function QuestTogether:ShowSettingsTooltip(owner, title, text)
	if self:IsRuntimeRestricted() or not self.LibChev.CanMutateOwnedRegion(owner) or not owner:IsVisible() then
		self:HideSettingsTooltip()
		return false
	end
	local tooltip = rawget(self, "settingsTooltip")
	if not tooltip then
		local parent = self:GetSettingsTooltipParent()
		if not self:CanAccessForeignFrame(parent) then return false end
		tooltip = self:CreateSettingsTooltipFrame(parent)
		if not self.LibChev.CanMutateOwnedRegion(tooltip) then return false end
		self.settingsTooltip = tooltip
		tooltip:Hide()
		tooltip:SetFrameStrata("TOOLTIP")
		tooltip:SetFrameLevel(100)
		tooltip:SetClampedToScreen(true)
		tooltip:SetBackdrop({ bgFile = "Interface\\Buttons\\WHITE8X8", edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 12 })
		tooltip:SetBackdropColor(0.04, 0.05, 0.07, 0.97)
		tooltip.title = tooltip:CreateFontString(nil, "OVERLAY", "GameFontNormal")
		tooltip.title:SetPoint("TOPLEFT", 12, -12)
		tooltip.title:SetWidth(296)
		tooltip.title:SetJustifyH("LEFT")
		tooltip.title:SetWordWrap(true)
		tooltip.text = tooltip:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
		tooltip.text:SetPoint("TOPLEFT", tooltip.title, "BOTTOMLEFT", 0, -8)
		tooltip.text:SetWidth(296)
		tooltip.text:SetJustifyH("LEFT")
		tooltip.text:SetWordWrap(true)
	end
	if not self.LibChev.CanMutateOwnedRegion(tooltip)
		or not self.LibChev.CanMutateOwnedRegion(tooltip.title)
		or not self.LibChev.CanMutateOwnedRegion(tooltip.text) then return false end
	tooltip.title:SetText(title)
	tooltip.text:SetText(text)
	tooltip:SetSize(320, tooltip.title:GetStringHeight() + tooltip.text:GetStringHeight() + 32)
	tooltip:ClearAllPoints()
	tooltip:SetPoint("TOPLEFT", owner, "TOPRIGHT", 8, 0)
	self.settingsTooltipOwner, self.settingsTooltipPendingHide = owner, nil
	local elapsedSinceCheck = 0
	tooltip:SetScript("OnUpdate", function(_, elapsed)
		elapsedSinceCheck = elapsedSinceCheck + elapsed
		if elapsedSinceCheck < 0.1 then return end
		elapsedSinceCheck = 0
		local current = rawget(self, "settingsTooltipOwner")
		if self.settingsTooltipPendingHide or self:IsRuntimeRestricted()
			or not self.LibChev.CanMutateOwnedRegion(current) or not current:IsVisible() then
			self:HideSettingsTooltip()
		end
	end)
	tooltip:Show()
	return true
end

-- Only attach to controls created by this addon. No shared GameTooltip state.
function QuestTogether:AttachSettingsTooltip(control, title, text)
	assert(type(text) == "string" and text ~= "", "settings controls require explanatory tooltip text")
	control:EnableMouse(true)
	if control.SetMotionScriptsWhileDisabled then control:SetMotionScriptsWhileDisabled(true) end
	control:HookScript("OnEnter", function() self:ShowSettingsTooltip(control, title, text) end)
	control:HookScript("OnLeave", function() self:HideSettingsTooltip(control) end)
	control:HookScript("OnHide", function() self:HideSettingsTooltip(control) end)
end

local function CreateCheckbox(parent, optionKey, labelText, tooltipText, x, y)
	local checkbox = CreateFrame("CheckButton", nil, parent, "UICheckButtonTemplate")
	checkbox:SetPoint("TOPLEFT", parent, "TOPLEFT", x, y)

	local label = parent:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	label:SetPoint("LEFT", checkbox, "RIGHT", 6, 0)
	label:SetWidth(math.max(360, 600 - x))
	label:SetJustifyH("LEFT")
	label:SetWordWrap(true)
	label:SetMaxLines(2)
	label:SetText(labelText)
	checkbox.Label = label

	checkbox:SetHitRectInsets(0, -(math.max(360, 600 - x) + 6), 0, 0)
	QuestTogether:AttachSettingsTooltip(checkbox, labelText, tooltipText)

	checkbox:SetScript("OnClick", function(self)
		QuestTogether:SetOption(optionKey, self:GetChecked() == true)
		QuestTogether:RefreshOptionsWindow()
	end)

	return checkbox
end

local function ClampColorComponent(value, fallback)
	local numberValue = QuestTogether:SafeToNumber(value)
	if not numberValue then
		return fallback
	end
	if numberValue < 0 then
		return 0
	end
	if numberValue > 1 then
		return 1
	end
	return numberValue
end

local function ColorsNearlyEqual(left, right)
	return math.abs((left or 0) - (right or 0)) < 0.001
end

local function GetColorOption(optionKey, fallbackColor)
	local configuredColor = QuestTogether:GetOption(optionKey)
	if type(configuredColor) ~= "table" then
		return {
			r = fallbackColor.r,
			g = fallbackColor.g,
			b = fallbackColor.b,
		}
	end

	return {
		r = ClampColorComponent(configuredColor.r, fallbackColor.r),
		g = ClampColorComponent(configuredColor.g, fallbackColor.g),
		b = ClampColorComponent(configuredColor.b, fallbackColor.b),
	}
end

local function IsColorOptionAtDefault(optionKey, fallbackColor)
	local current = GetColorOption(optionKey, fallbackColor)
	return ColorsNearlyEqual(current.r, fallbackColor.r)
		and ColorsNearlyEqual(current.g, fallbackColor.g)
		and ColorsNearlyEqual(current.b, fallbackColor.b)
end

function QuestTogether:CreateProfileOptionEditCallback(optionKey)
	local profile = self.db and self.db.profile
	local editToken = {}
	self.profileOptionEditToken = editToken
	return function(value)
		-- A picker can outlive a profile switch, copy/reset, or another picker.
		-- Table identity also catches replacement of a profile with the same name.
		if type(profile) ~= "table" or not self.db or self.db.profile ~= profile
			or self.profileOptionEditToken ~= editToken then
			return false
		end
		return self:SetOption(optionKey, value)
	end
end

local function CreateColorSwatch(parent, optionKey, labelText, tooltipText, fallbackColor, x, y)
	local swatchButton = CreateFrame("Button", nil, parent)
	swatchButton:SetSize(22, 22)
	swatchButton:SetPoint("TOPLEFT", parent, "TOPLEFT", x, y)

	local border = swatchButton:CreateTexture(nil, "BORDER")
	border:SetAllPoints()
	border:SetColorTexture(0, 0, 0, 1)
	swatchButton.Border = border

	local colorTexture = swatchButton:CreateTexture(nil, "ARTWORK")
	colorTexture:SetPoint("TOPLEFT", swatchButton, "TOPLEFT", 1, -1)
	colorTexture:SetPoint("BOTTOMRIGHT", swatchButton, "BOTTOMRIGHT", -1, 1)
	swatchButton.ColorTexture = colorTexture

	local label = parent:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	label:SetPoint("LEFT", swatchButton, "RIGHT", 8, 0)
	label:SetText(labelText)

	swatchButton:SetHitRectInsets(0, -120, 0, 0)
	QuestTogether:AttachSettingsTooltip(swatchButton, labelText, tooltipText)

	swatchButton:SetScript("OnClick", function()
		if not (ColorPickerFrame and ColorPickerFrame.SetupColorPickerAndShow) then
			QuestTogether:Print(L("Color picker is unavailable right now."))
			return
		end
		local applyOption = QuestTogether:CreateProfileOptionEditCallback(optionKey)
		local function SetColorOption(r, g, b)
			if applyOption({
				r = ClampColorComponent(r, fallbackColor.r),
				g = ClampColorComponent(g, fallbackColor.g),
				b = ClampColorComponent(b, fallbackColor.b),
			}) then
				QuestTogether:RefreshOptionsWindow()
			end
		end

		local currentColor = GetColorOption(optionKey, fallbackColor)
		local previousColor = {
			r = currentColor.r,
			g = currentColor.g,
			b = currentColor.b,
		}

		local info = {}
		info.r = currentColor.r
		info.g = currentColor.g
		info.b = currentColor.b
		info.hasOpacity = false
		info.swatchFunc = function()
			local r, g, b = ColorPickerFrame:GetColorRGB()
			SetColorOption(r, g, b)
		end
		info.cancelFunc = function()
			SetColorOption(previousColor.r, previousColor.g, previousColor.b)
		end
		ColorPickerFrame:SetupColorPickerAndShow(info)
	end)

	local startingColor = GetColorOption(optionKey, fallbackColor)
	swatchButton.ColorTexture:SetColorTexture(startingColor.r, startingColor.g, startingColor.b, 1)

	return swatchButton
end

local function CreateDropdown(parent, titleText, tooltipText, x, y, width, initializeMenu)
	local title = parent:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	title:SetPoint("TOPLEFT", parent, "TOPLEFT", x, y)
	title:SetText(titleText)

	local dropdown = CreateFrame("Frame", nil, parent, "UIDropDownMenuTemplate")
	dropdown:SetPoint("TOPLEFT", title, "BOTTOMLEFT", -16, -2)
	dropdown.initializeMenu = initializeMenu
	dropdown.title = title

	QuestTogether:AttachSettingsTooltip(dropdown, titleText, tooltipText)
	if dropdown.Button then QuestTogether:AttachSettingsTooltip(dropdown.Button, titleText, tooltipText) end

	UIDropDownMenu_SetWidth(dropdown, width or 180)
	UIDropDownMenu_Initialize(dropdown, initializeMenu)
	return dropdown
end

local function CreateScrollablePanelContent(parent, minimumHeight)
	local scrollFrame = CreateFrame("ScrollFrame", nil, parent, "UIPanelScrollFrameTemplate")
	scrollFrame:SetPoint("TOPLEFT", parent, "TOPLEFT", 0, 0)
	scrollFrame:SetPoint("BOTTOMRIGHT", parent, "BOTTOMRIGHT", -28, 0)

	local content = CreateFrame("Frame", nil, scrollFrame)
	content:SetSize(672, minimumHeight or 600)
	scrollFrame:SetScrollChild(content)
	scrollFrame:SetScript("OnSizeChanged", function(_, width)
		content:SetWidth(math.max(672, width - 8))
	end)

	return scrollFrame, content
end

function QuestTogether:ApplyOptionsDropdownSelection(optionKey, value)
	-- This choice opens/closes native chat windows. A stale Settings dropdown
	-- must recheck restrictions just like the minimap and chat context menus.
	if optionKey == "chatLogDestination" and self:IsRuntimeRestricted() then return false end
	if not self:SetOption(optionKey, value) then return false end
	self:RefreshOptionsWindow()
	return true
end

local function CreateOptionDropdown(parent, titleText, tooltipText, x, y, width, values, getLabel, optionKey, currentValueGetter)
	return CreateDropdown(
		parent,
		titleText,
		tooltipText,
		x,
		y,
		width,
		function(_, level)
			for _, value in ipairs(values) do
					local info = UIDropDownMenu_CreateInfo()
					info.text = getLabel(value)
					info.func = function()
						if QuestTogether:ApplyOptionsDropdownSelection(optionKey, value) then
							CloseDropDownMenus()
						end
				end
				info.checked = currentValueGetter() == value
				UIDropDownMenu_AddButton(info, level)
			end
		end
	)
end

local function CreateShowProgressForDropdown(parent, x, y)
	return CreateOptionDropdown(
		parent,
		L("Show Announcements For"),
		L("Party Only shows announcements from your group. Party and Nearby also includes players within your Nearby Range or visible nearby. Looking-for-partners announcements reach the whole zone."),
		x,
		y,
		200,
		QuestTogether.showProgressForOrder,
		function(value)
			return QuestTogether:GetShowProgressForLabel(value)
		end,
		"showProgressFor",
		function()
			return QuestTogether:GetOption("showProgressFor")
		end
	)
end

local function CreateQTChatScopeDropdown(parent, x, y)
	return CreateOptionDropdown(parent, L("QT Chat Scope"),
		L("Global shows all received QT chat. Zone Only shows players whose recent shared location is in your zone; unknown or stale locations are hidden."),
		x, y, 200, { "zone_only", "global" },
		function(value) return value == "zone_only" and L("Zone Only") or L("Global") end,
		"qtChatScope", function() return QuestTogether:GetOption("qtChatScope") end)
end

local function CreateChatLogDestinationDropdown(parent, x, y)
	return CreateOptionDropdown(
		parent,
		L("Chat Log Destination"),
		L("Choose whether QuestTogether chat logs print to your main chat frame or a dedicated QuestTogether chat frame."),
		x,
		y,
		190,
		QuestTogether.chatLogDestinationOrder,
		function(value)
			return QuestTogether:GetChatLogDestinationLabel(value)
		end,
		"chatLogDestination",
		function()
			return QuestTogether:GetOption("chatLogDestination")
		end
	)
end

local function CreateNameplateIconStyleDropdown(parent, x, y, playerPlates)
	return CreateOptionDropdown(
		parent,
		playerPlates and L("Player Icon Style") or L("Quest Icon Style"),
		L("Choose where to place the icon on the nameplate."),
		x,
		y,
		140,
		QuestTogether.nameplateQuestIconStyleOrder,
		function(styleKey)
			return QuestTogether:GetNameplateQuestIconStyleLabel(styleKey)
		end,
		playerPlates and "nameplatePlayerIconStyle" or "nameplateQuestIconStyle",
		function()
			return playerPlates and QuestTogether:GetNameplatePlayerIconStyle()
				or QuestTogether:GetNameplateQuestIconStyle()
		end
	)
end

local CHECKBOX_OPTION_KEYS = {
	"announceQuestPartners",
	"stopLookingForPartnersOnJoin",
	"announceAccepted",
	"announceCompleted",
	"announceReadyToTurnIn",
	"announceRemoved",
	"announceProgress",
	"announceWorldQuestAreaEnter",
	"announceWorldQuestAreaLeave",
	"announceWorldQuestProgress",
	"announceWorldQuestCompleted",
	"announceBonusObjectiveAreaEnter",
	"announceBonusObjectiveAreaLeave",
	"announceBonusObjectiveProgress",
	"announceBonusObjectiveCompleted",
	"showChatBubbles",
	"hideMyOwnChatBubbles",
	"showChatLogs",
	"showQTChat",
	"announceToNonQTParty",
	"mirrorChatLogsToMainChat",
	"nameplateQuestIconEnabled",
	"nameplatePlayerIconEnabled",
	"nameplateQuestHealthColorEnabled",
	"emoteOnQuestCompletion",
	"emoteOnNearbyPlayerQuestCompletion",
	"emoteOnLevelUp",
	"emoteOnNearbyPlayerLevelUp",
	"autoAcceptPartyShareRequests",
	"autoInviteFriends",
	"autoInviteWhileLFG",
	"lookingForQuestPartners",
	"showMinimapButton",
	"sharePlayerLocation",
	"showPlayerLocations",
	"onlyShowQuestPartners",
}

local function RefreshCheckboxOptions(controls, addon)
	if type(controls) ~= "table" then
		return
	end
	addon = addon or QuestTogether

	for _, optionKey in ipairs(CHECKBOX_OPTION_KEYS) do
		local control = controls[optionKey]
		if control then
			control:SetChecked(addon:GetOption(optionKey))
		end
	end
end

local function RefreshDropdownControl(dropdown, labelText)
	UIDropDownMenu_Initialize(dropdown, dropdown.initializeMenu)
	UIDropDownMenu_SetText(dropdown, labelText)
end

local function SetLabeledControlShown(control, shown)
	if not control then
		return
	end

	if control.SetShown then
		control:SetShown(shown)
	end
	if control.Label and control.Label.SetShown then
		control.Label:SetShown(shown)
	end
	if control.title and control.title.SetShown then
		control.title:SetShown(shown)
	end
end

local function RefreshQuestPlatesPreview(controls)
	if type(controls) ~= "table" then
		return
	end

	local previewFrame = controls.previewFrame
	local previewUnitFrame = controls.previewUnitFrame
	if not IsFrameMutable(previewUnitFrame) or not previewUnitFrame.healthBar then
		return
	end

	if previewUnitFrame.SetScale then
		previewUnitFrame:SetScale(QUEST_PLATE_PREVIEW_SCALE)
	end

	local nameplateStyle = GetNumericCVarValue("nameplateStyle", NAMEPLATE_STYLE_MODERN)
	local nameplateSize = GetNumericCVarValue("nameplateSize", NAMEPLATE_SIZE_MEDIUM)
	local infoDisplayMask = GetNumericCVarValue("nameplateInfoDisplay", 0)
	local scaleData = NAMEPLATE_PREVIEW_SCALES[nameplateSize] or NAMEPLATE_PREVIEW_SCALES[NAMEPLATE_SIZE_MEDIUM]
	local horizontalScale = scaleData.horizontal or 1
	local verticalScale = scaleData.vertical or 1
	local largeHealthBar = nameplateStyle == NAMEPLATE_STYLE_MODERN
		or nameplateStyle == NAMEPLATE_STYLE_BLOCK
		or nameplateStyle == NAMEPLATE_STYLE_HEALTH_FOCUS
	local nameInsideHealthBar = nameplateStyle == NAMEPLATE_STYLE_MODERN or nameplateStyle == NAMEPLATE_STYLE_BLOCK
	local barWidth = math.max(120, math.floor((230 * horizontalScale * QUEST_PLATE_PREVIEW_BAR_VISUAL_SCALE) + 0.5))
	local barHeight = math.max(
		8,
		math.floor(((largeHealthBar and 20 or 10) * verticalScale * QUEST_PLATE_PREVIEW_BAR_VISUAL_SCALE) + 0.5)
	)
	local nameFontSize = math.max(10, math.floor((12 * verticalScale) + 0.5))

	local healthContainer = previewUnitFrame.HealthBarsContainer
	if healthContainer and healthContainer.SetSize then
		healthContainer:SetSize(barWidth, barHeight)
		healthContainer:ClearAllPoints()
		healthContainer:SetPoint("CENTER", previewUnitFrame, "CENTER", 0, nameInsideHealthBar and 0 or -6)
	end

	if previewUnitFrame.SetSize then
		local frameWidth = barWidth + 140
		local frameHeight = math.max(72, barHeight + (nameInsideHealthBar and 34 or 50))
		previewUnitFrame:SetSize(frameWidth, frameHeight)
	end
	if previewFrame and previewUnitFrame.ClearAllPoints and previewUnitFrame.SetPoint then
		previewUnitFrame:ClearAllPoints()
		previewUnitFrame:SetPoint("CENTER", previewFrame, "CENTER", 0, 0)
	end

	local nameLabel = previewUnitFrame.name
	local healthText = previewUnitFrame.questPreviewHealthText
	if nameLabel then
		local fontPath, _, fontFlags = nameLabel:GetFont()
		if fontPath and nameLabel.SetFont then
			nameLabel:SetFont(fontPath, nameFontSize, fontFlags)
		end
		nameLabel:ClearAllPoints()
		if nameLabel.SetDrawLayer then
			nameLabel:SetDrawLayer("OVERLAY", 7)
		end
		if nameLabel.SetJustifyH then
			nameLabel:SetJustifyH("LEFT")
		end
		if nameLabel.SetWidth then
			nameLabel:SetWidth(math.max(40, barWidth - 72))
		end
		if nameInsideHealthBar and healthContainer then
			nameLabel:SetPoint("LEFT", healthContainer, "LEFT", 6, 0)
		elseif healthContainer then
			nameLabel:SetPoint("BOTTOMLEFT", healthContainer, "TOPLEFT", 6, 2)
		else
			nameLabel:SetPoint("TOP", previewUnitFrame, "TOP", 0, 0)
		end
		if nameplateStyle == NAMEPLATE_STYLE_LEGACY and nameLabel.SetTextColor then
			if controls.playerPlates then
				nameLabel:SetTextColor(0.22, 0.80, 0.22, 1)
			else
				nameLabel:SetTextColor(1, 0, 0, 1)
			end
		elseif nameLabel.SetTextColor then
			nameLabel:SetTextColor(1, 1, 1, 1)
		end
	end

	local healthBar = previewUnitFrame.healthBar
	local baseFill = previewUnitFrame.questPreviewBaseFillTexture
	local tintOverlay = previewUnitFrame.questPreviewTintTexture
	local tintHighlight = previewUnitFrame.questPreviewTintHighlight
	if healthBar and healthBar.SetMinMaxValues and healthBar.SetValue then
		healthBar:SetMinMaxValues(0, 100)
		healthBar:SetValue(100)
	end
	if baseFill then
		AnchorPreviewFillTexture(baseFill, healthBar)
		baseFill:Show()
	end
	if tintOverlay then
		AnchorPreviewFillTexture(tintOverlay, healthBar)
	end
	if tintHighlight then
		AnchorPreviewFillTexture(tintHighlight, healthBar)
	end

	local tintEnabled = not controls.playerPlates
		and QuestTogether:GetOption("nameplateQuestHealthColorEnabled") == true
	local enemyBarColor = { r = 0.82, g = 0.14, b = 0.14 }
	local previewBarColor = controls.playerPlates and { r = 0.22, g = 0.80, b = 0.22 } or enemyBarColor
	if tintEnabled then
		previewBarColor = GetColorOption("nameplateQuestHealthColor", QuestTogether.NAMEPLATE_QUEST_HEALTH_COLOR)
	end
	if baseFill and baseFill.SetVertexColor then
		baseFill:SetVertexColor(previewBarColor.r, previewBarColor.g, previewBarColor.b, 1)
	end

	-- For preview accuracy keep the fill opaque and avoid additive tints.
	if tintOverlay and tintOverlay.Hide then
		tintOverlay:Hide()
	end
	if tintHighlight and tintHighlight.Hide then
		tintHighlight:Hide()
	end

	if healthText then
		if healthText.SetDrawLayer then
			healthText:SetDrawLayer("OVERLAY", 7)
		end
		if healthText.SetJustifyH then
			healthText:SetJustifyH("RIGHT")
		end
		healthText:ClearAllPoints()
		if nameInsideHealthBar and healthContainer then
			healthText:SetPoint("RIGHT", healthContainer, "RIGHT", -6, 0)
		elseif healthContainer then
			healthText:SetPoint("BOTTOMRIGHT", healthContainer, "TOPRIGHT", -6, 2)
		end

		local showPercent = HasBit(infoDisplayMask, NAMEPLATE_INFO_PERCENT)
		local showValue = HasBit(infoDisplayMask, NAMEPLATE_INFO_VALUE)
		if showPercent or showValue then
			if showPercent and showValue then
				healthText:SetText("241 K  100%")
			elseif showValue then
				healthText:SetText("241 K")
			else
				healthText:SetText("100%")
			end
			healthText:Show()
		else
			healthText:Hide()
		end
	end

	local previewIconFrame = controls.previewIconFrame
	local previewIcon = controls.previewIconTexture
	if not previewIconFrame or controls.previewIconOwner ~= previewUnitFrame then
		local iconParent = previewFrame or previewUnitFrame
		previewIconFrame = CreateFrame("Frame", nil, iconParent)
		previewIconFrame:SetFrameStrata("HIGH")
		local parentFrameLevel = 0
		if healthContainer and healthContainer.GetFrameLevel and QuestTogether.SafeToNumber then
			parentFrameLevel = QuestTogether:SafeToNumber(healthContainer:GetFrameLevel()) or 0
		elseif iconParent and iconParent.GetFrameLevel and QuestTogether.SafeToNumber then
			parentFrameLevel = QuestTogether:SafeToNumber(iconParent:GetFrameLevel()) or 0
		end
		previewIconFrame:SetFrameLevel(parentFrameLevel + 30)

		previewIcon = previewIconFrame:CreateTexture(nil, "OVERLAY")
		previewIcon:SetAllPoints()
		previewIconFrame.Icon = previewIcon

		controls.previewIconFrame = previewIconFrame
		controls.previewIconTexture = previewIcon
		controls.previewIconOwner = previewUnitFrame
	end

	local showIcon = QuestTogether:GetOption(
		controls.playerPlates and "nameplatePlayerIconEnabled" or "nameplateQuestIconEnabled"
	) == true
	if showIcon then
		if controls.playerPlates then
			QuestTogether:SetNameplateIconKind(previewIconFrame, "player")
		else
			ApplyAnnouncementGroupIcon(previewIcon, "nameplatePreview")
		end
		if QuestTogether.ApplyNameplateQuestIconStyle then
			QuestTogether:ApplyNameplateQuestIconStyle(previewIconFrame, previewUnitFrame)
		else
			previewIconFrame:ClearAllPoints()
			previewIconFrame:SetPoint("BOTTOM", previewUnitFrame.HealthBarsContainer, "TOP", 0, 11)
		end
		previewIconFrame:Show()
	else
		previewIconFrame:Hide()
	end

	if IsFrameMutable(previewFrame) and previewFrame.Preview then
		previewFrame.Preview:SetText(
			controls.playerPlates and L("Previewing - QuestTogether Player") or L("Previewing - Quest Mob")
		)
	end
end

function QuestTogether:RefreshOptionsWindow()
	self:RefreshHomeWindow()
	self:RefreshAnnouncementsWindow()
	self:RefreshWhereToAnnounceWindow()
	self:RefreshQuestPlatesWindow()
	self:RefreshQuestPlatesWindow(true)
	self:RefreshGroupsWindow()
	self:RefreshPlayerLocationsWindow()
end

function QuestTogether:RefreshPlayerLocationsWindow()
	if self.playerLocationsFrame then RefreshCheckboxOptions(self.playerLocationsControls, self) end
end

-- Summarize saved choices; the prominent runtime state distinguishes these
-- preferences from features currently running. No native player data is read.
function QuestTogether:GetHomeStatusGroups()
	local function OnOff(key) return self:GetOption(key) and L("On") or L("Off") end
	local function Line(label, value) return label .. ": " .. value end
	local destination = self:GetChatLogDestinationLabel(self:GetOption("chatLogDestination"))
	if self:GetOption("chatLogDestination") == "separate" and self:GetOption("mirrorChatLogsToMainChat") then
		destination = destination .. L(" + Main Chat When Docked")
	end
	local general = Line(L("QuestTogether"), self.isEnabled and L("Enabled") or L("Disabled"))
		.. "\n" .. Line(L("Active profile"), SafeText(self:GetCurrentProfileKey() or self.activeProfileKey, L("Unknown")))
		.. "\n" .. Line(L("Version"), SafeText(self:GetAddonVersion(), L("Unknown")))
	local update = self:GetAvailableAddonUpdate()
	if update then general = general .. "\n" .. Line(L("Newer version detected"), SafeText(update)) end
	if not self.isEnabled then general = general .. "\n" .. L("Saved preferences below apply when QuestTogether is enabled.") end
	local locations = L("Off")
	if self:GetOption("showPlayerLocations") then
		locations = self:GetOption("onlyShowQuestPartners") and L("Questing partners only") or L("All QuestTogether players")
	end
	local invites = {}
	if self:GetOption("autoInviteFriends") then invites[#invites + 1] = L("Friends who request to join") end
	if self:GetOption("autoInviteWhileLFG") then invites[#invites + 1] = L("Other requests while looking for partners") end
	local inviteText = #invites > 0 and table.concat(invites, "; ") or L("Ask first")
	return {
		{ title = L("General"), categoryKey = "profilesCategory", text = general },
		{ title = L("Finding Partners"), categoryKey = "groupsCategory", text =
			Line(L("Looking for Questing Partners"), OnOff("lookingForQuestPartners")) .. "\n"
			.. Line(L("Automatic invitations"), inviteText) },
		{ title = L("Player Locations"), categoryKey = "playerLocationsCategory", text =
			Line(L("Share my location"), OnOff("sharePlayerLocation")) .. "\n"
			.. Line(L("Show player locations"), locations) },
		{ title = L("Quest Sharing"), categoryKey = "groupsCategory", text =
			self:GetOption("autoAcceptPartyShareRequests") and L("Automatically approve party share requests") or L("Ask before sharing quests") },
		{ title = L("Announcements"), categoryKey = "whereToAnnounceCategory", text =
			Line(L("Show progress for"), SafeText(self:GetShowProgressForLabel(self:GetOption("showProgressFor")), L("Unknown"))) .. "\n"
			.. Line(L("Chat logs"), self:GetOption("showChatLogs") and SafeText(destination) or L("Off")) .. "\n"
			.. Line(L("Chat bubbles"), OnOff("showChatBubbles")) .. "\n"
			.. Line(L("Party chat for non-QT members"), OnOff("announceToNonQTParty")) },
		{ title = L("Quest Plates"), categoryKey = "questPlatesCategory", text =
			Line(L("Quest icons"), OnOff("nameplateQuestIconEnabled")) .. "\n"
			.. Line(L("Quest health tint"), OnOff("nameplateQuestHealthColorEnabled")) },
		{ title = L("Player Plates"), categoryKey = "playerPlatesCategory", text =
			Line(L("QuestTogether icons"), OnOff("nameplatePlayerIconEnabled")) },
	}
end

function QuestTogether:RefreshHomeWindow()
	if not self.optionsFrame then
		return
	end

	local controls = self.homeControls
	RefreshCheckboxOptions(controls, self)
	if type(controls) ~= "table" then
		return
	end

	if controls.statusGroups then
		local groups = self:GetHomeStatusGroups()
		local height = 36
		for i, group in ipairs(groups) do
			local row = controls.statusGroups[i]
			row.text:SetText(group.text)
			row.button:SetText(group.title .. " >")
			row.categoryKey = group.categoryKey
			local rowHeight = 26 + row.text:GetStringHeight()
			row.frame:SetHeight(rowHeight)
			height = height + rowHeight + 12
		end
		controls.statusPanel:SetHeight(math.max(304, height))
		-- Include wrapped introduction/tips and the controls below both panels.
		controls.content:SetHeight(math.max(304, height) + controls.description:GetStringHeight()
			+ controls.tipsText:GetStringHeight() + 300)
	end

	if controls.openHudEditMode then
		local bubblesEnabled = self:GetOption("showChatBubbles") == true
		controls.openHudEditMode:SetEnabled(bubblesEnabled)
		controls.openHudEditMode:SetAlpha(bubblesEnabled and 1 or 0.5)
	end
end

function QuestTogether:RefreshWhereToAnnounceWindow()
	if not self.whereToAnnounceFrame then
		return
	end

	local controls = self.whereToAnnounceControls
	RefreshCheckboxOptions(controls)

	if controls.chatLogDestinationDropdown then
		RefreshDropdownControl(
			controls.chatLogDestinationDropdown,
			self:GetChatLogDestinationLabel(self:GetOption("chatLogDestination"))
		)
	end

	if controls.qtChatScopeDropdown then
		RefreshDropdownControl(controls.qtChatScopeDropdown, self:GetOption("qtChatScope") == "zone_only" and L("Zone Only") or L("Global"))
	end
	local showBubbleControls = self:GetOption("showChatBubbles") and true or false
	if controls.hideMyOwnChatBubbles then
		controls.hideMyOwnChatBubbles:SetShown(showBubbleControls)
		if controls.hideMyOwnChatBubbles.Label then
			controls.hideMyOwnChatBubbles.Label:SetShown(showBubbleControls)
		end
	end
	if controls.personalBubbleEditHint then
		controls.personalBubbleEditHint:SetShown(showBubbleControls)
	end
	if controls.openHudEditMode then
		controls.openHudEditMode:SetShown(showBubbleControls)
	end

	local showChatLogControls = self:GetOption("showChatLogs")
	local showMirrorChatLogControl = showChatLogControls and self:GetOption("chatLogDestination") == "separate"
	if controls.chatLogDestinationDropdown then
		if UIDropDownMenu_EnableDropDown and UIDropDownMenu_DisableDropDown then
			if showChatLogControls then
				UIDropDownMenu_EnableDropDown(controls.chatLogDestinationDropdown)
			else
				UIDropDownMenu_DisableDropDown(controls.chatLogDestinationDropdown)
			end
		end
		controls.chatLogDestinationDropdown:SetAlpha(showChatLogControls and 1 or 0.5)
		if controls.chatLogDestinationDropdown.title then
			controls.chatLogDestinationDropdown.title:SetAlpha(showChatLogControls and 1 or 0.5)
		end
	end
	if controls.mirrorChatLogsToMainChat then
		SetLabeledControlShown(controls.mirrorChatLogsToMainChat, showMirrorChatLogControl)
	end
end

function QuestTogether:RefreshQuestPlatesWindow(playerPlates)
	if not self[playerPlates and "playerPlatesFrame" or "questPlatesFrame"] then
		return
	end

	local controls = self[playerPlates and "playerPlateControls" or "questPlateControls"]
	RefreshCheckboxOptions(controls)

	if controls.nameplateQuestIconStyleDropdown then
		RefreshDropdownControl(
			controls.nameplateQuestIconStyleDropdown,
			self:GetNameplateQuestIconStyleLabel(
				playerPlates and self:GetNameplatePlayerIconStyle() or self:GetNameplateQuestIconStyle()
			)
		)
	end

	if not controls.nameplateQuestHealthColor then
		RefreshQuestPlatesPreview(controls)
		return
	end
	local color = GetColorOption("nameplateQuestHealthColor", self.NAMEPLATE_QUEST_HEALTH_COLOR)
	controls.nameplateQuestHealthColor.ColorTexture:SetColorTexture(color.r, color.g, color.b, 1)

	if controls.resetNameplateQuestHealthColor then
		if IsColorOptionAtDefault("nameplateQuestHealthColor", self.NAMEPLATE_QUEST_HEALTH_COLOR) then
			controls.resetNameplateQuestHealthColor:Hide()
		else
			controls.resetNameplateQuestHealthColor:Show()
		end
	end

	RefreshQuestPlatesPreview(controls)
end

function QuestTogether:RefreshGroupsWindow()
	if not self.groupsFrame then
		return
	end

	RefreshCheckboxOptions(self.groupsControls)
end

-- This callback seam configures only QT-owned controls; live tests pass private
-- slider/label fixtures and never patch native slider mixins or globals.
function QuestTogether:ConfigureNearbyRangeSlider(slider, label)
	local addon = self
	-- Keep the instance in the closure; private fixtures must not consult QT's profile.
	slider.RefreshNearbyRange = function(control)
		control.qtRefreshing = true
		local value = addon:GetNearbyAnnouncementRange()
		control:SetValue(value)
		control.qtRefreshing = nil
		label:SetText(string.format(L("Nearby Range: %d%% of zone"), value))
	end
	slider:SetScript("OnValueChanged", function(control, value)
		if control.qtRefreshing then return end
		value = addon:NormalizeNearbyAnnouncementRange(value)
		if value and addon:SetOption("nearbyAnnouncementRange", value) then
			label:SetText(string.format(L("Nearby Range: %d%% of zone"), value))
		end
	end)
	slider:RefreshNearbyRange()
end

local function CreateNearbyRangeSlider(parent, x, y)
	local slider = CreateFrame("Slider", nil, parent)
	slider:SetSize(360, 18)
	slider:SetPoint("TOPLEFT", x, y)
	slider:SetOrientation("HORIZONTAL")
	slider:SetMinMaxValues(QuestTogether.NEARBY_RANGE_MIN, QuestTogether.NEARBY_RANGE_MAX)
	slider:SetValueStep(1)
	if slider.SetObeyStepOnDrag then slider:SetObeyStepOnDrag(true) end
	local track = slider:CreateTexture(nil, "BACKGROUND")
	track:SetColorTexture(0.12, 0.12, 0.12, 1)
	track:SetPoint("LEFT")
	track:SetPoint("RIGHT")
	track:SetHeight(6)
	local thumb = slider:CreateTexture(nil, "ARTWORK")
	thumb:SetTexture("Interface\\Buttons\\UI-SliderBar-Button-Horizontal")
	thumb:SetSize(32, 32)
	slider:SetThumbTexture(thumb)
	local label = slider:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	label:SetPoint("BOTTOMLEFT", slider, "TOPLEFT", 0, 6)
	local minimum = slider:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	minimum:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 0, -6)
	minimum:SetText(L("Nearby"))
	local maximum = slider:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	maximum:SetPoint("TOPRIGHT", slider, "BOTTOMRIGHT", 0, -6)
	maximum:SetText(L("Entire Zone"))
	local hint = slider:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	hint:SetPoint("TOPLEFT", slider, "BOTTOMLEFT", 0, -28)
	hint:SetWidth(590)
	hint:SetJustifyH("LEFT")
	hint:SetText(L("Choose how far away to show quest updates within your current zone. The maximum includes the entire zone. Group members and visible nameplates are always included."))
	QuestTogether:ConfigureNearbyRangeSlider(slider, label)
	QuestTogether:AttachSettingsTooltip(slider, L("Nearby"),
		L("Choose how far away to show quest updates within your current zone. The maximum includes the entire zone. Group members and visible nameplates are always included."))
	return slider
end

function QuestTogether:RefreshAnnouncementsWindow()
	if not self.announcementsFrame then
		return
	end

	RefreshCheckboxOptions(self.announcementControls)
	if self.announcementControls.nearbyRangeSlider then self.announcementControls.nearbyRangeSlider:RefreshNearbyRange() end

	if self.announcementControls.showProgressForDropdown then
		RefreshDropdownControl(
			self.announcementControls.showProgressForDropdown,
			self:GetShowProgressForLabel(self:GetOption("showProgressFor"))
		)
	end
end

local function RegisterSubcategory(parentCategory, frame, categoryName)
	if not (Settings and Settings.RegisterCanvasLayoutSubcategory and parentCategory and frame) then
		return nil
	end

	local subcategory = nil
	local ok, categoryOrError =
		pcall(Settings.RegisterCanvasLayoutSubcategory, parentCategory, frame, categoryName, categoryName)
	if ok then
		subcategory = categoryOrError
	end
	if not subcategory then
		-- Older signatures omit the extra name parameter.
		ok, categoryOrError = pcall(Settings.RegisterCanvasLayoutSubcategory, parentCategory, frame, categoryName)
		if ok then
			subcategory = categoryOrError
		end
	end
	if not subcategory then
		return nil
	end

	if Settings.RegisterAddOnCategory then
		Settings.RegisterAddOnCategory(subcategory)
	end
	return subcategory
end

local function OpenSettingsCategory(category)
	if not (Settings and Settings.OpenToCategory and category and category.GetID) then
		return false
	end

	Settings.OpenToCategory(category:GetID())
	return true
end

local function BuildProfileKeyList(excludedKey)
	local profileKeys = QuestTogether:GetProfileKeys()
	local filtered = {}
	for _, profileKey in ipairs(profileKeys) do
		if profileKey ~= excludedKey then
			filtered[#filtered + 1] = profileKey
		end
	end
	return filtered
end

function QuestTogether:RefreshProfilesWindow()
	if not self.profilesFrame then
		return
	end

	local controls = self.profileControls
	local uiState = self.profileUIState or {}
	self.profileUIState = uiState

	local currentProfileKey = self:GetCurrentProfileKey()
	local allProfileKeys = self:GetProfileKeys()
	local nonActiveProfileKeys = BuildProfileKeyList(currentProfileKey)

	if not uiState.copyFromProfileKey or uiState.copyFromProfileKey == currentProfileKey then
		uiState.copyFromProfileKey = nonActiveProfileKeys[1]
	end
	if not uiState.deleteProfileKey or uiState.deleteProfileKey == currentProfileKey then
		uiState.deleteProfileKey = nonActiveProfileKeys[1]
	end

	RefreshDropdownControl(controls.currentProfileDropdown, currentProfileKey or L("None"))
	RefreshDropdownControl(controls.copyFromProfileDropdown, uiState.copyFromProfileKey or L("No Other Profiles"))
	RefreshDropdownControl(controls.deleteProfileDropdown, uiState.deleteProfileKey or L("No Other Profiles"))

	local canCopy = uiState.copyFromProfileKey ~= nil
	local canDelete = uiState.deleteProfileKey ~= nil

	if UIDropDownMenu_EnableDropDown and UIDropDownMenu_DisableDropDown then
		if canCopy then
			UIDropDownMenu_EnableDropDown(controls.copyFromProfileDropdown)
		else
			UIDropDownMenu_DisableDropDown(controls.copyFromProfileDropdown)
		end

		if canDelete then
			UIDropDownMenu_EnableDropDown(controls.deleteProfileDropdown)
		else
			UIDropDownMenu_DisableDropDown(controls.deleteProfileDropdown)
		end
	end

	controls.copyButton:SetEnabled(canCopy)
	controls.deleteButton:SetEnabled(canDelete)

	local characterKey = SafeText(self.activeCharacterKey or self:GetCurrentCharacterKey() or L("Unknown"), L("Unknown"))
	controls.profileSummary:SetText(
		string.format(
			L("Character: %s\nActive profile: %s\nSaved profiles: %d"),
			characterKey,
			SafeText(currentProfileKey, ""),
			#allProfileKeys
		)
	)
end

function QuestTogether:InitializeProfilesWindow(parentCategory)
	if self.profilesFrame then
		return
	end

	local frame = CreateFrame("Frame", "QuestTogetherProfilesPanel")
	frame.name = L("Profiles")
	frame.parent = "QuestTogether"

	local _, content = CreateScrollablePanelContent(frame, 560)

	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -16)
	title:SetText(L("QuestTogether Profiles"))

	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	description:SetPoint("TOPLEFT", title, "BOTTOMLEFT", 0, -8)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(
		L("QuestTogether now defaults each character to its own profile. Use this page to switch, copy, create, reset, or delete profiles.")
	)

	local currentProfileDropdown = CreateDropdown(
		content,
		L("Current Profile"),
		L("Switch this character to another profile."),
		16,
		-92,
		240,
		function(_, level)
			local currentProfileKey = QuestTogether:GetCurrentProfileKey()
			for _, profileKey in ipairs(QuestTogether:GetProfileKeys()) do
				local info = UIDropDownMenu_CreateInfo()
				info.text = profileKey
				info.checked = profileKey == currentProfileKey
				info.func = function()
					local ok, err = QuestTogether:SetActiveProfile(profileKey)
					if not ok then
						QuestTogether:Print(SafeText(err, L("Unknown error")))
					end
					QuestTogether:RefreshProfilesWindow()
					CloseDropDownMenus()
				end
				UIDropDownMenu_AddButton(info, level)
			end
		end
	)

	local copyFromDropdown = CreateDropdown(
		content,
		L("Copy Into Current Profile"),
		L("Copy all settings from the selected profile into your current profile, replacing its settings."),
		16,
		-160,
		240,
		function(_, level)
			local currentProfileKey = QuestTogether:GetCurrentProfileKey()
			for _, profileKey in ipairs(BuildProfileKeyList(currentProfileKey)) do
				local info = UIDropDownMenu_CreateInfo()
				info.text = profileKey
				info.checked = QuestTogether.profileUIState.copyFromProfileKey == profileKey
				info.func = function()
					QuestTogether.profileUIState.copyFromProfileKey = profileKey
					QuestTogether:RefreshProfilesWindow()
					CloseDropDownMenus()
				end
				UIDropDownMenu_AddButton(info, level)
			end
		end
	)

	local copyButton = CreateFrame("Button", nil, content, "UIPanelButtonTemplate")
	copyButton:SetSize(90, 22)
	if copyFromDropdown and copyFromDropdown.Button then
		copyButton:SetPoint("LEFT", copyFromDropdown.Button, "RIGHT", 16, 0)
	else
		copyButton:SetPoint("TOPLEFT", content, "TOPLEFT", 280, -185)
	end
	copyButton:SetText(L("Copy"))
	self:AttachSettingsTooltip(copyButton, L("Copy"), L("Copy all settings from the selected profile into your current profile, replacing its settings."))
	copyButton:SetScript("OnClick", function()
		local sourceProfileKey = QuestTogether.profileUIState.copyFromProfileKey
		local ok, err = QuestTogether:CopyProfileIntoActiveProfile(sourceProfileKey)
		if not ok then
			QuestTogether:Print(SafeText(err, L("Unknown error")))
			return
		end
		QuestTogether:Print(L("Copied profile settings from ") .. SafeText(sourceProfileKey, "") .. ".")
		QuestTogether:RefreshProfilesWindow()
	end)

	local createProfileTitle = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	createProfileTitle:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -240)
	createProfileTitle:SetText(L("Create And Switch To New Profile"))

	local createProfileEdit = CreateFrame("EditBox", nil, content, "InputBoxTemplate")
	createProfileEdit:SetAutoFocus(false)
	createProfileEdit:SetSize(240, 24)
	createProfileEdit:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -264)
	createProfileEdit:SetTextInsets(6, 6, 0, 0)

	local createProfileButton = CreateFrame("Button", nil, content, "UIPanelButtonTemplate")
	createProfileButton:SetSize(90, 22)
	createProfileButton:SetPoint("TOPLEFT", content, "TOPLEFT", 280, -266)
	createProfileButton:SetText(L("Create"))
	self:AttachSettingsTooltip(createProfileEdit, L("Create And Switch To New Profile"), L("Enter a name to create a copy of your current settings and switch to the new profile."))
	self:AttachSettingsTooltip(createProfileButton, L("Create"), L("Enter a name to create a copy of your current settings and switch to the new profile."))

	local function CreateAndActivateProfile()
		local requestedProfileName = createProfileEdit:GetText() or ""
		local ok, err = QuestTogether:CreateProfile(requestedProfileName, QuestTogether:GetCurrentProfileKey())
		if not ok then
			QuestTogether:Print(SafeText(err, L("Unknown error")))
			return
		end

		local switchOk, switchErr = QuestTogether:SetActiveProfile(requestedProfileName)
		if not switchOk then
			QuestTogether:Print(SafeText(switchErr, L("Unknown error")))
			return
		end

		createProfileEdit:SetText("")
		QuestTogether:Print(L("Created and switched to profile ") .. SafeText(QuestTogether:GetCurrentProfileKey(), "") .. ".")
		QuestTogether:RefreshProfilesWindow()
	end

	createProfileButton:SetScript("OnClick", CreateAndActivateProfile)
	createProfileEdit:SetScript("OnEnterPressed", function(editBox)
		CreateAndActivateProfile()
		editBox:ClearFocus()
	end)

	local resetButton = CreateFrame("Button", nil, content, "UIPanelButtonTemplate")
	resetButton:SetSize(180, 22)
	resetButton:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -314)
	resetButton:SetText(L("Reset Active Profile"))
	self:AttachSettingsTooltip(resetButton, L("Reset Active Profile"), L("Restore all settings in the current profile to their defaults."))
	resetButton:SetScript("OnClick", function()
		local ok, err = QuestTogether:ResetActiveProfile()
		if not ok then
			QuestTogether:Print(SafeText(err, L("Unknown error")))
			return
		end
		QuestTogether:Print(L("Reset profile ") .. SafeText(QuestTogether:GetCurrentProfileKey(), "") .. L(" to defaults."))
		QuestTogether:RefreshProfilesWindow()
	end)

	local deleteProfileDropdown = CreateDropdown(
		content,
		L("Delete Profile"),
		L("Choose another profile to delete. You cannot delete the active profile."),
		16,
		-370,
		240,
		function(_, level)
			local currentProfileKey = QuestTogether:GetCurrentProfileKey()
			for _, profileKey in ipairs(BuildProfileKeyList(currentProfileKey)) do
				local info = UIDropDownMenu_CreateInfo()
				info.text = profileKey
				info.checked = QuestTogether.profileUIState.deleteProfileKey == profileKey
				info.func = function()
					QuestTogether.profileUIState.deleteProfileKey = profileKey
					QuestTogether:RefreshProfilesWindow()
					CloseDropDownMenus()
				end
				UIDropDownMenu_AddButton(info, level)
			end
		end
	)

	local deleteButton = CreateFrame("Button", nil, content, "UIPanelButtonTemplate")
	deleteButton:SetSize(90, 22)
	if deleteProfileDropdown and deleteProfileDropdown.Button then
		deleteButton:SetPoint("LEFT", deleteProfileDropdown.Button, "RIGHT", 16, 0)
	else
		deleteButton:SetPoint("TOPLEFT", content, "TOPLEFT", 280, -395)
	end
	deleteButton:SetText(L("Delete"))
	self:AttachSettingsTooltip(deleteButton, L("Delete"), L("Delete the selected profile and its saved settings. You cannot delete the active profile."))
	deleteButton:SetScript("OnClick", function()
		local deleteProfileKey = QuestTogether.profileUIState.deleteProfileKey
		local ok, err = QuestTogether:DeleteProfile(deleteProfileKey)
		if not ok then
			QuestTogether:Print(SafeText(err, L("Unknown error")))
			return
		end
		QuestTogether:Print(L("Deleted profile ") .. SafeText(deleteProfileKey, "") .. ".")
		QuestTogether.profileUIState.deleteProfileKey = nil
		QuestTogether.profileUIState.copyFromProfileKey = nil
		QuestTogether:RefreshProfilesWindow()
	end)

	local profileSummary = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	profileSummary:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -448)
	profileSummary:SetWidth(640)
	profileSummary:SetJustifyH("LEFT")
	profileSummary:SetText("")

	self.profileControls = {
		currentProfileDropdown = currentProfileDropdown,
		copyFromProfileDropdown = copyFromDropdown,
		copyButton = copyButton,
		createProfileEdit = createProfileEdit,
		createProfileButton = createProfileButton,
		resetButton = resetButton,
		deleteProfileDropdown = deleteProfileDropdown,
		deleteButton = deleteButton,
		profileSummary = profileSummary,
	}
	self.profilesFrame = frame

	frame:SetScript("OnShow", function()
		QuestTogether:RefreshProfilesWindow()
	end)

	local profileCategory = RegisterSubcategory(parentCategory, frame, frame.name)
	if not profileCategory and Settings and Settings.RegisterCanvasLayoutCategory then
		profileCategory = Settings.RegisterCanvasLayoutCategory(frame, L("QuestTogether Profiles"), L("QuestTogether Profiles"))
	end

	self.profilesCategory = profileCategory
	self:RefreshProfilesWindow()
end

function QuestTogether:InitializeAnnouncementsWindow(parentCategory)
	if self.announcementsFrame then
		return
	end

	local frame = CreateFrame("Frame", "QuestTogetherAnnouncementsPanel")
	frame.name = L("What to Announce")
	frame.parent = "QuestTogether"

	local _, content = CreateScrollablePanelContent(frame, 900)

	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -16)
	title:SetText(L("What To Announce"))

	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	description:SetPoint("TOPLEFT", title, "BOTTOMLEFT", 0, -8)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(L("Choose which event announcements you see. These choices also control announcements sent to party chat."))

	CreateAnnouncementGroupHeader(content, L("Announcement Scope"), "quest", 16, -82, 620)
	local showProgressForDropdown = CreateShowProgressForDropdown(content, 32, -112)
	local nearbyRangeSlider = CreateNearbyRangeSlider(content, 32, -184)

	CreateAnnouncementGroupHeader(content, L("Quests"), "quest", 16, -290, 620)
	local announceAccepted = CreateCheckbox(content, "announceAccepted", L("Announce Quest Acceptance"), L("Show an announcement when a player accepts a quest."), 32, -320)
	local announceCompleted = CreateCheckbox(content, "announceCompleted", L("Announce Quest Completion"), L("Show an announcement when a player turns in a completed quest."), 32, -348)
	local announceReadyToTurnIn = CreateCheckbox(content, "announceReadyToTurnIn", L("Announce Ready To Turn In"), L("Show an announcement when all quest objectives are done and the quest is ready to turn in."), 32, -376)
	local announceRemoved = CreateCheckbox(content, "announceRemoved", L("Announce Quest Removal"), L("Show an announcement when a player abandons or removes a quest."), 32, -404)
	local announceProgress = CreateCheckbox(content, "announceProgress", L("Announce Quest Progress"), L("Show updates as players make progress on quest objectives, such as collecting items or defeating enemies."), 32, -432)

	CreateAnnouncementGroupHeader(content, L("World Quests"), "world", 16, -478, 620)
	local announceWorldQuestAreaEnter =
		CreateCheckbox(content, "announceWorldQuestAreaEnter", L("Announce Area Enter"), L("Show an announcement when a player enters a world quest area."), 32, -508)
	local announceWorldQuestAreaLeave =
		CreateCheckbox(content, "announceWorldQuestAreaLeave", L("Announce Area Leave"), L("Show an announcement when a player leaves a world quest area."), 32, -536)
	local announceWorldQuestProgress = CreateCheckbox(content, "announceWorldQuestProgress", L("Announce Progress"), L("Show progress updates for world quest objectives."), 32, -564)
	local announceWorldQuestCompleted =
		CreateCheckbox(content, "announceWorldQuestCompleted", L("Announce Completion"), L("Show an announcement when a player finishes a world quest."), 32, -592)

	CreateAnnouncementGroupHeader(content, L("Bonus Objectives"), "bonus", 16, -638, 620)
	local announceBonusObjectiveAreaEnter =
		CreateCheckbox(content, "announceBonusObjectiveAreaEnter", L("Announce Area Enter"), L("Show an announcement when a player enters a bonus objective area."), 32, -668)
	local announceBonusObjectiveAreaLeave =
		CreateCheckbox(content, "announceBonusObjectiveAreaLeave", L("Announce Area Leave"), L("Show an announcement when a player leaves a bonus objective area."), 32, -696)
	local announceBonusObjectiveProgress =
		CreateCheckbox(content, "announceBonusObjectiveProgress", L("Announce Progress"), L("Show progress updates for bonus objectives."), 32, -724)
	local announceBonusObjectiveCompleted =
		CreateCheckbox(content, "announceBonusObjectiveCompleted", L("Announce Completion"), L("Show an announcement when a player finishes a bonus objective."), 32, -752)
	CreateAnnouncementGroupHeader(content, L("Finding Partners"), "quest", 16, -798, 620)
	local announceQuestPartners = CreateCheckbox(content, "announceQuestPartners", L("Announce Looking for Questing Partners"),
		L("Send and show announcements when players start looking for questing partners. Their status and glowing icons remain visible when this is off."), 32, -828)

	self.announcementControls = {
		announceQuestPartners = announceQuestPartners,
		nearbyRangeSlider = nearbyRangeSlider,
		showProgressForDropdown = showProgressForDropdown,
		announceAccepted = announceAccepted,
		announceCompleted = announceCompleted,
		announceReadyToTurnIn = announceReadyToTurnIn,
		announceRemoved = announceRemoved,
		announceProgress = announceProgress,
		announceWorldQuestAreaEnter = announceWorldQuestAreaEnter,
		announceWorldQuestAreaLeave = announceWorldQuestAreaLeave,
		announceWorldQuestProgress = announceWorldQuestProgress,
		announceWorldQuestCompleted = announceWorldQuestCompleted,
		announceBonusObjectiveAreaEnter = announceBonusObjectiveAreaEnter,
		announceBonusObjectiveAreaLeave = announceBonusObjectiveAreaLeave,
		announceBonusObjectiveProgress = announceBonusObjectiveProgress,
		announceBonusObjectiveCompleted = announceBonusObjectiveCompleted,
	}

	frame:SetScript("OnShow", function()
		QuestTogether:RefreshAnnouncementsWindow()
	end)

	self.announcementsFrame = frame
	self.announcementsCategory = RegisterSubcategory(parentCategory, frame, frame.name)
	self:RefreshAnnouncementsWindow()
end

function QuestTogether:InitializeWhereToAnnounceWindow(parentCategory)
	if self.whereToAnnounceFrame then
		return
	end

	local frame = CreateFrame("Frame", "QuestTogetherWhereToAnnouncePanel")
	frame.name = L("Where to Announce")
	frame.parent = "QuestTogether"

	local _, content = CreateScrollablePanelContent(frame, 775)

	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -16)
	title:SetText(L("Where To Announce"))

	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	description:SetPoint("TOPLEFT", title, "BOTTOMLEFT", 0, -8)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(L("Choose chat output, bubbles, and celebration emotes."))

	local chatLogHeader = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	chatLogHeader:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -82)
	chatLogHeader:SetText(L("Chat Log Output"))

	local showChatLogs = CreateCheckbox(
		content,
		"showChatLogs",
		L("Show Chat Logs"),
		L("Print QuestTogether announcements in chat when the sender is grouped or nearby."),
		16,
		-106
	)
	local chatLogDestinationDropdown = CreateChatLogDestinationDropdown(content, 36, -152)
	local mirrorChatLogsToMainChat = CreateCheckbox(
		content,
		"mirrorChatLogsToMainChat",
		L("Also Print To Main Chat If Docked As A Tab"),
		L("Only applies when the separate QuestTogether chat window is docked as a tab. If it is floating in its own window, logs stay there only."),
		56,
		-198
	)

	local announceToNonQTParty = CreateCheckbox(
		content,
		"announceToNonQTParty",
		L("Announce In Party Chat When Someone Doesn't Have QT"),
		L("Send your enabled event announcements to party chat when a member has not been recognized as a QuestTogether user. Also announce requests to join when you cannot invite and the party leader is not known to use QT. Everyone in the party sees these messages. Does not post to raids."),
		16,
		-238
	)

	local showQTChat = CreateCheckbox(content, "showQTChat", L("Show QuestTogether Chat"),
		L("Show conversations from the QuestTogether channel in enabled chat logs and bubbles. Quest announcements are unaffected."),
		16, -278)

	local qtChatScopeDropdown = CreateQTChatScopeDropdown(content, 36, -318)

	local bubbleHeader = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	bubbleHeader:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -382)
	bubbleHeader:SetText(L("Chat Bubbles"))

	local showChatBubbles = CreateCheckbox(
		content,
		"showChatBubbles",
		L("Show Chat Bubbles"),
		L("Display QuestTogether bubbles over nearby players and on your personal bubble anchor."),
		16,
		-406
	)
	local hideMyOwnChatBubbles = CreateCheckbox(
		content,
		"hideMyOwnChatBubbles",
		L("Hide My Own Chat Bubbles"),
		L("If enabled, your client still sends local progress to others but does not show your own QuestTogether bubbles."),
		36,
		-434
	)

	local openHudEditMode = CreateFrame("Button", nil, content, "UIPanelButtonTemplate")
	openHudEditMode:SetSize(180, 24)
	openHudEditMode:SetPoint("TOPLEFT", content, "TOPLEFT", 36, -466)
	openHudEditMode:SetText(L("Open HUD Edit Mode"))
	self:AttachSettingsTooltip(openHudEditMode, L("Open HUD Edit Mode"), L("Use HUD Edit Mode to move your personal bubble and adjust its size and duration from the QuestTogether Bubble settings panel."))
	openHudEditMode:SetScript("OnClick", function()
		if not QuestTogether:OpenHudEditMode() then
			QuestTogether:Print(L("HUD Edit Mode is unavailable right now."))
		end
	end)

	local personalBubbleEditHint = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	personalBubbleEditHint:SetPoint("TOPLEFT", content, "TOPLEFT", 36, -498)
	personalBubbleEditHint:SetJustifyH("LEFT")
	personalBubbleEditHint:SetWidth(560)
	personalBubbleEditHint:SetText(
		L("Use HUD Edit Mode to move your personal bubble and adjust its size and duration from the QuestTogether Bubble settings panel.")
	)

	local celebrations = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	celebrations:SetPoint("TOPLEFT", 16, -566)
	celebrations:SetText(L("Celebration Emotes"))
	local emoteOnQuestCompletion = CreateCheckbox(
		content,
		"emoteOnQuestCompletion",
		L("Emote On Quest Completion"),
		L("If disabled, this character never performs local quest completion emotes."),
		16,
		-596
	)
	local emoteOnNearbyPlayerQuestCompletion = CreateCheckbox(
		content,
		"emoteOnNearbyPlayerQuestCompletion",
		L("Emote On Nearby Player Quest Completion"),
		L("If disabled, this character will not mirror nearby players' quest completion emotes."),
		16,
		-628
	)
	local emoteOnLevelUp = CreateCheckbox(
		content,
		"emoteOnLevelUp",
		L("Emote On Level Up"),
		L("Perform a celebration emote when this character levels up."),
		16,
		-660
	)
	local emoteOnNearbyPlayerLevelUp = CreateCheckbox(
		content,
		"emoteOnNearbyPlayerLevelUp",
		L("Emote On Nearby Player Level Up"),
		L("Mirror nearby QuestTogether players' level-up emotes, respecting your player scope setting."),
		16,
		-692
	)
	self.whereToAnnounceControls = {
		showQTChat = showQTChat,
		qtChatScopeDropdown = qtChatScopeDropdown,
		emoteOnQuestCompletion = emoteOnQuestCompletion,
		emoteOnNearbyPlayerQuestCompletion = emoteOnNearbyPlayerQuestCompletion,
		emoteOnLevelUp = emoteOnLevelUp,
		emoteOnNearbyPlayerLevelUp = emoteOnNearbyPlayerLevelUp,
		showChatBubbles = showChatBubbles,
		hideMyOwnChatBubbles = hideMyOwnChatBubbles,
		showChatLogs = showChatLogs,
		announceToNonQTParty = announceToNonQTParty,
		chatLogDestinationDropdown = chatLogDestinationDropdown,
		mirrorChatLogsToMainChat = mirrorChatLogsToMainChat,
		openHudEditMode = openHudEditMode,
		personalBubbleEditHint = personalBubbleEditHint,
	}
	self.whereToAnnounceFrame = frame

	frame:SetScript("OnShow", function()
		QuestTogether:RefreshWhereToAnnounceWindow()
	end)

	self.whereToAnnounceCategory = RegisterSubcategory(parentCategory, frame, frame.name)
	self:RefreshWhereToAnnounceWindow()
end

function QuestTogether:InitializeQuestPlatesWindow(parentCategory, playerPlates)
	local frameKey = playerPlates and "playerPlatesFrame" or "questPlatesFrame"
	local controlsKey = playerPlates and "playerPlateControls" or "questPlateControls"
	local enabledKey = playerPlates and "nameplatePlayerIconEnabled" or "nameplateQuestIconEnabled"
	if self[frameKey] then
		return
	end

	local frame =
		CreateFrame("Frame", playerPlates and "QuestTogetherPlayerPlatesPanel" or "QuestTogetherQuestPlatesPanel")
	frame.name = playerPlates and L("Player Plates") or L("Quest Plates")
	frame.parent = "QuestTogether"

	local _, content = CreateScrollablePanelContent(frame, 560)

	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -16)
	title:SetText(frame.name)

	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	description:SetPoint("TOPLEFT", title, "BOTTOMLEFT", 0, -8)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(
		playerPlates
				and L("Identify friendly QuestTogether players with the scroll logo. Enable friendly nameplates in WoW to see them. Ignored players are hidden; location sharing is not required.")
			or L("Customize quest objective visuals on Blizzard nameplates.")
	)

	local nameplateQuestIconEnabled = CreateCheckbox(
		content,
		enabledKey,
		playerPlates and L("QuestTogether Player Icon") or L("Quest Objective Icon"),
		playerPlates and L("Show the QuestTogether logo beside friendly players who are using QuestTogether.")
			or L("Show a quest icon on default Blizzard nameplates when a unit is a quest objective."),
		16,
		-82
	)
	local nameplateQuestIconStyleDropdown = CreateNameplateIconStyleDropdown(content, 36, -108, playerPlates)
	local nameplateQuestHealthColorEnabled, nameplateQuestHealthColor, resetNameplateQuestHealthColor
	if not playerPlates then
		nameplateQuestHealthColorEnabled = CreateCheckbox(
			content,
			"nameplateQuestHealthColorEnabled",
			L("Quest Objective Health Color"),
			L("Tint quest-objective nameplate health bars with your selected quest color."),
			16,
			-150
		)
		nameplateQuestHealthColor = CreateColorSwatch(
			content,
			"nameplateQuestHealthColor",
			L("Quest Health Color"),
			L("Choose the color used to tint quest-objective nameplate health bars."),
			QuestTogether.NAMEPLATE_QUEST_HEALTH_COLOR,
			36,
			-177
		)
		resetNameplateQuestHealthColor = CreateFrame("Button", nil, content, "UIPanelButtonTemplate")
		resetNameplateQuestHealthColor:SetSize(70, 20)
		resetNameplateQuestHealthColor:SetPoint("LEFT", nameplateQuestHealthColor, "RIGHT", 140, 0)
		resetNameplateQuestHealthColor:SetText(L("Reset"))
		self:AttachSettingsTooltip(resetNameplateQuestHealthColor, L("Reset"), L("Restore the default quest health-bar color."))
		resetNameplateQuestHealthColor:SetScript("OnClick", function()
			local defaults = QuestTogether.DEFAULTS.profile.nameplateQuestHealthColor
				or QuestTogether.NAMEPLATE_QUEST_HEALTH_COLOR
			QuestTogether:SetOption("nameplateQuestHealthColor", {
				r = defaults.r,
				g = defaults.g,
				b = defaults.b,
			})
			QuestTogether:RefreshOptionsWindow()
		end)
	end
	local previewHeader = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	previewHeader:SetPoint("TOPLEFT", content, "TOPLEFT", 16, playerPlates and -164 or -238)
	previewHeader:SetText(L("Preview"))

	local previewHint = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	previewHint:SetPoint("TOPLEFT", previewHeader, "BOTTOMLEFT", 0, -4)
	previewHint:SetWidth(640)
	previewHint:SetJustifyH("LEFT")
	previewHint:SetText(L("Preview your icon with the current WoW nameplate style."))

	-- Use an isolated local frame instead of Blizzard's script nameplate preview template.
	-- This avoids registering a real preview nameplate/unit token and reduces taint risk.
	local previewFrame = CreateFrame("Frame", nil, content)
	previewFrame:SetPoint("TOPLEFT", content, "TOPLEFT", 16, playerPlates and -206 or -280)
	previewFrame:SetSize(620, QUEST_PLATE_PREVIEW_FRAME_HEIGHT)

	local previewBackground = previewFrame:CreateTexture(nil, "BACKGROUND")
	previewBackground:SetAllPoints()
	previewBackground:SetColorTexture(0.03, 0.03, 0.05, 0.62)

	local previewCaption = previewFrame:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
	previewCaption:SetPoint("TOPLEFT", previewFrame, "TOPLEFT", 16, -14)
	previewCaption:SetText(playerPlates and L("Previewing - QuestTogether Player") or L("Previewing - Quest Mob"))
	previewFrame.Preview = previewCaption

	local fallbackUnitFrame = CreateFrame("Frame", nil, previewFrame)
	fallbackUnitFrame:SetSize(360, 92)
	fallbackUnitFrame:SetPoint("CENTER", previewFrame, "CENTER", 0, 0)

	local fallbackHealthBarsContainer = CreateFrame("Frame", nil, fallbackUnitFrame)
	fallbackHealthBarsContainer:SetSize(260, 18)
	fallbackHealthBarsContainer:SetPoint("TOP", fallbackUnitFrame, "TOP", 0, -26)
	fallbackUnitFrame.HealthBarsContainer = fallbackHealthBarsContainer

	local fallbackHealthBar = CreateFrame("StatusBar", nil, fallbackHealthBarsContainer)
	fallbackHealthBar:SetAllPoints()
	fallbackHealthBar:SetMinMaxValues(0, 100)
	fallbackHealthBar:SetValue(100)
	fallbackHealthBar:SetStatusBarTexture("Interface\\Buttons\\WHITE8X8")
	fallbackHealthBar:SetStatusBarColor(0, 0, 0, 0)
	fallbackUnitFrame.healthBar = fallbackHealthBar

	local fallbackHealthBarBackground = fallbackHealthBar:CreateTexture(nil, "BACKGROUND")
	fallbackHealthBarBackground:SetPoint("TOPLEFT", fallbackHealthBar, "TOPLEFT", -2, 3)
	fallbackHealthBarBackground:SetPoint("BOTTOMRIGHT", fallbackHealthBar, "BOTTOMRIGHT", 6, -6)
	if fallbackHealthBarBackground.SetAtlas then
		fallbackHealthBarBackground:SetAtlas("UI-HUD-CoolDownManager-Bar-BG", true)
	else
		fallbackHealthBarBackground:SetColorTexture(0.10, 0.10, 0.10, 0.82)
	end

	local fallbackBaseFill = nil
	if QuestTogether.CreateNameplateHealthOverlayTexture then
		fallbackBaseFill = QuestTogether:CreateNameplateHealthOverlayTexture(fallbackHealthBar, "ARTWORK", 0)
	end
	if not fallbackBaseFill then
		fallbackBaseFill = fallbackHealthBar:CreateTexture(nil, "ARTWORK", nil, 0)
		if fallbackBaseFill.SetAtlas then
			fallbackBaseFill:SetAtlas(QuestTogether.NAMEPLATE_HEALTH_FILL_ATLAS or "UI-HUD-CoolDownManager-Bar", true)
		else
			fallbackBaseFill:SetTexture("Interface\\Buttons\\WHITE8X8")
		end
	end
	if fallbackBaseFill then
		fallbackBaseFill:SetVertexColor(0.22, 0.80, 0.22, 1)
		fallbackUnitFrame.questPreviewBaseFillTexture = fallbackBaseFill
	end

	local fallbackTintOverlay = nil
	if QuestTogether.CreateNameplateHealthOverlayTexture then
		fallbackTintOverlay = QuestTogether:CreateNameplateHealthOverlayTexture(fallbackHealthBar, "ARTWORK", 1)
	end
	if not fallbackTintOverlay then
		fallbackTintOverlay = fallbackHealthBar:CreateTexture(nil, "ARTWORK", nil, 1)
		if fallbackTintOverlay.SetAtlas then
			fallbackTintOverlay:SetAtlas(
				QuestTogether.NAMEPLATE_HEALTH_FILL_ATLAS or "UI-HUD-CoolDownManager-Bar",
				true
			)
		else
			fallbackTintOverlay:SetTexture("Interface\\Buttons\\WHITE8X8")
		end
	end
	fallbackTintOverlay:SetVertexColor(1, 0.5, 0.1, 0.32)
	fallbackTintOverlay:Hide()
	fallbackUnitFrame.questPreviewTintTexture = fallbackTintOverlay

	local fallbackTintHighlight = fallbackHealthBar:CreateTexture(nil, "ARTWORK", nil, 2)
	fallbackTintHighlight:SetAllPoints()
	fallbackTintHighlight:SetBlendMode("ADD")
	fallbackTintHighlight:SetColorTexture(1, 0.75, 0.35, 0.16)
	fallbackTintHighlight:Hide()
	fallbackUnitFrame.questPreviewTintHighlight = fallbackTintHighlight

	local fallbackDeselectedOverlay = fallbackHealthBar:CreateTexture(nil, "OVERLAY", nil, 3)
	if fallbackDeselectedOverlay.SetAtlas then
		fallbackDeselectedOverlay:SetAtlas("ui-hud-nameplates-deselected-overlay", true)
	else
		fallbackDeselectedOverlay:SetColorTexture(0.95, 0.95, 0.95, 0.16)
	end
	fallbackDeselectedOverlay:SetPoint("TOPLEFT", fallbackHealthBar, "TOPLEFT", 0, 1)
	fallbackDeselectedOverlay:SetPoint("BOTTOMRIGHT", fallbackHealthBar, "BOTTOMRIGHT", 0, -1)
	fallbackUnitFrame.questPreviewDeselectedOverlay = fallbackDeselectedOverlay

	local fallbackSelectedBorder = fallbackHealthBar:CreateTexture(nil, "OVERLAY", nil, 4)
	if fallbackSelectedBorder.SetAtlas then
		fallbackSelectedBorder:SetAtlas("UI-HUD-Nameplates-Selected", true)
	else
		fallbackSelectedBorder:SetColorTexture(0.95, 0.95, 0.95, 0.22)
	end
	fallbackSelectedBorder:SetPoint("TOPLEFT", fallbackHealthBarBackground, "TOPLEFT", -1, 1)
	fallbackSelectedBorder:SetPoint("BOTTOMRIGHT", fallbackHealthBarBackground, "BOTTOMRIGHT", -3, 3)
	fallbackSelectedBorder:Hide()
	fallbackUnitFrame.questPreviewSelectedBorder = fallbackSelectedBorder

	local fallbackTextOverlay = CreateFrame("Frame", nil, fallbackHealthBarsContainer)
	fallbackTextOverlay:SetAllPoints()
	fallbackTextOverlay:SetFrameStrata(fallbackHealthBarsContainer:GetFrameStrata() or "LOW")
	fallbackTextOverlay:SetFrameLevel((fallbackHealthBar:GetFrameLevel() or 0) + 20)
	fallbackUnitFrame.questPreviewTextOverlay = fallbackTextOverlay

	local fallbackName = fallbackTextOverlay:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	fallbackName:SetPoint("LEFT", fallbackHealthBarsContainer, "LEFT", 6, 0)
	fallbackName:SetJustifyH("LEFT")
	fallbackName:SetWidth(160)
	fallbackName:SetText(playerPlates and L("QuestTogether Player") or GetRandomQuestPlatePreviewName())
	fallbackUnitFrame.name = fallbackName

	local fallbackHealthValue = fallbackTextOverlay:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	fallbackHealthValue:SetPoint("LEFT", fallbackHealthBarsContainer, "RIGHT", 8, 0)
	fallbackHealthValue:SetText("241 K")
	fallbackHealthValue:SetJustifyH("RIGHT")
	fallbackUnitFrame.questPreviewHealthText = fallbackHealthValue

	self[controlsKey] = {
		playerPlates = playerPlates == true,
		[enabledKey] = nameplateQuestIconEnabled,
		nameplateQuestIconStyleDropdown = nameplateQuestIconStyleDropdown,
		nameplateQuestHealthColorEnabled = nameplateQuestHealthColorEnabled,
		nameplateQuestHealthColor = nameplateQuestHealthColor,
		resetNameplateQuestHealthColor = resetNameplateQuestHealthColor,
		previewFrame = previewFrame,
		previewNamePlate = nil,
		previewNameLabel = fallbackName,
		previewUnitFrame = fallbackUnitFrame,
	}
	self[frameKey] = frame

	frame:SetScript("OnShow", function()
		local controls = QuestTogether[controlsKey]
		if controls and controls.previewNameLabel then
			controls.previewNameLabel:SetText(
				playerPlates and L("QuestTogether Player") or GetRandomQuestPlatePreviewName()
			)
		end
		QuestTogether:RefreshQuestPlatesWindow(playerPlates)
	end)

	self[playerPlates and "playerPlatesCategory" or "questPlatesCategory"] =
		RegisterSubcategory(parentCategory, frame, frame.name)
	self:RefreshQuestPlatesWindow(playerPlates)
end

function QuestTogether:InitializeGroupsWindow(parentCategory)
	if self.groupsFrame then return end
	local frame = CreateFrame("Frame", "QuestTogetherGroupsPanel")
	frame.name, frame.parent = L("Groups & Sharing"), "QuestTogether"
	local _, content = CreateScrollablePanelContent(frame, 500)
	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", 16, -16)
	title:SetText(L("Groups & Sharing"))
	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	description:SetPoint("TOPLEFT", 16, -48)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(L("Find questing partners and choose how to handle join and quest-sharing requests."))
	local function Header(text, y)
		local label = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
		label:SetPoint("TOPLEFT", 16, y)
		label:SetText(text)
	end
	Header(L("Finding Partners"), -90)
	Header(L("Join Requests"), -272)
	Header(L("Quest Sharing"), -372)
	self.groupsControls = {
		lookingForQuestPartners = CreateCheckbox(content, "lookingForQuestPartners", L("Looking for Questing Partners"),
			L("Show that you're looking for questing partners. Turning this on announces your search throughout your zone when location sharing is enabled. Saved per profile; toggle with /qt lfg."), 16, -118),
		autoInviteWhileLFG = CreateCheckbox(content, "autoInviteWhileLFG", L("Automatically invite others while looking for partners"),
			L("Approve join requests while Looking for Questing Partners is on. You must have permission and room to invite."), 36, -164),
		stopLookingForPartnersOnJoin = CreateCheckbox(content, "stopLookingForPartnersOnJoin", L("Stop looking for partners when joining a group"),
			L("Turn off Looking for Questing Partners when you join or form a party or raid. You can turn it back on to recruit more players."), 36, -210),
		autoInviteFriends = CreateCheckbox(content, "autoInviteFriends", L("Automatically invite friends who request to join"),
			L("Approve join requests from your character friends list. Otherwise, ask first. Does not accept invitations or leave your current party."), 16, -300),
		autoAcceptPartyShareRequests = CreateCheckbox(content, "autoAcceptPartyShareRequests", L("Always allow party share requests"),
			L("Automatically share eligible quests when a party member requests them. Otherwise, ask first."), 16, -400),
	}
	self.groupsFrame = frame
	frame:SetScript("OnShow", function() QuestTogether:RefreshGroupsWindow() end)
	self.groupsCategory = RegisterSubcategory(parentCategory, frame, frame.name)
	self:RefreshGroupsWindow()
end

function QuestTogether:OpenOptionsWindow()
	if not self.optionsCategory and not self.optionsFrame then
		self:InitializeOptionsWindow()
	end

	if not (Settings and Settings.OpenToCategory and self.optionsCategory and self.optionsCategory.GetID) then
		self:Print(L("Settings API is unavailable; unable to open options."))
		return false
	end

	Settings.OpenToCategory(self.optionsCategory:GetID())
	return true
end

function QuestTogether:InitializePlayerLocationsWindow(parentCategory)
	if self.playerLocationsFrame then return end
	local frame = CreateFrame("Frame", "QuestTogetherPlayerLocationsPanel")
	frame.name, frame.parent = L("Player Locations"), "QuestTogether"
	local _, content = CreateScrollablePanelContent(frame, 370)
	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", 16, -16)
	title:SetText(L("Player Locations"))
	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
	description:SetPoint("TOPLEFT", 16, -48)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(L("Find other QuestTogether players with class-colored dots. Gold glows mark players looking for questing partners. Hover for player details, or click for the player menu. Ignored players are hidden."))
	self.playerLocationsControls = {}
	for index, option in ipairs({
		{ key = "sharePlayerLocation", label = L("Share my location on the map and minimap"),
			tooltip = L("Let other QuestTogether players see my location on both the world map and minimap.") },
		{ key = "showPlayerLocations", label = L("Show other players on the map and minimap"),
			tooltip = L("Show shared player locations on the world map and nearby players on the minimap.") },
		{ key = "onlyShowQuestPartners", label = L("Only show players looking for questing partners"),
			tooltip = L("On both maps, show only players with an active Looking for Quest Partners status. This does not change who can see your location.") },
	}) do
		self.playerLocationsControls[option.key] = CreateCheckbox(content, option.key, option.label, option.tooltip, 16, -120 - 44 * (index - 1))
	end
	self.playerLocationsFrame = frame
	frame:SetScript("OnShow", function() QuestTogether:RefreshPlayerLocationsWindow() end)
	self.playerLocationsCategory = RegisterSubcategory(parentCategory, frame, frame.name)
	self:RefreshPlayerLocationsWindow()
end

function QuestTogether:InitializeOptionsWindow()
	if self.optionsFrame then
		return
	end
	local frame = CreateFrame("Frame", "QuestTogetherHomePanel")
	frame.name = "QuestTogether"

	local _, content = CreateScrollablePanelContent(frame, 730)

	local title = content:CreateFontString(nil, "OVERLAY", "GameFontNormalLarge")
	title:SetPoint("TOPLEFT", content, "TOPLEFT", 16, -16)
	title:SetText("QuestTogether")

	local description = content:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
	description:SetPoint("TOPLEFT", title, "BOTTOMLEFT", 0, -10)
	description:SetWidth(640)
	description:SetJustifyH("LEFT")
	description:SetText(
			L("QuestTogether shares quest progress between party members and nearby players so everyone can see objectives move in real time.")
	)

	local statusPanel = CreateFrame("Frame", nil, content)
	statusPanel:SetPoint("TOPLEFT", description, "BOTTOMLEFT", 0, -18)
	statusPanel:SetSize(360, 304)

	local statusPanelBackground = statusPanel:CreateTexture(nil, "BACKGROUND")
	statusPanelBackground:SetAllPoints()
	statusPanelBackground:SetColorTexture(0.03, 0.03, 0.05, 0.62)

	local statusPanelBorder = statusPanel:CreateTexture(nil, "BORDER")
	statusPanelBorder:SetAllPoints()
	statusPanelBorder:SetColorTexture(1, 1, 1, 0.08)

	local statusHeader = statusPanel:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	statusHeader:SetPoint("TOPLEFT", statusPanel, "TOPLEFT", 12, -10)
	statusHeader:SetText(L("Quick Status"))

	local statusGroups = {}
	local previous = statusHeader
	for i, group in ipairs(self:GetHomeStatusGroups()) do
		local row = {}
		row.frame = CreateFrame("Frame", nil, statusPanel)
		row.frame:SetPoint("TOPLEFT", previous, "BOTTOMLEFT", 0, -12)
		row.frame:SetSize(336, 48)
		row.button = CreateFrame("Button", nil, row.frame)
		row.button:SetPoint("TOPLEFT")
		row.button:SetSize(336, 22)
		row.button:SetNormalFontObject("GameFontNormal")
		row.button:SetHighlightFontObject("GameFontHighlight")
		row.button:SetText(group.title .. " >")
		self:AttachSettingsTooltip(row.button, group.title, L("Open the settings for this section."))
		row.button:GetFontString():SetJustifyH("LEFT")
		row.categoryKey = group.categoryKey
		row.button:SetScript("OnClick", function()
			OpenSettingsCategory(QuestTogether[row.categoryKey])
		end)
		row.text = row.frame:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
		row.text:SetPoint("TOPLEFT", row.button, "BOTTOMLEFT", 0, -4)
		row.text:SetWidth(336)
		row.text:SetJustifyH("LEFT")
		row.text:SetSpacing(2)
		statusGroups[i] = row
		previous = row.frame
	end

	local actionsPanel = CreateFrame("Frame", nil, content)
	actionsPanel:SetPoint("TOPLEFT", statusPanel, "TOPRIGHT", 16, 0)
	actionsPanel:SetSize(260, 304)

	local actionsPanelBackground = actionsPanel:CreateTexture(nil, "BACKGROUND")
	actionsPanelBackground:SetAllPoints()
	actionsPanelBackground:SetColorTexture(0.03, 0.03, 0.05, 0.62)

	local actionsPanelBorder = actionsPanel:CreateTexture(nil, "BORDER")
	actionsPanelBorder:SetAllPoints()
	actionsPanelBorder:SetColorTexture(1, 1, 1, 0.08)

	local actionsHeader = actionsPanel:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	actionsHeader:SetPoint("TOPLEFT", actionsPanel, "TOPLEFT", 12, -10)
	actionsHeader:SetText(L("Quick Actions"))

	local actionHelp = {
		[L("Compare Party Quests")] = L("Compare your party's quests and share quests that other members are missing."),
		[L("Find Questing Partners")] = L("Open options for finding partners, joining groups, and sharing quests."),
		[L("Open What to Announce")] = L("Choose which quest events and partner searches to announce and display."),
		[L("Open Where to Announce")] = L("Choose chat output, bubbles, and celebration emotes."),
		[L("Open Quest Plates")] = L("Customize quest objective visuals on Blizzard nameplates."),
		[L("Open Profiles")] = L("Switch, copy, create, reset, or delete saved settings profiles."),
		[L("Open HUD Edit Mode")] = L("Use HUD Edit Mode to move your personal bubble and adjust its size and duration from the QuestTogether Bubble settings panel."),
		[L("Print /qt Help")] = L("Print the available QuestTogether commands in your chat log."),
		[L("Patch Notes")] = L("Read the latest QuestTogether changes and new features."),
		[L("Discord — Feedback & Support")] = L("Open the Discord invite link to share feedback or ask for help."),
		[L("Open Debug Window")] = L("Open diagnostic logs and tests to help troubleshoot addon problems."),
		[L("Rescan Quest Log")] = L("Refresh QuestTogether's quest information from your current quest log."),
	}
	local function CreateHomeActionButton(parent, text, x, y, onClick)
		local button = CreateFrame("Button", nil, parent, "UIPanelButtonTemplate")
		button:SetSize(232, 22)
		button:SetPoint("TOPLEFT", parent, "TOPLEFT", x, y)
		button:SetText(text)
		QuestTogether:AttachSettingsTooltip(button, text, actionHelp[text])
		button:SetScript("OnClick", onClick)
		return button
	end

	local comparePartyQuests = CreateHomeActionButton(actionsPanel, L("Compare Party Quests"), 12, -34, function()
		QuestTogether:OpenPartyQuestCompare()
	end)
	local openGroups = CreateHomeActionButton(actionsPanel, L("Find Questing Partners"), 12, -60, function()
		OpenSettingsCategory(QuestTogether.groupsCategory)
	end)
	local openWhatToAnnounce = CreateHomeActionButton(actionsPanel, L("Open What to Announce"), 12, -86, function()
		OpenSettingsCategory(QuestTogether.announcementsCategory)
	end)
	local openWhereToAnnounce = CreateHomeActionButton(actionsPanel, L("Open Where to Announce"), 12, -112, function()
		OpenSettingsCategory(QuestTogether.whereToAnnounceCategory)
	end)
	local openQuestPlates = CreateHomeActionButton(actionsPanel, L("Open Quest Plates"), 12, -138, function()
		OpenSettingsCategory(QuestTogether.questPlatesCategory)
	end)
	local openProfiles = CreateHomeActionButton(actionsPanel, L("Open Profiles"), 12, -164, function()
		OpenSettingsCategory(QuestTogether.profilesCategory)
	end)
	local openHudEditMode = CreateHomeActionButton(actionsPanel, L("Open HUD Edit Mode"), 12, -190, function()
		if not QuestTogether:OpenHudEditMode() then
			QuestTogether:Print(L("HUD Edit Mode is unavailable right now."))
		end
	end)
	local printHelp = CreateHomeActionButton(actionsPanel, L("Print /qt Help"), 12, -216, function()
		QuestTogether:PrintHelp()
	end)
	local patchNotes = CreateHomeActionButton(actionsPanel, L("Patch Notes"), 12, -242, function()
		QuestTogether:OpenReleaseNotes()
	end)
	local discord = CreateHomeActionButton(actionsPanel, L("Discord — Feedback & Support"), 12, -268, function()
		QuestTogether:OpenDiscordSupport()
	end)

	local generalHeader = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	generalHeader:SetPoint("TOPLEFT", statusPanel, "BOTTOMLEFT", 0, -20)
	generalHeader:SetText(L("General"))
	local showMinimapButton = CreateCheckbox(content, "showMinimapButton", L("Show minimap icon"),
		L("Show the QuestTogether minimap menu. Drag the button to move it around the minimap."), 16, -456)
	showMinimapButton:ClearAllPoints()
	showMinimapButton:SetPoint("TOPLEFT", generalHeader, "BOTTOMLEFT", 0, -10)
	local troubleshooting = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	troubleshooting:SetPoint("TOPLEFT", generalHeader, "BOTTOMLEFT", 0, -66)
	troubleshooting:SetText(L("Troubleshooting"))
	local debugButton = CreateHomeActionButton(content, L("Open Debug Window"), 16, -550, function()
		QuestTogether:ShowDebugWindow()
	end)
	debugButton:ClearAllPoints()
	debugButton:SetPoint("TOPLEFT", troubleshooting, "BOTTOMLEFT", 0, -12)
	local rescanQuestLog = CreateHomeActionButton(content, L("Rescan Quest Log"), 260, -550, function()
		QuestTogether:ScanQuestLog()
	end)
	rescanQuestLog:ClearAllPoints()
	rescanQuestLog:SetPoint("LEFT", debugButton, "RIGHT", 12, 0)

	local tipsHeader = content:CreateFontString(nil, "OVERLAY", "GameFontNormal")
	tipsHeader:SetPoint("TOPLEFT", debugButton, "BOTTOMLEFT", 0, -24)
	tipsHeader:SetText(L("Tips"))

	local tipsText = content:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
	tipsText:SetPoint("TOPLEFT", tipsHeader, "BOTTOMLEFT", 0, -8)
	tipsText:SetWidth(640)
	tipsText:SetJustifyH("LEFT")
	if tipsText.SetSpacing then
		tipsText:SetSpacing(3)
	end
	tipsText:SetText(
		L("/qt options opens these settings.\n")
			.. L("Use What to Announce for event types, Where to Announce for output targets,\n")
			.. L("and Groups & Sharing for questing partners and request approvals.")
	)

	self.homeControls = {
		statusGroups = statusGroups,
		statusPanel = statusPanel,
		content = content,
		description = description,
		tipsText = tipsText,
		showMinimapButton = showMinimapButton,
		comparePartyQuests = comparePartyQuests,
		openGroups = openGroups,
		debugButton = debugButton,
		openWhatToAnnounce = openWhatToAnnounce,
		openWhereToAnnounce = openWhereToAnnounce,
		openQuestPlates = openQuestPlates,
		openProfiles = openProfiles,
		openHudEditMode = openHudEditMode,
		rescanQuestLog = rescanQuestLog,
		printHelp = printHelp,
		patchNotes = patchNotes,
		discord = discord,
	}

	frame:SetScript("OnShow", function()
		QuestTogether:RefreshHomeWindow()
	end)
	-- Only the visible home panel polls, so peer update notices and slash/menu
	-- changes are reflected without retaining timers after Settings closes.
	local refreshElapsed = 0
	frame:SetScript("OnUpdate", function(_, elapsed)
		refreshElapsed = refreshElapsed + elapsed
		if refreshElapsed >= 1 then
			refreshElapsed = 0
			QuestTogether:RefreshHomeWindow()
		end
	end)

	self.optionsFrame = frame

	if not (Settings and Settings.RegisterCanvasLayoutCategory and Settings.RegisterAddOnCategory) then
		self:Print(L("Settings API is unavailable; addon options could not be registered."))
		self.optionsCategory = nil
		return
	end

	local category = Settings.RegisterCanvasLayoutCategory(frame, frame.name, frame.name)
	Settings.RegisterAddOnCategory(category)
	self.optionsCategory = category

	-- Register subcategories in the same order they should appear in the left nav.
	self:InitializeAnnouncementsWindow(category)
	self:InitializeWhereToAnnounceWindow(category)
	self:InitializeQuestPlatesWindow(category)
	self:InitializeQuestPlatesWindow(category, true)
	self:InitializePlayerLocationsWindow(category)
	self:InitializeGroupsWindow(category)
	self:InitializeProfilesWindow(category)

	self:RefreshOptionsWindow()
	self:RefreshProfilesWindow()
end