coa-clique/Clique/config/OptionsPanel.lua

--[[-------------------------------------------------------------------------
-- OptionsPanel.lua
--
-- This file contains the definitions of the main interface options panel.
-- Any other options panels are sub-categories of this main panel.
--
-- Events registered:
--   None
-------------------------------------------------------------------------]] --
local addonName, addon = ...
local L = addon.L

--[[-------------------------------------------------------------------------
--  Addon 'About' Dialog for Interface Options
--
--  Some of this code was taken from/inspired by tekKonfigAboutPanel
--- and it's been moved from AddonCore due to taint issues.
-------------------------------------------------------------------------]] --

local about = CreateFrame("Frame", addonName .. "AboutPanel", InterfaceOptionsFramePanelContainer)
about.name = addonName
about:Hide()

function about.OnShow(frame)
	local fields = {"Version", "Author", "Backported"}
	local notes = GetAddOnMetadata(addonName, "Notes")

	local title = frame:CreateFontString(nil, "ARTWORK", "GameFontNormalLarge")

	title:SetPoint("TOPLEFT", 16, -16)
	title:SetText(addonName)

	local subtitle = frame:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
	subtitle:SetHeight(32)
	subtitle:SetPoint("TOPLEFT", title, "BOTTOMLEFT", 0, -8)
	subtitle:SetPoint("RIGHT", about, -32, 0)
	subtitle:SetNonSpaceWrap(true)
	subtitle:SetJustifyH("LEFT")
	subtitle:SetJustifyV("TOP")
	subtitle:SetText(notes)

	local anchor
	for _, field in pairs(fields) do
		local val
		if (field == "Backported") then
			val = "Tsoukie (Based on v3.4.14)"
		else
			val = GetAddOnMetadata(addonName, field)
		end
		if val then
			local title = frame:CreateFontString(nil, "ARTWORK", "GameFontNormalSmall")
			title:SetWidth(75)
			if not anchor then
				title:SetPoint("TOPLEFT", subtitle, "BOTTOMLEFT", -2, -8)
			else
				title:SetPoint("TOPLEFT", anchor, "BOTTOMLEFT", 0, -6)
			end
			title:SetJustifyH("RIGHT")
			title:SetText(field)

			local detail = frame:CreateFontString(nil, "ARTWORK", "GameFontHighlightSmall")
			detail:SetPoint("LEFT", title, "RIGHT", 4, 0)
			detail:SetPoint("RIGHT", -16, 0)
			detail:SetJustifyH("LEFT")
			detail:SetText(val)

			anchor = title
		end
	end

	-- Clear the OnShow so it only happens once
	frame:SetScript("OnShow", nil)
end

addon.optpanels = addon.optpanels or {}
addon.optpanels.ABOUT = about

about:SetScript("OnShow", about.OnShow)
InterfaceOptions_AddCategory(addon.optpanels.ABOUT)

--[[-------------------------------------------------------------------------
--  End Dialog
-------------------------------------------------------------------------]] --

local panel = CreateFrame("Frame")
panel.name = L["General Options"]
panel.parent = addonName

addon.optpanels.GENERAL = panel

panel:SetScript("OnShow", function(self)
	if not panel.initialized then
		panel:CreateOptions()
		panel.refresh()
	end
end)

local function make_checkbox(name, parent)
	local frame = CreateFrame("CheckButton", name, parent, "UICheckButtonTemplate")
	frame.text = _G[frame:GetName() .. "Text"]
	frame.type = "checkbox"
	return frame
end

local function make_dropdown(name, parent)
	local frame = CreateFrame("Frame", name, parent, "UIDropDownMenuTemplate")
	frame:SetClampedToScreen(true)
	frame.type = "dropdown"
	return frame
end

local function make_label(name, parent, template)
	local label = parent:CreateFontString("OVERLAY", name, template)
	label:SetWidth(120)
	label:SetJustifyH("LEFT")
	label.type = "label"
	return label
