-- Veneer
-- WorldState.lua
-- Created: 10/7/2016 10:55 PM
-- %file-revision%
--

local WorldStateBlockMixin = {}
VeneerOrderHallMixin = {
  anchorPoint = 'TOP',
}
VeneerWorldStateCurrencyMixin = {
}
VeneerWorldStateProgressMixin = {
  keepOpen = true
}
VeneerWorldStateMixin = {
  maxHeight = 0,
  detectedFrames = {},
  anchorPoint = 'TOP',
}
local print = DEVIAN_WORKSPACE and function(...) print('VnWorldState', ...) end or nop

function VeneerWorldStateMixin:Reset()
  for i, frame in ipairs(self.modules) do
    if frame.Reset then
      frame:Reset()
    end
  end
  self:Update()
end

function VeneerWorldStateMixin:Setup()
  --DEFAULT_CHAT_FRAME:AddMessage('Loaded')
  print('|cFFFFFF00'..self:GetName()..'|r:Setup()')

  self.modules = self.modules or {self:GetChildren()}
  for i, frame in ipairs(self.modules) do
    print('--'.. frame:GetName()..' exists')
    if frame.Setup then
      print('--'.. frame:GetName()..':Setup()')
      frame:Setup()
    end


    for k,v in pairs(WorldStateBlockMixin) do
      if not frame[k] then
        frame[k] = v
        if k:match('^On') then
          frame:SetScript(k, v)
        end
      end
    end

  end
  self:UnregisterEvent('PLAYER_LOGIN')
end

function VeneerWorldStateMixin:SetOrderHallUIMods()
  print('|cFFFF4400remove me', debugstack())
end


function VeneerWorldStateMixin:OnLoad ()
  self.modules = {self:GetChildren()}
  print('|cFFFFFF00'..self:GetName()..'|r!')
  self:RegisterEvent('ARTIFACT_UPDATE')
  self:RegisterEvent('ARTIFACT_XP_UPDATE')
  self:RegisterEvent('PLAYER_ENTERING_WORLD')
  self:RegisterEvent('PLAYER_REGEN_ENABLED')
  self:RegisterEvent('PLAYER_REGEN_DISABLED')
  self:RegisterEvent('ZONE_CHANGED_NEW_AREA')
  self:RegisterEvent('ADDON_LOADED')
  Veneer:AddHandler(self, self.anchorPoint, true)
  SLASH_VENEERWORLDSTATE1 = "/vws"
  SLASH_VENEERWORLDSTATE2 = "/worldstate"
  SlashCmdList.VENEERWORLDSTATE = function()
    self:Reset()
  end
end

function VeneerWorldStateMixin:OnEvent(event, arg)
  print(event, arg)

  if event == 'PLAYER_LOGIN' then
    if IsLoggedIn() and not self.initialized then
      self.initialized = true
      self:Setup()
    end
  elseif event == 'ZONE_CHANGED_NEW_AREA' or event == 'ADDON_LOADED' then
    if OrderHallCommandBar then
      self:UnregisterEvent('ZONE_CHANGED_NEW_AREA')
      self:UnregisterEvent('ADDON_LOADED')
      Veneer:AddHandler(VeneerOrderHallHandler, 'TOP', true)
    end
  elseif event == 'PLAYER_ENTERING_WORLD' then
    self:Update()
  elseif event == 'PLAYER_REGEN_ENABLED' then
    self:SetShown(true)
  elseif event == 'PLAYER_REGEN_DISABLED' then
    self:SetShown(false)
  end
end

function VeneerWorldStateMixin:Update()
  print('|cFFFFFF00All:Update()|r')
  for i, frame in ipairs(self.modules) do
    if frame.Update then
      print('  |cFFFF00FF'.. frame:GetName() .. ':Update()')
      frame:Update()
    end
  end
end

