local m, public, private = aux.module'gui'

public.config = {
	color = {
		text = {enabled = {255, 254, 250, 1}, disabled = {147, 151, 139, 1}},
		label = {enabled = {216, 225, 211, 1}, disabled = {150, 148, 140, 1}},
		link = {153, 255, 255, 1},
		window = {backdrop = {24, 24, 24, .93}, border = {30, 30, 30, 1}},
		panel = {backdrop = {24, 24, 24, 1}, border = {255, 255, 255, .03}},
		content = {backdrop = {42, 42, 42, 1}, border = {0, 0, 0, 0}},
		state = {enabled = {70, 180, 70}, disabled = {190, 70, 70}},
		money1 = {gold = {255, 215, 10, 1}, silver = {252, 199, 207, 1}, copper = {237, 165, 95, 1}},
		money2 = {gold = {}, silver = {}, copper = {}},
	},
    edge_size = 1.5,
    font = [[Fonts\ARIALN.TTF]],
    small_font_size = 13,
	small_font_size2 = 14,
    medium_font_size = 15,
	medium_font_size2 = 16,
	large_font_size = 17,
	large_font_size2 = 18,
    huge_font_size = 23,
}

public.color = aux.index_function(function(self, key)
	self._t = (rawget(self, '_t') or m.config.color)[key]
	if getn(self._t) == 0 then
		return self
	end
	local color = aux.util.copy(self._t)
	self._t = nil
	for i=1,3 do
		color[i] = color[i]/255
	end
	return color
end)

public.inline_color = aux.index_function(function(self, key)
	self._t = (rawget(self, '_t') or m.config.color)[key]
	if getn(self._t) == 0 then
		return self
	end
	local color = aux.util.copy(self._t)
	self._t = nil
	tinsert(color, 1, tremove(color))
	return format('|c%02X%02X%02X%02X', unpack(color))
end)

do
	local dropdown

	function public.menu(...)
		UIDropDownMenu_Initialize(dropdown, function()
			for i=1,arg.n-1 do
				UIDropDownMenu_AddButton{
					text = arg[i],
					value = i,
					func = function()
						return arg[arg.n](this.value)
					end,
				}
			end
		end, 'MENU')
		dropdown:SetPoint('BOTTOMLEFT', GetCursorPosition())
		ToggleDropDownMenu(nil, nil, dropdown, nil, 0, 0)
	end

	function private.initialize_menu()
		dropdown = CreateFrame('Frame', 'aux_frame'..aux.id(), UIParent, 'UIDropDownMenuTemplate')
		dropdown:SetWidth(1)
		dropdown:SetHeight(1)
		dropdown:SetAlpha(0)
	end

end

