--[[
##########################################################
S V U I   By: Failcoder
########################################################## 
LOCALIZED LUA FUNCTIONS
##########################################################
]]--
--[[ GLOBALS ]]--
local _G = _G;
local select  = _G.select;
local pairs   = _G.pairs;
local ipairs  = _G.ipairs;
local type    = _G.type;
local string  = _G.string;
local math    = _G.math;
local table   = _G.table;
--[[ STRING METHODS ]]--
local format, find = string.format, string.find;
--[[ MATH METHODS ]]--
local floor = math.floor;
local tonumber = tonumber;
--[[ 
########################################################## 
GET ADDON DATA
##########################################################
]]--
local SV = _G['SVUI']
local L = SV.L;
local MOD = SV.ActionBars;

local RefreshBindings
local NewFrame = CreateFrame;
local NewHook = hooksecurefunc;

local Binder = NewFrame("Frame", nil, UIParent);
--[[ 
########################################################## 
BINDING UPDATES
##########################################################
]]--
do
  --[[ HANDLERS ]]--
  local GameTooltip_OnHide = function(self)
    self:SetOwner(Binder, "ANCHOR_TOP")
    self:SetPoint("BOTTOM", Binder, "TOP", 0, 1)
    self:AddLine(Binder.button.name, 1, 1, 1)
    Binder.button.bindings = {GetBindingKey(Binder.button.bindstring)}
    local count = #Binder.button.bindings
    if(count == 0) then 
      self:AddLine(L["No bindings set."], .6, .6, .6)
    else 
      self:AddDoubleLine(L["Binding"], L["Key"], .6, .6, .6, .6, .6, .6)
      for i = 1, count do 
        self:AddDoubleLine(i, Binder.button.bindings[i])
      end 
    end 
    self:Show()
    self:SetScript("OnHide", nil)
  end
  --[[ END OF HANDLERS ]]--

  function RefreshBindings(bindTarget, bindType)
    if(not Binder.active or InCombatLockdown()) then return end 
    Binder.button = bindTarget;
    Binder.spellmacro = bindType;
    Binder:ClearAllPoints()
    Binder:SetAllPoints(bindTarget)
    Binder:Show()
    ShoppingTooltip1:Hide()
    if(bindTarget.FlyoutArrow and bindTarget.FlyoutArrow:IsShown()) then 
      Binder:EnableMouse(false)
    elseif(not Binder:IsMouseEnabled()) then 
      Binder:EnableMouse(true)
    end 
    local keyBindID, keyBindName, keyBindString;
    if bindType == "FLYOUT" then
      keyBindName = GetSpellInfo(bindTarget.spellID);
      keyBindString = ("SPELL %s"):format(keyBindName);
      Binder.button.name = keyBindName
      Binder.button.bindstring = keyBindString;
      GameTooltip:AddLine(L["Trigger"])
      GameTooltip:Show()
      GameTooltip:SetScript("OnHide", GameTooltip_OnHide)
    elseif bindType == "SPELL" then
      keyBindID = SpellBook_GetSpellBookSlot(bindTarget)
      keyBindName = GetSpellBookItemName(keyBindID, SpellBookFrame.bookType);
      keyBindString = ("SPELL %s"):format(keyBindName);
      Binder.button.id = keyBindID
      Binder.button.name = keyBindName
      Binder.button.bindstring = keyBindString;
      GameTooltip:AddLine(L["Trigger"])
      GameTooltip:Show()
      GameTooltip:SetScript("OnHide", GameTooltip_OnHide)
    elseif bindType == "MACRO" then
      keyBindID = bindTarget:GetID()
      if(floor(.5  +  select(2, MacroFrameTab1Text:GetTextColor())  *  10)  /  10 == .8) then 
        keyBindID = keyBindID  +  36
      end 
      keyBindName = GetMacroInfo(keyBindID)
      keyBindString = ("MACRO %s"):format(keyBindName);
      Binder.button.id = keyBindID
      Binder.button.name = keyBindName
      Binder.button.bindstring = keyBindString;
      Binder.button.bindings = {GetBindingKey(keyBindString)}
      GameTooltip:SetOwner(Binder, "ANCHOR_TOP")
      GameTooltip:SetPoint("BOTTOM", Binder, "TOP", 0, 1)
      GameTooltip:AddLine(keyBindName, 1, 1, 1)
      if #Binder.button.bindings == 0 then 
        GameTooltip:AddLine(L["No bindings set."], .6, .6, .6)
      else 
        GameTooltip:AddDoubleLine(L["Binding"], L["Key"], .6, .6, .6, .6, .6, .6)
        for i = 1, #Binder.button.bindings do
          local lineName = ("%s%d"):format(L["Binding"], i)
          GameTooltip:AddDoubleLine(lineName, Binder.button.bindings[i], 1, 1, 1)
        end 
      end 
      GameTooltip:Show()
    elseif bindType == "STANCE" or bindType == "PET" then
      keyBindID = tonumber(bindTarget:GetID())
      keyBindName = bindTarget:GetName()
      if(not keyBindName) then return end 
      if ((not keyBindID) or (keyBindID < 1) or (keyBindID > (bindType == "STANCE" and 10 or 12))) then 
        keyBindString = ("CLICK %s: LeftButton"):format(keyBindName);
      else 
        local tmpStr = bindType == "STANCE" and "StanceButton" or "BONUSACTIONBUTTON"
        keyBindString = ("%s%d"):format(tmpStr, keyBindID); 
      end 
      Binder.button.id = keyBindID
      Binder.button.name = keyBindName
      Binder.button.bindstring = keyBindString
      GameTooltip:AddLine(L["Trigger"])
      GameTooltip:Show()
      GameTooltip:SetScript("OnHide", GameTooltip_OnHide)
    else
      keyBindID = tonumber(bindTarget.action)
      keyBindName = bindTarget:GetName()
      if(not keyBindName) then return end 
      if(not bindTarget.keyBoundTarget and ((not keyBindID) or (keyBindID < 1) or (keyBindID > 132))) then 
        keyBindString = ("CLICK %s: LeftButton"):format(keyBindName);
      elseif(bindTarget.keyBoundTarget) then
        keyBindString = bindTarget.keyBoundTarget
      else
        local slotID = 1 + (keyBindID - 1) % 12;
        if((keyBindID < 25) or (keyBindID > 72)) then 
          keyBindString = ("ACTIONBUTTON%s"):format(slotID);
        elseif((keyBindID < 73) and (keyBindID > 60)) then 
          keyBindString = ("MULTIACTIONBAR1BUTTON%s"):format(slotID);
        elseif(keyBindID < 61 and keyBindID > 48) then 
          keyBindString = ("MULTIACTIONBAR2BUTTON%s"):format(slotID);
        elseif(keyBindID < 49 and keyBindID > 36) then 
          keyBindString = ("MULTIACTIONBAR4BUTTON%s"):format(slotID);
        elseif(keyBindID < 37 and keyBindID > 24) then 
          keyBindString = ("MULTIACTIONBAR3BUTTON%s"):format(slotID);
        end
      end 
      Binder.button.action = keyBindID
      Binder.button.name = keyBindName
      Binder.button.bindstring = keyBindString
      GameTooltip:AddLine(L["Trigger"])
      GameTooltip:Show()
      GameTooltip:SetScript("OnHide", GameTooltip_OnHide)
    end 
  end 