function VeneerWorldStateMixin:Reanchor(isUpdate)
  print('|cFFFFFF00'..self:GetName()..':Reanchor()|r', #self.modules, 'blocks')
  self.maxHeight = 0
  for i, frame in ipairs(self.modules) do
    print('  '..frame:GetName()..':',frame:IsShown(), frame:IsVisible(), frame:GetHeight())
    if frame:IsShown() then
      self.maxHeight = max(self.maxHeight, frame:GetHeight())
    end
  end
  if self.maxHeight == 0 then
    print ('  hiding because there are no blocks')
    self:Hide()
  else
    self:Show()
    print ('  height update:', self.maxHeight)
    self:SetHeight(self.maxHeight)
  end

  if not isUpdate then
    Veneer:InternalReanchor(self, print)
  end
end



function VeneerWorldStateMixin:OnMouseDown()
end

function VeneerOrderHallMixin:Setup()
  print('|cFFFFFF00'..self:GetName()..':Setup()')
  hooksecurefunc(OrderHallCommandBar,'Show', function()
    self:Update()
  end)
  hooksecurefunc(OrderHallCommandBar,'Hide', function()
    self:Update()
  end)
end

function VeneerOrderHallMixin:Update()

  if not OrderHallCommandBar then
    print('|cFFFF4400'..self:GetName()..' updater called without target')
    return
  end

  print('|cFF0044FF'..self:GetName()..' update')
  OrderHallCommandBar:ClearAllPoints()
  OrderHallCommandBar:SetPoint('TOP', self, 'TOP')
  OrderHallCommandBar:SetWidth(600)
  OrderHallCommandBar.Background:SetColorTexture(0,0,0,0.5)
  OrderHallCommandBar.WorldMapButton:Hide()
  OrderHallCommandBar:EnableMouse(false)

  self:SetSize(OrderHallCommandBar:GetSize())
end

function VeneerWorldStateCurrencyMixin:OnLoad ()

  self:RegisterEvent("PLAYER_ENTERING_WORLD");
  self:RegisterEvent("ZONE_CHANGED");
  self:RegisterEvent("ZONE_CHANGED_INDOORS");
  self:RegisterEvent("ZONE_CHANGED_NEW_AREA");
  self:RegisterEvent('CURRENCY_DISPLAY_UPDATE')
  self:RegisterEvent('CHAT_MSG_CURRENCY')

end

function VeneerWorldStateCurrencyMixin:OnEvent (event, arg)
  self:Update()
end


function VeneerWorldStateCurrencyMixin:Update()

  print('  Zone:', GetZoneText())
  if GetZoneText() == 'Suramar' then
    local name, earned, texture, earnedThisWeek, weeklyMax, totalMax = GetCurrencyInfo(1155)

    self.Icon:SetTexture(texture)
    self.Label:SetFormattedText("%d / %d", earned, totalMax)
    self:Show()
    self:SetWidth(self.Icon:GetWidth() + self.Label:GetStringWidth() + 6)
    self:SetSize(200,16)
  else
    self:Hide()
  end


end

function VeneerWorldStateProgressMixin:OnUpdate(sinceLast)
  self.timeLived = (self.timeLived or 0) + sinceLast
  if self.keepOpen then
    return
  end
  if self.timeLived >= 3 and not self.TransitionFadeOut:IsPlaying() then
    if not self.timeOut then
      self.timeOut = true
      self.TimedFadeOut:Play()
    end
  end
end


function VeneerWorldStateProgressMixin:OnLoad()
  self:RegisterEvent('PLAYER_EQUIPMENT_CHANGED')

  self:RegisterEvent("PLAYER_XP_UPDATE");
  self:RegisterEvent("UPDATE_EXHAUSTION");
  self:RegisterEvent("PLAYER_LEVEL_UP");
  self:RegisterEvent("PLAYER_UPDATE_RESTING");

  self:RegisterEvent("ARTIFACT_UPDATE");
  self:RegisterEvent("ARTIFACT_XP_UPDATE");
  self:RegisterEvent("ARTIFACT_CLOSE");
  self:RegisterEvent("ARTIFACT_MAX_RANKS_UPDATE");

  self.progressPercent = 0
  self.progressAmount = 0
  self.progressMax = 1
  self.progressOverflow = 0

end

function VeneerWorldStateProgressMixin:Setup()
  self:UpdateXPGain()
  if self.canGainXP then
    self.mode = 'xp'
  else
    self.mode = 'artifact'
  end
  print('setup mode:', self.mode)
end

function VeneerWorldStateProgressMixin:OnEvent(event, ...)
  local lastMode = self.mode
  if event == 'PLAYER_LEVEL_UP' or event == 'ENABLE_XP_GAIN' or event == 'DISABLE_XP_GAIN' then
    self:UpdateXPGain()
  elseif event == 'ARTIFACT_XP_UPDATE' or event == 'ARTIFACT_UPDATE' then
    self.mode = 'artifact'

  elseif event == 'PLAYER_EQUIPMENT_CHANGED' then
    local slot, hasEquip = ...
    if slot == 16 then
      self.mode = 'artifact'
      lastMode = nil
    end
  elseif event == 'PLAYER_XP_UPDATE' or event == 'PLAYER_LEVEL_UP' then
    print('forcing to XP mode')
    self.mode = 'xp'
  end
  self.modeChanged = (lastMode ~= self.mode)
  if self.modeChanged and self:IsVisible() then
    print('|cFF88FF00'..self:GetName()..'.TransitionFadeOut:Play()', event, ...)
    self:AnimateMode()
  else
    print('|cFFFFFF00'..self:GetName()..':Update()', event, ...)
    self:Update()
  end
end
function VeneerWorldStateProgressMixin:UpdateXPGain()
  self.canGainXP = (UnitLevel('player') < GetMaxPlayerLevel()) and (not IsXPUserDisabled())
  if not self.canGainXP then
    self.ProgressBar:SetColorTexture(0.75,0.75,0.75)
  end
end

local GetEquippedArtifactInfo = _G.C_ArtifactUI.GetEquippedArtifactInfo
local GetCostForPointAtRank = _G.C_ArtifactUI.GetCostForPointAtRank

function VeneerWorldStateProgressMixin:AnimateProgress(progressChange)

  local progressWidth = self:GetWidth() * progressChange

  print('  Render change:', progressChange, progressWidth)
  self.ProgressAdded:Show()
  self.ProgressAdded:ClearAllPoints()
  self.ProgressAdded:SetPoint('TOPRIGHT', self.ProgressBar, 'TOPRIGHT', 0, 0)
  self.ProgressAdded:SetPoint('BOTTOMLEFT', self.ProgressBar, 'BOTTOMRIGHT', - (progressWidth), 0)


  self.ProgressFlash.translation:SetOffset(progressWidth, 0)
  self.ProgressFlash:Play()
end

function VeneerWorldStateProgressMixin:Update()
  local hasNewInfo = false
  local progressChange = false
  print('  current mode:', self.mode)


  if self.mode == 'xp' then
    local xp = UnitXP('player')
    local xpMax = UnitXPMax('player')
    local bonusXP = GetXPExhaustion()
    if xp then
      self.progressPercent = xp / xpMax
    end
    self.progressText = '|cFFFFCC00' .. UnitLevel('player') .. '|r ' .. xp .. '/' .. xpMax
    if bonusXP then
      self.ProgressBar:SetColorTexture(0, 0.5,1)
      self.OverflowBar:Show()
      self.OverflowBar:ClearAllPoints()
      self.OverflowBar:SetPoint('BOTTOMLEFT', self.ProgressBar, 'BOTTOMRIGHT', 0, 0)
    else
      self.ProgressBar:SetColorTexture(0.5,0,1)
    end
    hasNewInfo = (self.progressAmount ~= xp)
    progressChange = (hasNewInfo and not self.modeChanged) and ((xp - self.progressAmount) / xpMax)
    self.progressOverflow = bonusXP
    self.progressAmount = xp
    self.progressMax = xpMax

  elseif self.mode == 'artifact' then
    local itemID, altItemID, name, icon, totalXP, pointsSpent = GetEquippedArtifactInfo()

    if itemID then
      local nextRankCost = GetCostForPointAtRank(pointsSpent) or 0
      print('  C_AUI:', itemID, name, 'XP:', totalXP, 'Points:', pointsSpent, 'Next:', nextRankCost)
      hasNewInfo = (self.progressAmount ~= totalXP)
      progressChange = (hasNewInfo and not self.modeChanged) and (((totalXP - self.progressAmount) / nextRankCost))

      if totalXP > nextRankCost then
        self.progressPercent = 1
      else
        self.progressPercent = totalXP / nextRankCost
      end

      self.progressText = name .. ' ('..pointsSpent .. '): '.. totalXP .. ' / ' .. nextRankCost

      self.ProgressBar:SetColorTexture(1,0.5,0,1)
      self.OverflowBar:Hide()

      self.progressOverflow = 0
      self.progressAmount = totalXP
      self.progressMax = nextRankCost
    else
      self.progressAmount = 0
      self.progressMax = 1
      self.progressText = ''
    end
  end

  if self.mode then
    self:SetSize(600,16)
    if hasNewInfo then
      self.timeOut = nil
      self.timeLived = 0
      if self.TransitionFadeOut:IsPlaying() then
        self.TransitionFadeOut:Stop()
        self:SetAlpha(1)
      end
      if not self:IsVisible() then
        self.TransitionFadeIn:Play()
      else
        self:ShowPanel()
      end

    end

    print(self:IsVisible())
    print(self:GetWidth())
    print(self.ProgressBG:GetWidth())
    print('  Percent:', floor(self.progressPercent*100)/100, 'BarLength:', floor(self:GetWidth()* self.progressPercent), 'NewInfo:', hasNewInfo, 'IsShown:', self:IsShown())


    if progressChange then
      self:AnimateProgress(progressChange)
    end


    if self.progressPercent > 0 then
      self.ProgressBar:Show()
      self.ProgressBar:SetPoint('TOPRIGHT', self.ProgressBG, 'TOPLEFT', self:GetWidth()* self.progressPercent , 0)
      self.Label:SetText(self.progressText)

      self.progressLeft = self.progressMax - self.progressAmount
      if self.progressOverflow >= self.progressLeft then

        self.OverflowBar:SetPoint('TOPRIGHT', self.ProgressBar, 'TOPRIGHT', (self.progressOverflow / self.progressMax) * self:GetWidth(), 0)
      else
        self.OverflowBar:SetPoint('TOPRIGHT', self.ProgressBG, 'TOPRIGHT', 0, 0)
      end

    else
      self.ProgressBar:Hide()
    end
  else
    self:HidePanel()
  end

  self.modeChanged = nil
end

function VeneerWorldStateProgressMixin:OnMouseDown(button)
  if button == 'RightButton' then
    if self.keepOpen then
      self.keepOpen = nil
      self.timeLived = 1000
    else
      self.keepOpen = true
    end
    print('keepOpen =', self.keepOpen)
  else
    if self.mode == 'xp' then
      self.mode = 'artifact'
    else
      if not self.canGainXP then
        return
      end
      self.mode = 'xp'
    end
    self:AnimateMode()
  end

end

function VeneerWorldStateProgressMixin:AnimateMode()

  self.TransitionFadeIn:Stop()
  print('|cFF88FF00'..self:GetName()..'.TransitionFadeOut:Play()')
  self.modeChanged = true
  self.TransitionFadeOut:Play()
end

do
  function WorldStateBlockMixin:ShowPanel()
    print('|cFF0088FF'..self:GetName()..':ShowPanel()')
    self:SetShown(true)
    VeneerWorldState:Show()
  end
  function WorldStateBlockMixin:HidePanel()
    print('|cFF0088FF'..self:GetName()..':HidePanel()')
    self:SetShown(false)
    VeneerWorldState:Reanchor()
  end

  function WorldStateBlockMixin:OnSizeChanged ()
    local h = self:GetHeight()
    if h > VeneerWorldState.maxHeight then
      VeneerWorldState.maxHeight = h
      VeneerWorldState:SetHeight(h)
      print('updating max height:', h)
    elseif h < VeneerWorldState.maxHeight then
      VeneerWorldState:Reanchor()
    end
  end
  function WorldStateBlockMixin:OnHide ()
    print('|cFF0088FF'..self:GetName()..':OnHide()')
    VeneerWorldState:Reanchor()
  end
  function WorldStateBlockMixin:OnShow ()
    self.timeLived = 0
    print('|cFF0088FF'..self:GetName()..':OnShow()')
    VeneerWorldState:Reanchor()
  end
  function WorldStateBlockMixin:Setup()
    print('|cFF0088FF'..self:GetName()..':Setup()|r -- nop')
  end
  function WorldStateBlockMixin:Reset()
    print('|cFF0088FF'..self:GetName()..':Reset()')
    self.keepOpen = true
    self:Setup()
  end
end