function m.LOAD()
	m.initialize_menu()

	local backdrop = DropDownList1Backdrop:GetBackdrop()

	DropDownList1Backdrop.border = DropDownList1Backdrop:CreateTexture()
	DropDownList1Backdrop.border:SetTexture(1,1,1,0.02)
	DropDownList1Backdrop.border:SetPoint('TOPLEFT', -1.5, 1.5)
	DropDownList1Backdrop.border:SetPoint('BOTTOMRIGHT', 1.5, -1.5)
	DropDownList1Backdrop.border:SetBlendMode('ADD')
	DropDownList1Backdrop.backdrop = DropDownList1Backdrop:CreateTexture()
	DropDownList1Backdrop.backdrop:SetTexture(unpack(m.color.content.backdrop))
	DropDownList1Backdrop.backdrop:SetAllPoints()

	aux.hook('ToggleDropDownMenu', function(...)
		local ret = {aux.orig.ToggleDropDownMenu(unpack(arg))}
		local dropdown = getglobal(arg[4] or '') or this:GetParent()
		if strfind(dropdown:GetName() or '', 'aux_frame') then
			DropDownList1Backdrop:SetBackdrop({})
			DropDownList1Backdrop.border:Show()
			DropDownList1Backdrop.backdrop:Show()
			DropDownList1:SetWidth(dropdown:GetWidth() * 0.9)
			DropDownList1:SetHeight(DropDownList1:GetHeight() - 10)
			DropDownList1:SetPoint('TOPLEFT', dropdown, 'BOTTOMLEFT', -2, -2)
			for i=1,UIDROPDOWNMENU_MAXBUTTONS do
				local button = getglobal('DropDownList1Button'..i)
				button:SetPoint('TOPLEFT', 0, -((button:GetID() - 1) * UIDROPDOWNMENU_BUTTON_HEIGHT) - 7)
				button:SetPoint('TOPRIGHT', 0, -((button:GetID() - 1) * UIDROPDOWNMENU_BUTTON_HEIGHT) - 7)
				local text = button:GetFontString()
				text:SetFont(m.config.font, m.config.small_font_size2)
				text:SetPoint('TOPLEFT', 18, 0)
				text:SetPoint('BOTTOMRIGHT', -8, 0)
				local highlight = getglobal('DropDownList1Button'..i..'Highlight')
				highlight:ClearAllPoints()
				highlight:SetDrawLayer('OVERLAY')
				highlight:SetHeight(14)
				highlight:SetPoint('LEFT', 5, 0)
				highlight:SetPoint('RIGHT', -3, 0)
				local check = getglobal('DropDownList1Button'..i..'Check')
				check:SetWidth(16)
				check:SetHeight(16)
				check:SetPoint('LEFT', 3, -1)
			end
		else
			DropDownList1Backdrop:SetBackdrop(backdrop)
			DropDownList1Backdrop.border:Hide()
			DropDownList1Backdrop.backdrop:Hide()
			for i=1,UIDROPDOWNMENU_MAXBUTTONS do
				local button = getglobal('DropDownList1Button'..i)
				local text = button:GetFontString()
				text:SetFont([[Fonts\FRIZQT__.ttf]], 10)
				text:SetShadowOffset(1, -1)
				local highlight = getglobal('DropDownList1Button'..i..'Highlight')
				highlight:SetAllPoints()
				highlight:SetDrawLayer('BACKGROUND')
				local check = getglobal('DropDownList1Button'..i..'Check')
				check:SetWidth(24)
				check:SetHeight(24)
				check:SetPoint('LEFT', 0, 0)
			end
		end
		return unpack(ret)
	end)
end

function public.set_frame_style(frame, backdrop_color, border_color, left, right, top, bottom)
	frame:SetBackdrop{bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=m.config.edge_size, tile=true, insets={left=left, right=right, top=top, bottom=bottom}}
	frame:SetBackdropColor(unpack(backdrop_color))
	frame:SetBackdropBorderColor(unpack(border_color))
end

function public.set_window_style(frame, left, right, top, bottom)
    m.set_frame_style(frame, m.color.window.backdrop, m.color.window.border, left, right, top, bottom)
end

function public.set_panel_style(frame, left, right, top, bottom)
    m.set_frame_style(frame, m.color.panel.backdrop, m.color.panel.border, left, right, top, bottom)
end

function public.set_content_style(frame, left, right, top, bottom)
    m.set_frame_style(frame, m.color.content.backdrop, m.color.content.border, left, right, top, bottom)
end

function public.panel(parent)
    local panel = CreateFrame('Frame', nil, parent)
    m.set_panel_style(panel)
    return panel
end

function public.checkbutton(parent, text_height)
    local button = m.button(parent, text_height)
    button.state = false
    button:SetBackdropColor(unpack(m.color.state.disabled))
    function button:SetChecked(state)
        if state then
            self:SetBackdropColor(unpack(m.color.state.enabled))
            self.state = true
        else
            self:SetBackdropColor(unpack(m.color.state.disabled))
            self.state = false
        end
    end
    function button:GetChecked()
        return self.state
    end
    return button
end

function public.button(parent, text_height)
    text_height = text_height or 16
    local button = CreateFrame('Button', nil, parent)
    m.set_content_style(button)
    local highlight = button:CreateTexture(nil, 'HIGHLIGHT')
    highlight:SetAllPoints()
    highlight:SetTexture(1, 1, 1, .2)
    highlight:SetBlendMode('BLEND')
    button.highlight = highlight
    do
        local label = button:CreateFontString()
        label:SetFont(m.config.font, text_height)
        label:SetPoint('CENTER', 0, 0)
        label:SetJustifyH('CENTER')
        label:SetJustifyV('CENTER')
        label:SetHeight(text_height)
        label:SetTextColor(unpack(m.color.text.enabled))
        button:SetFontString(label)
    end
    button.default_Enable = button.Enable
    function button:Enable()
        self:GetFontString():SetTextColor(unpack(m.color.text.enabled))
        return self:default_Enable()
    end
    button.default_Disable = button.Disable
    function button:Disable()
        self:GetFontString():SetTextColor(unpack(m.color.text.disabled))
        return self:default_Disable()
    end

    return button