end
--[[ 
########################################################## 
PACKAGE MOD
##########################################################
]]--
function MOD:ToggleKeyBindingMode(deactivate, saveRequested)
  if not deactivate then
    Binder.active = true;
    SV:StaticPopupSpecial_Show(SVUI_KeyBindPopup)
    MOD:RegisterEvent('PLAYER_REGEN_DISABLED', 'ToggleKeyBindingMode', true, false)
  else
    if saveRequested then 
      SaveBindings(GetCurrentBindingSet())
      SV:AddonMessage(L["Binding Changes Stored"])
    else 
      LoadBindings(GetCurrentBindingSet())
      SV:AddonMessage(L["Binding Changes Discarded"])
    end 
    Binder.active = false;
    Binder:ClearAllPoints()
    Binder:Hide()
    GameTooltip:Hide()
    MOD:UnregisterEvent("PLAYER_REGEN_DISABLED")
    SV:StaticPopupSpecial_Hide(SVUI_KeyBindPopup)
    MOD.bindingsChanged = false
  end
end

local blockedButtons = { LSHIFT = true, RSHIFT = true, LCTRL = true, RCTRL = true, LALT = true, RALT = true, UNKNOWN = true, LeftButton = true}

--[[ HANDLERS ]]--
local tipTimeLapse = 0;
local GameTooltip_OnUpdate = function(self, elapsed)
  tipTimeLapse = (tipTimeLapse + elapsed);
  if tipTimeLapse < .2 then 
    return 
  else 
    tipTimeLapse = 0 
  end 
  if(not self.comparing and IsModifiedClick("COMPAREITEMS")) then 
    GameTooltip_ShowCompareItem(self)
    self.comparing = true 
  elseif(self.comparing and not IsModifiedClick("COMPAREITEMS")) then 
    for _,tip in pairs(self.shoppingTooltips)do 
      tip:Hide()
    end 
    self.comparing = false 
  end 