end

local function make_editbox_with_button(editName, buttonName, parent)
	local editbox = CreateFrame("EditBox", editName, parent)
	editbox:SetHeight(32)
	editbox:SetWidth(200)
	editbox:SetAutoFocus(false)
	editbox:SetFontObject('GameFontHighlightSmall')
	editbox.type = "editbox"

	local left = editbox:CreateTexture(nil, "BACKGROUND")
	left:SetWidth(8)
	left:SetHeight(20)
	left:SetPoint("LEFT", -5, 0)
	left:SetTexture("Interface\\Common\\Common-Input-Border")
	left:SetTexCoord(0, 0.0625, 0, 0.625)

	local right = editbox:CreateTexture(nil, "BACKGROUND")
	right:SetWidth(8)
	right:SetHeight(20)
	right:SetPoint("RIGHT", 0, 0)
	right:SetTexture("Interface\\Common\\Common-Input-Border")
	right:SetTexCoord(0.9375, 1, 0, 0.625)

	local center = editbox:CreateTexture(nil, "BACKGROUND")
	center:SetHeight(20)
	center:SetPoint("RIGHT", right, "LEFT", 0, 0)
	center:SetPoint("LEFT", left, "RIGHT", 0, 0)
	center:SetTexture("Interface\\Common\\Common-Input-Border")
	center:SetTexCoord(0.0625, 0.9375, 0, 0.625)

	editbox:SetScript("OnEscapePressed", editbox.ClearFocus)
	editbox:SetScript("OnEnterPressed", editbox.ClearFocus)
	editbox:SetScript("OnEditFocusGained", function() editbox:HighlightText(0, MAX_HIGHLIGHT_LEN) end)

	local button = CreateFrame("Button", buttonName, editbox, "UIPanelButtonTemplate2")
	button:Show()
	button:SetHeight(22)
	button:SetWidth(75)
	button:SetPoint("LEFT", editbox, "RIGHT", 0, 0)
	return editbox, button
end