end


function public.resize_tab(tab, width, padding)
    tab:SetWidth(width + padding + 10)
end


function public.tab_group(parent, orientation)

    local frame = CreateFrame('Frame', nil, parent)
    frame:SetHeight(100)
    frame:SetWidth(100)

    local self = {
        id = aux.id(),
        frame = parent,
        tabs = {},
    }

    function self:create_tab(text)
        local id = getn(self.tabs) + 1

        local tab = CreateFrame('Button', 'aux_tab_group'..self.id..'_tab'..id, self.frame)
        tab.id = id
        tab.group = self
        tab:SetHeight(24)
        tab:SetBackdrop{bgFile=[[Interface\Buttons\WHITE8X8]], edgeFile=[[Interface\Buttons\WHITE8X8]], edgeSize=m.config.edge_size}
        tab:SetBackdropBorderColor(unpack(m.color.panel.border))
        local dock = tab:CreateTexture(nil, 'OVERLAY')
        dock:SetHeight(3)
        if orientation == 'UP' then
            dock:SetPoint('BOTTOMLEFT', 1, -1)
            dock:SetPoint('BOTTOMRIGHT', -1, -1)
        elseif orientation == 'DOWN' then
            dock:SetPoint('TOPLEFT', 1, 1)
            dock:SetPoint('TOPRIGHT', -1, 1)
        end
        dock:SetTexture(unpack(m.color.panel.backdrop))
        tab.dock = dock
        local highlight = tab:CreateTexture(nil, 'HIGHLIGHT')
        highlight:SetAllPoints()
        highlight:SetTexture(1, 1, 1, .2)
        highlight:SetBlendMode('BLEND')
        tab.highlight = highlight

        tab.text = tab:CreateFontString()
        tab.text:SetPoint('LEFT', 3, -1)
        tab.text:SetPoint('RIGHT', -3, -1)
        tab.text:SetJustifyH('CENTER')
        tab.text:SetJustifyV('CENTER')
        tab.text:SetFont(m.config.font, m.config.large_font_size2)
        tab:SetFontString(tab.text)

        tab:SetText(text)

        tab:SetScript('OnClick', function()
            if this.id ~= this.group.selected then
	            PlaySound('igCharacterInfoTab')
                this.group:set_tab(this.id)
            end
        end)

        if getn(self.tabs) == 0 then
            if orientation == 'UP' then
                tab:SetPoint('BOTTOMLEFT', self.frame, 'TOPLEFT', 4, -1)
            elseif orientation == 'DOWN' then
                tab:SetPoint('TOPLEFT', self.frame, 'BOTTOMLEFT', 4, 1)
            end
        else
            if orientation == 'UP' then
                tab:SetPoint('BOTTOMLEFT', self.tabs[getn(self.tabs)], 'BOTTOMRIGHT', 4, 0)
            elseif orientation == 'DOWN' then
                tab:SetPoint('TOPLEFT', self.tabs[getn(self.tabs)], 'TOPRIGHT', 4, 0)
            end
        end

        m.resize_tab(tab, tab:GetFontString():GetStringWidth(), 4)

        tinsert(self.tabs, tab)
    end

    function self:set_tab(id)
        self.selected = id
        self.update_tabs()
        aux.call(self.on_select, id)
    end

    function self.update_tabs()
        for _, tab in self.tabs do
            if tab.group.selected == tab.id then
                tab.text:SetTextColor(unpack(m.color.label.enabled))
                tab:Disable()
                tab:SetBackdropColor(unpack(m.color.panel.backdrop))
                tab.dock:Show()
                tab:SetHeight(29)
            else
                tab.text:SetTextColor(unpack(m.color.text.enabled))
                tab:Enable()
                tab:SetBackdropColor(unpack(m.color.content.backdrop))
                tab.dock:Hide()
                tab:SetHeight(24)
            end
        end
    end

    return self
end