end 

local GameTooltip_OnHide = function(self)
  for _, tip in pairs(self.shoppingTooltips)do 
    tip:Hide()
  end 
end 

local GameTooltip_OnHide = function(self)
  for _, tip in pairs(self.shoppingTooltips)do 
    tip:Hide()
  end 
end 

local SpellButton_OnEnter = function(self)
  RefreshBindings(self, "SPELL")
end

local Button_Proxy = function(self)
  RefreshBindings(self)
end
local Stance_Proxy = function(self)
  RefreshBindings(self,"STANCE")
end
local Pet_Proxy = function(self)
  RefreshBindings(self,"PET")
end
local Flyout_Proxy = function(self)
  RefreshBindings(self,"FLYOUT")
end
local Macro_Proxy = function(self)
  RefreshBindings(self, "MACRO")
end

local BinderButton_OnEnter = function(self)
  local parent = self.button:GetParent()
  if parent and parent._fade then 
    parent:FadeIn(0.2, parent:GetAlpha(), parent._alpha)
  end
end 

local BinderButton_OnLeave = function(self)
  local parent = self.button:GetParent()
  self:ClearAllPoints()
  self:Hide()
  GameTooltip:Hide()
  if parent and parent._fade then 
    parent:FadeOut(1, parent:GetAlpha(), 0)
  end
end 

local Binder_OnBinding = function(self, event)
  MOD.bindingsChanged = true;
  if(event == "ESCAPE" or event == "RightButton") then
    local count = #Binder.button.bindings
    for i=1, count do 
      SetBinding(Binder.button.bindings[i])
    end 
    local prefix = L["All keybindings cleared for |cff00ff00%s|r."]
    local strMsg = prefix:format(Binder.button.name)
    SV:AddonMessage(strMsg)
    RefreshBindings(Binder.button, Binder.spellmacro)
    if(Binder.spellmacro ~= "MACRO") then 
      GameTooltip:Hide()
    end 
    return 
  end 

  if(blockedButtons[event]) then return end 
  if(event == "MiddleButton") then 
    event = "BUTTON3" 
  end 
  if(event:find('Button%d')) then 
    event = event:upper()
  end 

  local altText = IsAltKeyDown() and "ALT-" or "";
  local ctrlText = IsControlKeyDown() and "CTRL-" or "";
  local shiftText = IsShiftKeyDown() and "SHIFT-" or "";
  local strBind = ("%s%s%s%s"):format(altText, ctrlText, shiftText, event)

  if(not Binder.spellmacro or Binder.spellmacro == "PET" or Binder.spellmacro == "STANCE" or Binder.spellmacro == "FLYOUT") then 
    SetBinding(strBind, Binder.button.bindstring)
  else
    local strMacro = ("%s %s"):format(Binder.spellmacro, Binder.button.name)
    SetBinding(strBind, strMacro)
  end 

  local glue = L[" |cff00ff00bound to |r"]
  local addMsg = ("%s%s%s."):format(strBind, glue, Binder.button.name)
  SV:AddonMessage(addMsg)
  RefreshBindings(Binder.button, Binder.spellmacro)

  if Binder.spellmacro ~= "MACRO" then 
    GameTooltip:Hide()
  end 
end 

local BinderButton_OnMouseWheel = function(self, delta)
  if delta > 0 then 
    Binder_OnBinding(self, "MOUSEWHEELUP")
  else 
    Binder_OnBinding(self, "MOUSEWHEELDOWN")
  end
end 

local SetBindingMacro = function(self, arg)
  if(arg == "Blizzard_MacroUI") then 
    for i=1,36 do
      local btnName = ("MacroButton%d"):format(i)
      local btn = _G[btnName]
      btn:HookScript("OnEnter", MacroBinding_OnEnter)
    end 
  end 
end 

local Check_OnShow = function(self)
  self:SetChecked(GetCurrentBindingSet() == 2)
end 

local Check_OnEnter = function(self)
  GameTooltip:SetOwner(self, "ANCHOR_RIGHT")
  GameTooltip:SetText(CHARACTER_SPECIFIC_KEYBINDING_TOOLTIP, nil, nil, nil, nil, 1) 
end 

local Check_OnClick = function(self)
  if(MOD.bindingsChanged) then 
    SV:StaticPopup_Show("CONFIRM_LOSE_BINDING_CHANGES")
  else 
    if SVUI_KeyBindPopupCheckButton:GetChecked() then 
      LoadBindings(2)
      SaveBindings(2)
    else 
      LoadBindings(1)
      SaveBindings(1)
    end
  end 
