--[[

	The MIT License (MIT)

	Copyright (c) 2024 Lars Norberg

	Permission is hereby granted, free of charge, to any person obtaining a copy
	of this software and associated documentation files (the "Software"), to deal
	in the Software without restriction, including without limitation the rights
	to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
	copies of the Software, and to permit persons to whom the Software is
	furnished to do so, subject to the following conditions:

	The above copyright notice and this permission notice shall be included in all
	copies or substantial portions of the Software.

	THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
	IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
	FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
	AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
	LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
	OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
	SOFTWARE.

--]]
local _, ns = ...

local MicroMenu = ns:NewModule("MicroMenu", "LibMoreEvents-1.0", "AceHook-3.0")

local Colors = ns.Colors
local GetFont = ns.API.GetFont
local GetMedia = ns.API.GetMedia

MicroMenu.SpawnButtons = function(self)

	-- Retail
	local labels = {
		CharacterMicroButton = CHARACTER_BUTTON,
		ProfessionMicroButton = TRADE_SKILLS,
		SpellbookMicroButton = SPELLBOOK_ABILITIES_BUTTON,
		TalentMicroButton = TALENTS_BUTTON,
		AchievementMicroButton = ACHIEVEMENT_BUTTON,
		QuestLogMicroButton = QUESTLOG_BUTTON,
		QuickJoinToastButton = SOCIALS,
		GuildMicroButton = LOOKINGFORGUILD,
		LFDMicroButton = DUNGEONS_BUTTON,
		CollectionsMicroButton = COLLECTIONS,
		EJMicroButton = ADVENTURE_JOURNAL or ENCOUNTER_JOURNAL,
		StoreMicroButton = BLIZZARD_STORE,
		MainMenuMicroButton = MAINMENU_BUTTON
	}

	-- Cata Classic
	if (ns.IsCata) then
		labels = {
			CharacterMicroButton = CHARACTER_BUTTON,
			SpellbookMicroButton = SPELLBOOK_ABILITIES_BUTTON,
			TalentMicroButton = TALENTS_BUTTON,
			AchievementMicroButton = ACHIEVEMENT_BUTTON,
			QuestLogMicroButton = QUESTLOG_BUTTON,
			SocialsMicroButton = SOCIALS,
			PVPMicroButton = PLAYER_V_PLAYER,
			LFGMicroButton = LFG_BUTTON,
			MainMenuMicroButton = MAINMENU_BUTTON,
			HelpMicroButton = HELP_BUTTON
		}
	end

	-- Classic Era
	if (ns.IsClassic) then
		labels = {
			CharacterMicroButton = CHARACTER_BUTTON,
			SpellbookMicroButton = SPELLBOOK_ABILITIES_BUTTON,
			TalentMicroButton = TALENTS,
			QuestLogMicroButton = QUESTLOG_BUTTON,
			SocialsMicroButton = SOCIAL_BUTTON,
			WorldMapMicroButton = WORLDMAP_BUTTON,
			LFGMicroButton = LFG_BUTTON,
			MainMenuMicroButton = MAINMENU_BUTTON,
			HelpMicroButton = HELP_BUTTON
		}
	end

	-- Retail
	local buttons = {
		CharacterMicroButton,
		ProfessionMicroButton,
		SpellbookMicroButton,
		TalentMicroButton,
		AchievementMicroButton,
		QuestLogMicroButton,
		QuickJoinToastButton,
		GuildMicroButton,
		LFDMicroButton,
		CollectionsMicroButton,
		EJMicroButton,
		StoreMicroButton,
		MainMenuMicroButton
	}

	-- Wrath Classic
	if (ns.IsCata) then
		buttons = {
			CharacterMicroButton,
			SpellbookMicroButton,
			TalentMicroButton,
			AchievementMicroButton,
			QuestLogMicroButton,
			SocialsMicroButton,
			PVPMicroButton,
			LFGMicroButton,
			MainMenuMicroButton,
			HelpMicroButton
		}
	end

	-- Classic
	if (ns.IsClassic) then
		buttons = {
			CharacterMicroButton,
			SpellbookMicroButton,
			TalentMicroButton,
			QuestLogMicroButton,
			SocialsMicroButton,
			WorldMapMicroButton,
			MainMenuMicroButton,
			HelpMicroButton
		}
	end

	self.buttons = {}

	local bar = CreateFrame("Frame", ns.Prefix.."MicroMenu", UIParent, "SecureHandlerStateTemplate")
	bar:SetFrameStrata("HIGH")
	bar:SetScale(ns.API.GetEffectiveScale())
	bar:Hide()

	self.bar = bar

	local backdrop = CreateFrame("Frame", nil, bar, ns.BackdropTemplate)
	backdrop:SetFrameLevel(bar:GetFrameLevel())
	backdrop:SetBackdrop({
		bgFile = [[Interface\Tooltips\UI-Tooltip-Background]],
		edgeSize = 32, edgeFile = GetMedia("border-tooltip"),
		tile = true,
		insets = { left = 8, right = 8, top = 16, bottom = 16 }
	})
	backdrop:SetBackdropColor(.05, .05, .05, .95)

	for i,microButton in next,buttons do
		if (microButton) then
			local button = CreateFrame("Button", nil, bar, "SecureActionButtonTemplate")
			button.ref = microButton

			if (ns.WoW10) then
				button:RegisterForClicks("AnyUp","AnyDown")
			else
				button:RegisterForClicks("AnyUp")
			end

			if (microButton == CharacterMicroButton) then
				button.nocombat = true
				button:SetScript("OnClick", function(self, button, down)
					if (InCombatLockdown()) then return end
					if (ns.WoW10) then
						local castondown = GetCVarBool("ActionButtonUseKeyDown")
						if (castondown and not down) or (not castondown and down) then return end
					end
					ToggleCharacter("PaperDollFrame")
				end)

			elseif (microButton == MainMenuMicroButton) then
				button.nocombat = true
				button:SetScript("OnClick", function(self, button, down)
					if (InCombatLockdown()) then return end
					if (ns.WoW10) then
						local castondown = GetCVarBool("ActionButtonUseKeyDown")
						if (castondown and not down) or (not castondown and down) then return end
					end
					if (not GameMenuFrame:IsShown()) then
						if (not AreAllPanelsDisallowed or not AreAllPanelsDisallowed()) then
							if (SettingsPanel and SettingsPanel:IsShown()) then
								SettingsPanel:Close()
							end
							CloseMenus()
							CloseAllWindows()
							PlaySound(SOUNDKIT.IG_MAINMENU_OPEN)
							ShowUIPanel(GameMenuFrame)
						end
					else
						PlaySound(SOUNDKIT.IG_MAINMENU_QUIT)
						HideUIPanel(GameMenuFrame)
					end
				end)
			elseif (ns.IsCata and microButton == PVPMicroButton) then
				button.nocombat = true
				button:SetScript("OnClick", function(self)
					if (InCombatLockdown()) then return end
					TogglePVPFrame()
				end)
			elseif (ns.IsCata and microButton == LFGMicroButton) then
				button.nocombat = true
				button:SetScript("OnClick", function(self)
					if (InCombatLockdown()) then return end
					PVEFrame_ToggleFrame()
				end)
			else
				button:SetAttribute("type", "macro")
				button:SetAttribute("click", "macro")
				button:SetAttribute("macrotext", "/click "..microButton:GetName())
				button:SetAttribute("pressAndHoldAction", true)
			end
			button:SetSize(200,30)
			button:SetPoint("BOTTOMRIGHT", bar, "BOTTOMRIGHT", 0, 0 + #self.buttons*32)

			local backdrop = button:CreateTexture(nil, "ARTWORK")
			backdrop:SetPoint("TOPLEFT", 1,-1)
			backdrop:SetPoint("BOTTOMRIGHT", -1,1)
			backdrop:SetColorTexture(1,1,1,.9)
			button.backdrop = backdrop

			local text = button:CreateFontString(nil, "OVERLAY")
			text:SetFontObject(GetFont(13,true))
			text:SetText(labels[microButton:GetName()])
			text:SetJustifyH("CENTER")
			text:SetJustifyV("MIDDLE")
			text:SetPoint("CENTER")
			button.text = text

			button:SetScript("OnEnter", function(self)
				text:SetTextColor(unpack(Colors.highlight))
				backdrop:SetVertexColor(.25,.25,.25)
			end)

			button:SetScript("OnLeave", function(self)
				if (self:IsEnabled()) then
					text:SetTextColor(unpack(Colors.offwhite))
				else
					text:SetTextColor(unpack(Colors.gray))
				end
				backdrop:SetVertexColor(.1,.1,.1)
			end)

			button:GetScript("OnLeave")(button)

			self.buttons[#self.buttons + 1] = button
		end
	end

	backdrop:SetPoint("RIGHT", self.buttons[1], "RIGHT", 10, 0)
	backdrop:SetPoint("BOTTOM", self.buttons[1], "BOTTOM", 0, -20)
	backdrop:SetPoint("LEFT", self.buttons[1], "LEFT", -10, 0)
	backdrop:SetPoint("TOP", self.buttons[#self.buttons], "TOP", 0, 18)

	local toggle = CreateFrame("CheckButton", ns.Prefix.."MicroMenuToggleButton", UIParent, "SecureHandlerClickTemplate")
	toggle:SetScale(ns.API.GetEffectiveScale())
	toggle:SetSize(48, 48)
	toggle:SetPoint("BOTTOMRIGHT", UIParent, "BOTTOMRIGHT", -4 / ns.API.GetEffectiveScale(), 4 / ns.API.GetEffectiveScale())
	toggle:RegisterForClicks("AnyUp")
	toggle:SetFrameRef("Bar", bar)

	self.toggle = toggle

	bar:SetPoint("BOTTOMRIGHT", toggle, "TOPLEFT", 0, 0)
	bar:SetSize(200, 4 + 32*#self.buttons)

	toggle:SetAttribute("_onclick", [[
		local bar = self:GetFrameRef("Bar");
		if (bar:IsShown()) then
			bar:Hide();
		else
			bar:Show();
		end
		bar:UnregisterAutoHide();
		if (bar:IsShown()) then
			bar:RegisterAutoHide(.75);
			bar:AddToAutoHide(self);
		end
	]])

	local texture = toggle:CreateTexture(nil, "ARTWORK", nil, 0)
	texture:SetSize(96, 96)
	texture:SetPoint("CENTER", 0, 0)
	texture:SetTexture(GetMedia("config_button"))
	texture:SetVertexColor(Colors.ui[1], Colors.ui[2], Colors.ui[3])

	RegisterStateDriver(toggle, "visibility", "[petbattle]hide;show")
end

MicroMenu.UpdateButtons = function(self)
	if (InCombatLockdown()) then return end
	for i,button in next,self.buttons do
		if (button.nocombat) then
			if (self.incombat) then
				button:Disable()
				button:GetScript("OnLeave")(button)
			else
				button:Enable()
				if (button:IsMouseOver()) then
					button:GetScript("OnEnter")(button)
				else
					button:GetScript("OnLeave")(button)
				end
			end
		end
	end
end

MicroMenu.UpdateScale = function(self)
	if (InCombatLockdown()) then
		self.updateneeded = true
		return
	end
	if (self.toggle) then
		self.toggle:SetScale(ns.API.GetEffectiveScale())
		self.toggle:ClearAllPoints()
		self.toggle:SetPoint("BOTTOMRIGHT", UIParent, "BOTTOMRIGHT", -4 / ns.API.GetEffectiveScale(), 4 / ns.API.GetEffectiveScale())
	end
	if (self.bar) then
		self.bar:SetScale(ns.API.GetEffectiveScale())
	end
end

MicroMenu.OnEvent = function(self, event, ...)
	if (event == "PLAYER_ENTERING_WORLD") then
		self.incombat = nil
	elseif (event == "PLAYER_REGEN_DISABLED") then
		self.incombat = true
	elseif (event == "PLAYER_REGEN_ENABLED") then
		if (InCombatLockdown()) then return end
		if (self.updateneeded) then
			self.updateneeded = nil
			self:UpdateScale()
		end
		self.incombat = nil
	elseif (event == "UI_SCALE_CHANGED" or event == "DISPLAY_SIZE_CHANGED") then
		self:UpdateScale()
	end
	self:UpdateButtons()
end

MicroMenu.OnInitialize = function(self)
end

MicroMenu.OnEnable = function(self)

	-- Watch this, it is a potential source of taint in WoW11.
	if (ns.WoW10) then
		MicroMenuContainer.HighlightSystem = ns.Noop
		MicroMenuContainer.ClearHighlight = ns.Noop
	end

	self:SpawnButtons()
	self:RegisterEvent("DISPLAY_SIZE_CHANGED", "OnEvent")
	self:RegisterEvent("PLAYER_ENTERING_WORLD", "OnEvent")
	self:RegisterEvent("PLAYER_REGEN_DISABLED", "OnEvent")
	self:RegisterEvent("PLAYER_REGEN_ENABLED", "OnEvent")
	self:RegisterEvent("UI_SCALE_CHANGED", "OnEvent")
end