function panel:CreateOptions()
	-- Ensure the panel isn't created twice (thanks haste)
	panel.initialized = true

	-- Create the general options panel here:
	local bits = {}

	self.updown = make_checkbox("CliqueOptionsUpDownClick", self)
	self.updown.text:SetText(L["Trigger bindings on the 'down' portion of the click (experimental)"])

	self.fastooc = make_checkbox("CliqueOptionsFastOoc", self)
	self.fastooc.text:SetText(L["Disable out of combat clicks when party members enter combat"])

	self.specswap = make_checkbox("CliqueOptionsSpecSwap", self)
	self.specswap.text:SetText(L["Swap profiles based on talent spec"])
	self.specswap.EnableDisable = function()
		if self.specswap:GetChecked() then
			for i = 1, 12 do UIDropDownMenu_EnableDropDown(panel["specswap" .. i]) end
		else
			for i = 1, 12 do UIDropDownMenu_DisableDropDown(panel["specswap" .. i]) end
		end
	end
	self.specswap:SetScript("PostClick", self.specswap.EnableDisable)

	for i = 1, 12 do
		self["specswap" .. i .. "label"] = make_label("CliqueOptionsSpecSwap" .. i .. "Label", self, "GameFontNormalSmall")
		self["specswap" .. i .. "label"]:SetText(L["Specialization Slot "] .. i .. L[":"])
		self["specswap" .. i] = make_dropdown("CliqueOptionsSpecSwap" .. i, self)
		UIDropDownMenu_SetWidth(self["specswap" .. i], 200)
		BlizzardOptionsPanel_SetupDependentControl(self.specswap, self["specswap" .. i])
	end

	self.profilelabel = make_label("CliqueOptionsProfileMgmtLabel", self, "GameFontNormalSmall")
	self.profilelabel:SetText(L["Profile Management:"])
	self.profiledd = make_dropdown("CliqueOptionsProfileMgmt", self)
	UIDropDownMenu_SetWidth(self.profiledd, 200)

	self.stopcastingfix = make_checkbox("CliqueOptionsStopCastingFix", self)
	self.stopcastingfix.text:SetText(L["Attempt to fix the issue introduced in 4.3 with casting on dead targets"])

	self.exportbindingslabel = make_label("CliqueOptionsExportBindingsLabel", self, "GameFontNormalSmall")
	self.exportbindingslabel:SetText(L["Export bindings:"])
	self.exportbindingseditbox, self.exportbindingsbutton = make_editbox_with_button("CliqueOptionsExportBindingsEditbox", "CliqueOptionsExportBindingsEditboxButton", self)

	self.exportbindingsbutton:SetText(L["Generate"])
	self.exportbindingsbutton:SetScript("OnClick", function(self, button)
		local payload = addon:GetExportString()
		local editbox = self:GetParent()
		editbox:SetText(payload)
		editbox:SetFocus()
		editbox:HighlightText(0, MAX_HIGHLIGHT_LEN)
	end)

	self.importbindingslabel = make_label("CliqueOptionsImportBindingsLabel", self, "GameFontNormalSmall")
	self.importbindingslabel:SetText(L["Import bindings:"])
	local importEditbox, importButton = make_editbox_with_button("CliqueOptionsImportBindingsEditbox", "CliqueOptionsImportBindingsEditboxButton", self)
	self.importbindingseditbox, self.importbindingsbutton = importEditbox, importButton
	self.importbindingseditbox:SetScript("OnTextChanged", function(self, userInput)
		importButton.validated = false
		importButton:SetText(L["Validate"])
	end)

	self.importbindingsbutton.validated = false
	self.importbindingsbutton:SetText(L["Validate"])
	self.importbindingsbutton:SetScript("OnClick", function(self, button)
		if self.validated then
			if not InCombatLockdown() then addon:ImportBindings(self.bindingData) end
			self:SetText(L["Success!"])
			importEditbox:SetText("")
		else
			local editbox = self:GetParent()
			local payload = editbox:GetText()

			local bindingData = addon:DecodeExportString(payload)
			if bindingData then
				self:SetText(L["Import"])
				self.validated = true
				self.bindingData = bindingData
			else
				self:SetText(L["Invalid"])
				self.validated = false
			end
		end
	end)

	-- Collect and anchor the bits together
	table.insert(bits, self.updown)
	table.insert(bits, self.fastooc)
	table.insert(bits, self.stopcastingfix)
	table.insert(bits, self.specswap)
	table.insert(bits, self.profilelabel)
	table.insert(bits, self.profiledd)
	table.insert(bits, self.exportbindingslabel)
	table.insert(bits, self.exportbindingseditbox)
	table.insert(bits, self.importbindingslabel)
	table.insert(bits, self.importbindingseditbox)
	for i = 1, 12 do
		table.insert(bits, self["specswap" .. i .. "label"])
		table.insert(bits, self["specswap" .. i])
	end

	bits[1]:SetPoint("TOPLEFT", 5, -5)

	local bump = 1
	for i = 2, #bits, 1 do
		if bits[i].type == "label" then
			bits[i]:SetPoint("TOPLEFT", bits[i - bump], "BOTTOMLEFT", 0, -15)
			if bump == 1 then bump = 2 end
		elseif bits[i].type == "dropdown" then
			bits[i]:SetPoint("LEFT", bits[i - 1], "RIGHT", 5, -5)
		elseif bits[i].type == "editbox" then
			bits[i]:SetPoint("LEFT", bits[i - 1], "RIGHT", 5, 0)
		else
			bits[i]:SetPoint("TOPLEFT", bits[i - 1], "BOTTOMLEFT", 0, -5)
		end
	end

	-- Trigger bindings on 'down' clicks instead of 'up' clicks
	-- Automatically switch profile based on spec
	--   Dropdown to select primary profile
	--   Dropdown to select secondary profile
	-- Profile managerment
	--   * set profile
	--   * delete profile
	--   * add profile