end 

local Save_OnClick = function(self)
  MOD:ToggleKeyBindingMode(true, true) 
end 

local Discard_OnClick = function(self)
  MOD:ToggleKeyBindingMode(true, false)
end 
--[[ END OF HANDLERS ]]--

local function SetBindingButton(button, force)
  local click1 = StanceButton1:GetScript("OnClick")
  local click2 = PetActionButton1:GetScript("OnClick")
  local click3 = SecureActionButton_OnClick;
  local button_OnClick = button:GetScript("OnClick")
  if button_OnClick == click3 or force then 
    button:HookScript("OnEnter", Button_Proxy)
  elseif button_OnClick == click1 then 
    button:HookScript("OnEnter", Stance_Proxy)
  elseif button_OnClick == click2 then 
    button:HookScript("OnEnter", Pet_Proxy)
  end 
end 

local function RefreshAllFlyouts()
  local count = GetNumFlyouts()
  for i = 1, count do 
    local id = GetFlyoutID(i)
    local _,_,numSlots,isKnown = GetFlyoutInfo(id)
    if isKnown then 
      for x = 1, numSlots do
        local btnName = ("SpellFlyoutButton%d"):format(x)
        local btn = _G[btnName]
        if(SpellFlyout:IsShown() and btn and btn:IsShown()) then 
          if(not btn.hookedFlyout) then 
            btn:HookScript("OnEnter", Flyout_Proxy)
            btn.hookedFlyout = true 
          end 
        end 
      end 
    end 
  end 
end 

