--[[--
@submodule chorus
]]

local UIParent = UIParent

local Chorus = Chorus

local function runeFrame()
	local x = ((ChorusPlayerFrame:GetWidth() or 0) - (RuneFrame:GetWidth() or 0)) / 2
	local y = -60
	RuneFrame:SetPoint('TOPLEFT', ChorusPlayerFrame, 'TOPLEFT', x, y)
	RuneFrame:SetPoint('CENTER', ChorusPlayerFrame, 'CENTER', 0, 0)
end

local function disableNativeFrames()
	local t = {
		FocusFrame,
		PlayerFrame,
		TargetFrame,
		PartyMemberFrame1,
		PartyMemberFrame2,
		PartyMemberFrame3,
		PartyMemberFrame4,
		PartyMemberBackground,
	}
	local i = 0
	while (i < #t) do
		i = i + 1
		local e = t[i]
		if e then
			e:UnregisterAllEvents()
			e:SetScript('OnEvent', nil)
			e:SetScript('OnUpdate', nil)
			e:SetScript('OnShow', function(self1)
				self1:Hide()
			end)
			e:SetScript('OnHide', nil)
			e:Hide()
		end
	end

	runeFrame()
end

local function applyLayout(self)
	assert(self ~= nil)
	assert(UIParent ~= nil)

	self:UnregisterAllEvents();
	self:SetScript('OnEvent', nil)

	ChorusPlayerFrameHealthFrame.strategy = 'UnitClass'
	ChorusFocusFrameHealthFrame.strategy = 'UnitIsFriend'
	ChorusFocusFrameUnitNameFrame.strategy = 'UnitClass'

	ChorusTargetFrameHealthFrame.strategy = 'UnitIsFriend'
	ChorusTargetFrameUnitNameFrame.strategy = 'UnitClass'

end

--[[--
`ChorusFrame` is a concrete (not virtual tempalte) frame instance, that
orchestrates all over frames.

`ChorusFrame` is effectively a singleton.

@function chorusFrameMain
@tparam fram self
]]
local function chorusFrameMain(self)
	--[[ Wait for the game to finish loading completely, only then apply
	changes. ]]--

	self:SetScript('OnEvent', function(self0)
		applyLayout(self0)
		disableNativeFrames()
	end)

	self:RegisterEvent('PLAYER_ENTERING_WORLD');
	self:RegisterEvent('PLAYER_LOGIN');
end

Chorus.chorusFrameMain = function(...)
	return chorusFrameMain(...)
end