end

StaticPopupDialogs["CLIQUE_CONFIRM_PROFILE_DELETE"] = {
	button1 = YES,
	button2 = NO,
	hideOnEscape = 1,
	timeout = 0,
	whileDead = 1
}

StaticPopupDialogs["CLIQUE_NEW_PROFILE"] = {
	text = TEXT("Enter the name of a new profile you'd like to create"),
	button1 = TEXT(OKAY),
	button2 = TEXT(CANCEL),
	OnAccept = function(self)
		local base = self:GetName()
		local editbox = _G[base .. "EditBox"]
		local profileName = editbox:GetText()
		addon.db:SetProfile(profileName)
	end,
	timeout = 0,
	whileDead = 1,
	exclusive = 1,
	showAlert = 1,
	hideOnEscape = 1,
	hasEditBox = 1,
	maxLetters = 32,
	OnShow = function(self)
		_G[self:GetName() .. "Button1"]:Disable();
		_G[self:GetName() .. "EditBox"]:SetFocus();
	end,
	EditBoxOnEnterPressed = function(self)
		if (_G[self:GetParent():GetName() .. "Button1"]:IsEnabled() == 1) then
			local base = self:GetParent():GetName()
			local editbox = _G[base .. "EditBox"]
			local profileName = editbox:GetText()
			addon.db:SetProfile(profileName)
		end
		self:GetParent():Hide();
	end,
	EditBoxOnTextChanged = function(self)
		local editBox = _G[self:GetParent():GetName() .. "EditBox"];
		local txt = editBox:GetText()
		if #txt > 0 then
			_G[self:GetParent():GetName() .. "Button1"]:Enable();
		else
			_G[self:GetParent():GetName() .. "Button1"]:Disable();
		end
	end,
	EditBoxOnEscapePressed = function(self)
		self:GetParent():Hide();
		ClearCursor();
	end
}

local function getsorttbl()
	local profiles = addon.db:GetProfiles()
	local sort = {}
	for idx, profileName in ipairs(profiles) do table.insert(sort, profileName) end
	table.sort(sort)
	return sort
end