function public.editbox(parent)

    local editbox = CreateFrame('EditBox', nil, parent)
    editbox:SetAutoFocus(false)
    editbox:SetTextInsets(1, 2, 3, 3)
    editbox:SetMaxLetters(256)
    editbox:SetHeight(22)
    editbox:SetFont(m.config.font, m.config.medium_font_size)
    editbox:SetShadowColor(0, 0, 0, 0)
    m.set_content_style(editbox)
    editbox:SetScript('OnEditFocusGained', aux._(editbox.HighlightText, aux.this))
    editbox:SetScript('OnEditFocusLost', aux._(editbox.HighlightText, aux.this, 0, 0))
    editbox:SetScript('OnEscapePressed', aux._(editbox.ClearFocus, aux.this))
    do
        local last_time, last_x, last_y
        editbox:SetScript('OnMouseUp', function()
            local x, y = GetCursorPosition()
            if last_time and GetTime() - last_time < .5 and x == last_x and y == last_y then
	            last_time = nil
                this:HighlightText()
            else
                last_time = GetTime()
                last_x, last_y = x, y
            end
        end)
    end

    return editbox
end

function public.status_bar(parent)
    local self = CreateFrame('Frame', nil, parent)

    local level = parent:GetFrameLevel()

    self:SetFrameLevel(level + 1)

    do
        -- minor status bar (gray one)
        local status_bar = CreateFrame('STATUSBAR', nil, self, 'TextStatusBar')
        status_bar:SetOrientation('HORIZONTAL')
        status_bar:SetMinMaxValues(0, 100)
        status_bar:SetAllPoints()
        status_bar:SetStatusBarTexture([[Interface\Buttons\WHITE8X8]])
        status_bar:SetStatusBarColor(.42, .42, .42, .7)
        status_bar:SetFrameLevel(level + 2)
        status_bar:SetScript('OnUpdate', function()
            if this:GetValue() < 100 then
                this:SetAlpha(1 - ((math.sin(GetTime()*math.pi)+1)/2)/2)
            else
                this:SetAlpha(1)
            end
        end)
        self.minor_status_bar = status_bar
    end

    do
        -- major status bar (main blue one)
        local status_bar = CreateFrame('STATUSBAR', nil, self, 'TextStatusBar')
        status_bar:SetOrientation('HORIZONTAL')
        status_bar:SetMinMaxValues(0, 100)
        status_bar:SetAllPoints()
        status_bar:SetStatusBarTexture([[Interface\Buttons\WHITE8X8]])
        status_bar:SetStatusBarColor(.19, .22, .33, .9)
        status_bar:SetFrameLevel(level + 3)
        status_bar:SetScript('OnUpdate', function()
            if this:GetValue() < 100 then
                this:SetAlpha(1 - ((math.sin(GetTime()*math.pi)+1)/2)/2)
            else
                this:SetAlpha(1)
            end
        end)
        self.major_status_bar = status_bar
    end

    do
        local text_frame = CreateFrame('Frame', nil, self)
        text_frame:SetFrameLevel(level + 4)
        text_frame:SetAllPoints(self)
        local text = m.label(text_frame, 15)
        text:SetTextColor(unpack(m.color.text.enabled))
        text:SetPoint('CENTER', 0, 0)
        self.text = text
    end

    function self:update_status(major_status, minor_status)
        if major_status then
            self.major_status_bar:SetValue(major_status)
        end
        if minor_status then
            self.minor_status_bar:SetValue(minor_status)
        end
    end

    function self:set_text(text)
        self.text:SetText(text)
    end

    return self
end

function public.item(parent)
    local item = CreateFrame('Frame', nil, parent)
    item:SetWidth(260)
    item:SetHeight(40)
    local btn = CreateFrame('CheckButton', 'aux_frame'..aux.id(), item, 'ActionButtonTemplate')
    item.button = btn
    btn:SetPoint('LEFT', 2, .5)
    btn:SetHighlightTexture(nil)
    btn:RegisterForClicks()
    item.texture = getglobal(btn:GetName()..'Icon')
    item.texture:SetTexCoord(.06, .94, .06, .94)
    item.name = aux.gui.label(btn, 15)
    item.name:SetJustifyH('LEFT')
    item.name:SetPoint('LEFT', btn, 'RIGHT', 10, 0)
    item.name:SetPoint('RIGHT', item, 'RIGHT', -10, .5)
    item.count = getglobal(btn:GetName()..'Count')
    item.count:SetTextHeight(17)
    return item
end

function public.label(parent, size)
    local label = parent:CreateFontString()
    label:SetFont(m.config.font, size or m.config.small_font_size)
    label:SetTextColor(unpack(m.color.label.enabled))
    return label