function MOD:LoadKeyBinder()
  self:RefreshActionBars()
  -- Binder:SetParent(SV.Screen)
  Binder:SetFrameStrata("DIALOG")
  Binder:SetFrameLevel(99)
  Binder:EnableMouse(true)
  Binder:EnableKeyboard(true)
  Binder:EnableMouseWheel(true)
  Binder.texture = Binder:CreateTexture()
  Binder.texture:SetAllPoints(Binder)
  Binder.texture:SetColorTexture(0, 0, 0, .25)
  Binder:Hide()

  GameTooltip:HookScript("OnUpdate", GameTooltip_OnUpdate)
  NewHook(GameTooltip, "Hide", GameTooltip_OnHide)

  Binder:SetScript("OnEnter", BinderButton_OnEnter)
  Binder:SetScript("OnLeave", BinderButton_OnLeave)
  Binder:SetScript("OnKeyUp", Binder_OnBinding)
  Binder:SetScript("OnMouseUp", Binder_OnBinding)
  Binder:SetScript("OnMouseWheel", BinderButton_OnMouseWheel)

  local OBJECT = EnumerateFrames()
  while OBJECT do
    if(OBJECT.IsProtected and OBJECT:IsProtected() and OBJECT.GetObjectType and OBJECT:GetObjectType() == "CheckButton" and OBJECT.GetScript) then
      SetBindingButton(OBJECT)
    end
    OBJECT = EnumerateFrames(OBJECT)
  end 

  for OBJECT, _ in pairs(self.ButtonCache)do
    if(OBJECT.IsProtected and OBJECT:IsProtected() and OBJECT.GetObjectType and OBJECT:GetObjectType() == "CheckButton" and OBJECT.GetScript) then
      SetBindingButton(OBJECT, true)
    end
  end 

  for i = 1, 12 do
    local btnName = ("SpellButton%d"):format(i)
    local spellButton = _G[btnName]
    spellButton:HookScript("OnEnter", SpellButton_OnEnter)
  end 

  if not IsAddOnLoaded("Blizzard_MacroUI")then 
    NewHook("LoadAddOn", SetBindingMacro)
  else 
    for i=1,36 do
      local btnName = ("MacroButton%d"):format(i)
      local btn = _G[btnName]
      btn:HookScript("OnEnter", Macro_Proxy)
    end
  end 

  NewHook("ActionButton_UpdateFlyout", RefreshAllFlyouts)
  RefreshAllFlyouts()

  local pop = NewFrame("Frame", "SVUI_KeyBindPopup", UIParent)
  pop:SetFrameStrata("DIALOG")
  pop:SetToplevel(true)
  pop:EnableMouse(true)
  pop:SetMovable(true)
  pop:SetFrameLevel(99)
  pop:SetClampedToScreen(true)
  pop:SetWidth(360)
  pop:SetHeight(130)
  pop:SetStyle("!_Frame", "Transparent")
  pop:Hide()

  local moveHandle = NewFrame("Button", nil, pop)
  moveHandle:SetStyle("!_Frame", "Button", true)
  moveHandle:SetWidth(100)
  moveHandle:SetHeight(25)
  moveHandle:SetPoint("CENTER", pop, "TOP")
  moveHandle:SetFrameLevel(moveHandle:GetFrameLevel() + 2)
  moveHandle:EnableMouse(true)
  moveHandle:RegisterForClicks("AnyUp", "AnyDown")
  local onMouseDown = function() pop:StartMoving() end
  moveHandle:SetScript("OnMouseDown", onMouseDown)
  local onMouseUp = function() pop:StopMovingOrSizing() end
  moveHandle:SetScript("OnMouseUp", onMouseUp)

  local moveText = moveHandle:CreateFontString("OVERLAY")
  moveText:SetFontObject(SVUI_Font_Default)
  moveText:SetPoint("CENTER", moveHandle, "CENTER")
  moveText:SetText("Key Binds")

  local moveDesc = pop:CreateFontString("ARTWORK")
  moveDesc:SetFontObject("GameFontHighlight")
  moveDesc:SetJustifyV("TOP")
  moveDesc:SetJustifyH("LEFT")
  moveDesc:SetPoint("TOPLEFT", 18, -32)
  moveDesc:SetPoint("BOTTOMRIGHT", -18, 48)
  moveDesc:SetText(L["Hover your mouse over any actionbutton or spellbook button to bind it. Press the escape key or right click to clear the current actionbutton's keybinding."])

  local checkButton = NewFrame("CheckButton", "SVUI_KeyBindPopupCheckButton", pop, "OptionsCheckButtonTemplate")
  checkButton:SetStyle("CheckButton")
  _G["SVUI_KeyBindPopupCheckButtonText"]:SetText(CHARACTER_SPECIFIC_KEYBINDINGS)
  checkButton:SetScript("OnShow", Check_OnShow)
  checkButton:SetScript("OnClick", Check_OnClick)
  checkButton:SetScript("OnEnter", Check_OnEnter)
  checkButton:SetScript("OnLeave", GameTooltip_Hide)

  local saveButton = NewFrame("Button", "SVUI_KeyBindPopupSaveButton", pop, "OptionsButtonTemplate")
  saveButton:SetWidth(150)
  saveButton:SetStyle("Button")
  _G["SVUI_KeyBindPopupSaveButtonText"]:SetText(L["Save"])
  saveButton:SetScript("OnClick", Save_OnClick)

  local discardButton = NewFrame("Button", "SVUI_KeyBindPopupDiscardButton", pop, "OptionsButtonTemplate")
  discardButton:SetWidth(150)
  discardButton:SetStyle("Button")
  _G["SVUI_KeyBindPopupDiscardButtonText"]:SetText(L["Discard"])
  discardButton:SetScript("OnClick", Discard_OnClick)

  checkButton:SetPoint("BOTTOMLEFT", discardButton, "TOPLEFT", 0, 2)
  saveButton:SetPoint("BOTTOMRIGHT", -14, 10)
  discardButton:SetPoint("BOTTOMLEFT", 14, 10)

  SV:AddSlashCommand("kb", "Toggle Key Binding Mode", MOD.ToggleKeyBindingMode);
  SV:AddSlashCommand("bind", "Toggle Key Binding Mode", MOD.ToggleKeyBindingMode);

  SV.SystemAlert["KEYBIND_MODE"] = {
    text = L["Hover your mouse over any actionbutton or spellbook button to bind it. Press the escape key or right click to clear the current actionbutton's keybinding."], 
    button1 = L["Save"], 
    button2 = L["Discard"], 
    OnAccept = function() MOD:ToggleKeyBindingMode(true, true) end, 
    OnCancel = function() MOD:ToggleKeyBindingMode(true, false) end, 
    timeout = 0, 
    whileDead = 1, 
    hideOnEscape = false
  };
  SV.SystemAlert["CONFIRM_LOSE_BINDING_CHANGES"] = {
    text = CONFIRM_LOSE_BINDING_CHANGES, 
    button1 = OKAY, 
    button2 = CANCEL, 
    OnAccept = function(a)
      if checkButton:GetChecked() then 
        LoadBindings(2)
        SaveBindings(2)
      else 
        LoadBindings(1)
        SaveBindings(1)
      end
      MOD.bindingsChanged = nil 
    end, 
    OnCancel = function(a)
      if checkButton:GetChecked()then 
        checkButton:SetChecked(false)
      else 
        checkButton:SetChecked(true)
      end 
    end, 
    timeout = 0, 
    whileDead = 1, 
    state1 = 1
  };
end