local function spec_initialize(dropdown, level)
	local sort = getsorttbl()
	local paged = (#sort >= 15)

	if not level or level == 1 then
		if not paged then
			-- Display the profiles un-paged
			for idx, entry in ipairs(sort) do
				local info = UIDropDownMenu_CreateInfo()
				info.text = entry
				info.value = entry
				info.func = function(frame, ...) UIDropDownMenu_SetSelectedValue(dropdown, entry) end
				UIDropDownMenu_AddButton(info, level)
			end
		else
			-- Page the results into sub-menus
			for idx = 1, #sort, 10 do
				-- Make the submenus for each group
				local lastidx = (idx + 9 > #sort) and #sort or (idx + 9)
				local info = UIDropDownMenu_CreateInfo()
				local first = sort[idx]
				local last = sort[lastidx]
				info.text = first:sub(1, 5):trim() .. ".." .. last:sub(1, 5):trim()
				info.value = idx
				info.hasArrow = true
				info.notCheckable = true
				UIDropDownMenu_AddButton(info, level)
			end
		end
	elseif level == 2 then
		-- Generate the appropriate submenus depending on need
		if paged then
			-- Generate the frame submenu
			local startIdx = UIDROPDOWNMENU_MENU_VALUE
			local lastIdx = (startIdx + 9 > #sort) and #sort or (startIdx + 9)
			for idx = startIdx, lastIdx do
				local info = UIDropDownMenu_CreateInfo()
				info.text = sort[idx]
				info.value = sort[idx]
				info.func = function(frame, ...) UIDropDownMenu_SetSelectedValue(dropdown, sort[idx]) end
				UIDropDownMenu_AddButton(info, level)
			end
		end
	end
end

local function mgmt_initialize(dropdown, level)
	local sort = getsorttbl()
	local paged = (#sort >= 15)
	local currentProfile = addon.db:GetCurrentProfile()

	if not level or level == 1 then
		if not paged then
			-- Display the profiles un-paged
			for idx, entry in ipairs(sort) do
				local info = UIDropDownMenu_CreateInfo()
				info.text = entry
				info.value = entry
				info.notCheckable = true
				info.hasArrow = true
				UIDropDownMenu_AddButton(info, level)
			end
		else
			-- Page the results into sub-menus
			for idx = 1, #sort, 10 do
				-- Make the submenus for each group
				local lastidx = (idx + 9 > #sort) and #sort or (idx + 9)
				local info = UIDropDownMenu_CreateInfo()
				local first = sort[idx]
				local last = sort[lastidx]
				info.text = first:sub(1, 5):trim() .. ".." .. last:sub(1, 5):trim()
				info.value = idx
				info.notCheckable = true
				info.hasArrow = true
				UIDropDownMenu_AddButton(info, level)
			end
		end

		-- Create the 'Add profile' option regardless
		local info = UIDropDownMenu_CreateInfo()
		info.text = L["Add new profile"]
		info.value = "add"
		info.notCheckable = true
		info.func = function()
			HideDropDownMenu(1)
			StaticPopup_Show("CLIQUE_NEW_PROFILE")
		end
		UIDropDownMenu_AddButton(info, level)
	elseif level == 2 then
		-- Generate the appropriate submenus depending on need
		if paged then
			-- Generate the frame submenu
			local startIdx = UIDROPDOWNMENU_MENU_VALUE
			local lastIdx = (startIdx + 9 > #sort) and #sort or (startIdx + 9)
			for idx = startIdx, lastIdx do
				local info = UIDropDownMenu_CreateInfo()
				info.text = sort[idx]
				info.value = sort[idx]
				info.hasArrow = true
				info.notCheckable = true
				UIDropDownMenu_AddButton(info, level)
			end
		else
			local info = UIDropDownMenu_CreateInfo()
			info.text = L["Select profile: %s"]:format(UIDROPDOWNMENU_MENU_VALUE)
			info.value = sort[UIDROPDOWNMENU_MENU_VALUE]
			info.notCheckable = true
			-- Don't disable this, allow the user to make their own mistakes
			-- info.disabled = addon.settings.specswap
			info.func = function(frame)
				UIDropDownMenu_SetSelectedValue(dropdown, UIDROPDOWNMENU_MENU_VALUE)
				UIDropDownMenu_SetText(dropdown, UIDROPDOWNMENU_MENU_VALUE)
				addon.db:SetProfile(UIDROPDOWNMENU_MENU_VALUE)
			end
			UIDropDownMenu_AddButton(info, level)

			info = UIDropDownMenu_CreateInfo()
			info.text = L["Delete profile: %s"]:format(UIDROPDOWNMENU_MENU_VALUE)
			info.disabled = UIDROPDOWNMENU_MENU_VALUE == currentProfile
			info.value = sort[UIDROPDOWNMENU_MENU_VALUE]
			info.notCheckable = true
			info.func = function(frame)
				local dialog = StaticPopupDialogs["CLIQUE_CONFIRM_PROFILE_DELETE"]
				dialog.text = L["Delete profile '%s'"]:format(UIDROPDOWNMENU_MENU_VALUE)
				dialog.OnAccept = function(self) addon.db:DeleteProfile(UIDROPDOWNMENU_MENU_VALUE) end
				HideDropDownMenu(1)
				StaticPopup_Show("CLIQUE_CONFIRM_PROFILE_DELETE")
			end
			UIDropDownMenu_AddButton(info, level)
		end
	elseif level == 3 then
		local info = UIDropDownMenu_CreateInfo()
		info.text = L["Select profile: %s"]:format(UIDROPDOWNMENU_MENU_VALUE)
		info.value = sort[UIDROPDOWNMENU_MENU_VALUE]
		-- info.disabled = addon.settings.specswap
		info.disabled = UIDROPDOWNMENU_MENU_VALUE == currentProfile

		info.func = function(frame)
			UIDropDownMenu_SetSelectedValue(dropdown, UIDROPDOWNMENU_MENU_VALUE)
			UIDropDownMenu_SetText(dropdown, UIDROPDOWNMENU_MENU_VALUE)
			addon.db:SetProfile(UIDROPDOWNMENU_MENU_VALUE)
		end
		UIDropDownMenu_AddButton(info, level)

		info = UIDropDownMenu_CreateInfo()
		info.text = L["Delete profile: %s"]:format(UIDROPDOWNMENU_MENU_VALUE)
		info.disabled = UIDROPDOWNMENU_MENU_VALUE == currentProfile
		info.value = sort[UIDROPDOWNMENU_MENU_VALUE]
		info.func = function(frame)
			local dialog = StaticPopupDialogs["CLIQUE_CONFIRM_PROFILE_DELETE"]
			dialog.text = L["Delete profile '%s'"]:format(UIDROPDOWNMENU_MENU_VALUE)
			dialog.OnAccept = function(self) addon.db:DeleteProfile(UIDROPDOWNMENU_MENU_VALUE) end
			HideDropDownMenu(1)
			StaticPopup_Show("CLIQUE_CONFIRM_PROFILE_DELETE")
		end
		UIDropDownMenu_AddButton(info, level)
	end
end

-- Update the elements on the panel to the current state
function panel.refresh()
	-- Initialize the dropdowns
	local settings = addon.settings
	local currentProfile = addon.db:GetCurrentProfile()

	UIDropDownMenu_Initialize(panel.profiledd, mgmt_initialize)
	UIDropDownMenu_SetSelectedValue(panel.profiledd, currentProfile)
	UIDropDownMenu_SetText(panel.profiledd, L["Current: "] .. currentProfile)

	for i = 1, 12 do
		UIDropDownMenu_Initialize(panel["specswap" .. i], spec_initialize)
		UIDropDownMenu_SetSelectedValue(panel["specswap" .. i], settings["specswap" .. i] or currentProfile)
		UIDropDownMenu_SetText(panel["specswap" .. i], settings["specswap" .. i] or currentProfile)
	end

	panel.updown:SetChecked(settings.downclick)
	panel.fastooc:SetChecked(settings.fastooc)
	panel.stopcastingfix:SetChecked(settings.stopcastingfix)
	panel.specswap:SetChecked(settings.specswap)
	panel.specswap.EnableDisable()
end

function panel.okay()
	local settings = addon.settings
	local currentProfile = addon.db:GetCurrentProfile()

	local changed = (not not panel.stopcastingfix:GetChecked()) ~= settings.stopcastingfix

	-- Update the saved variables
	settings.downclick = not not panel.updown:GetChecked()
	settings.stopcastingfix = not not panel.stopcastingfix:GetChecked()
	settings.fastooc = not not panel.fastooc:GetChecked()
	settings.specswap = not not panel.specswap:GetChecked()
	for i = 1, 12 do settings["specswap" .. i] = UIDropDownMenu_GetSelectedValue(panel["specswap" .. i]) end

	if newProfile ~= currentProfile then addon.db:SetProfile(newProfile) end
	addon:UpdateCombatWatch()

	if changed then addon:FireMessage("BINDINGS_CHANGED") end
end

panel.cancel = panel.refresh

function addon:UpdateOptionsPanel() if panel:IsVisible() and panel.initialized then panel.refresh() end end

InterfaceOptions_AddCategory(panel, addon.optpanels.ABOUT)