end

function public.horizontal_line(parent, y_offset, inverted_color)
    local texture = parent:CreateTexture()
    texture:SetPoint('TOPLEFT', parent, 'TOPLEFT', 2, y_offset)
    texture:SetPoint('TOPRIGHT', parent, 'TOPRIGHT', -2, y_offset)
    texture:SetHeight(2)
    if inverted_color then
        texture:SetTexture(unpack(m.color.panel.backdrop))
    else
        texture:SetTexture(unpack(m.color.content.backdrop))
    end
    return texture
end

function public.vertical_line(parent, x_offset, top_offset, bottom_offset, inverted_color)
    local texture = parent:CreateTexture()
    texture:SetPoint('TOPLEFT', parent, 'TOPLEFT', x_offset, top_offset or -2)
    texture:SetPoint('BOTTOMLEFT', parent, 'BOTTOMLEFT', x_offset, bottom_offset or 2)
    texture:SetWidth(2)
    if inverted_color then
        texture:SetTexture(unpack(m.color.panel.backdrop))
    else
        texture:SetTexture(unpack(m.color.content.backdrop))
    end
    return texture
end


function public.dropdown(parent)
    local dropdown = CreateFrame('Frame', 'aux_frame'..aux.id(), parent, 'UIDropDownMenuTemplate')
	m.set_content_style(dropdown, 0, 0, 2, 2)

    getglobal(dropdown:GetName()..'Left'):Hide()
    getglobal(dropdown:GetName()..'Middle'):Hide()
    getglobal(dropdown:GetName()..'Right'):Hide()

    local button = getglobal(dropdown:GetName()..'Button')
    button:ClearAllPoints()
    button:SetPoint('RIGHT', dropdown, -1, 0)
    dropdown.button = button

    local text = getglobal(dropdown:GetName()..'Text')
    text:ClearAllPoints()
    text:SetPoint('RIGHT', button, 'LEFT', -2, 0)
    text:SetPoint('LEFT', 8, 0)
    text:SetFont(m.config.font, m.config.medium_font_size)
    text:SetShadowColor(0, 0, 0, 0)

    return dropdown
end

function public.slider(parent)

    local slider = CreateFrame('Slider', nil, parent)
    slider:SetOrientation('HORIZONTAL')
    slider:SetHeight(6)
    slider:SetHitRectInsets(0, 0, -12, -12)
    slider:SetValue(0)

    m.set_panel_style(slider)
    local thumb_texture = slider:CreateTexture(nil, 'ARTWORK')
    thumb_texture:SetPoint('CENTER', 0, 0)
    thumb_texture:SetTexture(unpack(m.color.content.backdrop))
    thumb_texture:SetHeight(18)
    thumb_texture:SetWidth(8)
    slider:SetThumbTexture(thumb_texture)

    local label = slider:CreateFontString(nil, 'OVERLAY')
    label:SetPoint('BOTTOMLEFT', slider, 'TOPLEFT', -3, 8)
    label:SetPoint('BOTTOMRIGHT', slider, 'TOPRIGHT', 6, 8)
    label:SetJustifyH('LEFT')
    label:SetHeight(13)
    label:SetFont(m.config.font, m.config.small_font_size)
    label:SetTextColor(unpack(m.color.label.enabled))

    local editbox = m.editbox(slider)
    editbox:SetPoint('LEFT', slider, 'RIGHT', 5, 0)
    editbox:SetWidth(50)
    editbox:SetHeight(18)
    editbox:SetJustifyH('CENTER')
    editbox:SetFont(m.config.font, 17)

    slider.label = label
    slider.editbox = editbox
    return slider
end

function public.checkbox(parent)
    local checkbox = CreateFrame('CheckButton', nil, parent, 'UICheckButtonTemplate')
    checkbox:SetWidth(16)
    checkbox:SetHeight(16)
	m.set_content_style(checkbox)
    checkbox:SetNormalTexture(nil)
    checkbox:SetPushedTexture(nil)
    checkbox:GetHighlightTexture():SetAllPoints()
    checkbox:GetHighlightTexture():SetTexture(1, 1, 1, .2)
    checkbox:GetCheckedTexture():SetTexCoord(.12, .88, .12, .88)
    checkbox:GetHighlightTexture('BLEND')
    return checkbox
end