local TXUI, F, E, I, V, P, G = unpack((select(2, ...)))
local WB = TXUI:GetModule("WunderBar")
local TI = WB:NewModule("Time")

local _G = _G
local date = date
local format = string.format
local FormatShortDate = FormatShortDate
local GetGameTime = GetGameTime
local HasNewMail = HasNewMail
local IsResting = IsResting
local max = math.max
local tinsert = table.insert
local tonumber = tonumber
local wipe = table.wipe

function TI:ConvertTime(hour, minute)
  -- Convert to weird format
  if not self.db.twentyFour then
    if hour == 0 then
      hour = 12
    elseif hour > 12 then
      hour = hour - 12
    end
  end

  -- format correctly
  if self.db.timeFormat == "HH:MM" then
    return format("%02d", hour), format("%02d", minute)
  elseif self.db.timeFormat == "H:MM" then
    return format("%d", hour), format("%02d", minute)
  elseif self.db.timeFormat == "HH:M" then
    return format("%02d", hour), format("%d", minute)
  end

  return format("%d", hour), format("%d", minute)
end

function TI:GetTime()
  local hour, minute

  if self.db.localTime then
    hour, minute = tonumber(date("%H")), tonumber(date("%M"))
  else
    hour, minute = GetGameTime()
  end

  return self:ConvertTime(hour, minute)
end

function TI:OnUpdate(t)
  -- default to 5 or reduce time by time taken from the last OnUpdate call
  self.timeLastUpdate = (self.timeLastUpdate or 5) - t

  -- if time is still bigger than 0, skip update
  if self.timeLastUpdate > 0 then return end

  -- reset last update timer
  self.timeLastUpdate = 5

  -- flash if calendar has pending invite
  if self.db.flashOnInvite and (self.hasInvite ~= _G.GameTimeFrame.flashInvite) then
    self.hasInvite = _G.GameTimeFrame.flashInvite
    self:UpdateColor()
  end

  local hour, min = self:GetTime()

  self.colon:SetText(":")
  self.hour:SetText(hour)
  self.minutes:SetText(min)
end

function TI:OnClick(...)
  local dtModule = WB:GetElvUIDataText("Time")

  if dtModule then
    self:UpdateTooltip(dtModule)
    dtModule.onClick(...)
  end
end

function TI:OnEnter()
  WB:SetFontAccentColor(self.hour)
  WB:SetFontAccentColor(self.minutes)

  local dtModule = WB:GetElvUIDataText("Time")

  if dtModule then
    self:UpdateTooltip(dtModule)
    dtModule.onEnter()
  end
end

function TI:OnLeave()
  WB:SetFontColorFromDB(self.db, "main", self.hour)
  WB:SetFontColorFromDB(self.db, "main", self.minutes)

  local dtModule = WB:GetElvUIDataText("Time")
  if dtModule then dtModule.onLeave() end
end

function TI:OnEvent(event)
  if event == "UPDATE_INSTANCE_INFO" then
    self:UpdateTooltip()
    return
  end

  if event == "CALENDAR_EVENT_ALARM" then
    WB:FlashFontOnEvent(self.hour)
    WB:FlashFontOnEvent(self.minutes)
    return
  end

  if
    (event == "ELVUI_FORCE_UPDATE") -- Rested state updates
    or (event == "PLAYER_UPDATE_RESTING")
    or (event == "LOADING_SCREEN_DISABLED")
    or (event == "ZONE_CHANGED_NEW_AREA")
    or (event == "ZONE_CHANGED_INDOORS")
    or (event == "ZONE_CHANGED")
  then
    self:UpdateResting()
    return
  end

  if
    (event == "ELVUI_FORCE_UPDATE") -- Mail or invite updates
    or (event == "MAIL_INBOX_UPDATE")
    or (event == "UPDATE_PENDING_MAIL")
    or (event == "MAIL_CLOSED")
    or (event == "MAIL_SHOW")
  then
    if not self.db.infoTextDisplayed["mail"] then return end

    self:UpdateInfoText()

    local hasMail = HasNewMail()
    if self.hasMail ~= hasMail then
      self.hasMail = hasMail

      if hasMail then
        WB:FlashFontOnEvent(self.hour)
        WB:FlashFontOnEvent(self.minutes)
      end
    end
  end
end

function TI:OnSizeCalculation()
  if not self.db.experimentalDynamicSize then return end

  local clockSize = self.colon:GetStringWidth() + E:Scale(5)
  clockSize = clockSize + self.hour:GetStringWidth()
  clockSize = clockSize + self.minutes:GetStringWidth()

  return self.db.infoEnabled and max(clockSize, self.infoText:GetStringWidth()) or clockSize
end

function TI:OnWunderBarUpdate()
  self.showRestingAnimation = self.db.showRestingAnimation

  self:UpdateClock()
  self:UpdateColor()
  self:UpdateInfoText()
  self:UpdateResting()
end

function TI:CycleInfoText(index)
  local category = self.activeInfoText[index]
  if category == "mail" then
    self.infoText:SetText(F.String.Uppercase("You've Got Mail!"))
  elseif category == "date" then
    local dateTime = date("*t")
    self.infoText:SetText(FormatShortDate(dateTime.day, dateTime.month, dateTime.year))
  elseif category == "ampm" then
    local dateTime = date("%p")
    self.infoText:SetText(F.String.Uppercase(dateTime))
  end

  self.infoText:Show()
end

function TI:UpdateInfoText()
  if not self.db.infoEnabled then
    self.infoText:Hide()
    WB:StopAnimations(self.infoText)
    return
  end

  wipe(self.activeInfoText)

  if self.db.infoTextDisplayed["date"] then tinsert(self.activeInfoText, "date") end
  if self.db.infoTextDisplayed["ampm"] then tinsert(self.activeInfoText, "ampm") end
  if self.db.infoTextDisplayed["mail"] and HasNewMail() then tinsert(self.activeInfoText, "mail") end

  if #self.activeInfoText > 1 then
    if not WB:IsTextTransitionPlaying(self.infoText) then
      local cycleIndex = 0

      self:CycleInfoText(#self.activeInfoText)

      WB:StartTextTransition(self.infoText, 5, function(anim)
        if anim.LoopCounter > #self.activeInfoText or cycleIndex == 0 then anim.LoopCounter = 1 end
        cycleIndex = anim.LoopCounter
        self:CycleInfoText(cycleIndex)
      end)
    end
  else
    WB:StopAnimationType(self.infoText, WB.animationType.FADE)
    self.infoText:SetAlpha(1)

    if #self.activeInfoText == 0 then
      self.infoText:Hide()
    else
      self:CycleInfoText(1)
    end
  end
end

function TI:UpdateResting()
  if self.showRestingAnimation and IsResting() then
    self.resting:Show()
    self.resting.animationFrame:Play()
  elseif self.resting:IsShown() then
    self.resting:Hide()
    self.resting.animationFrame:Stop()
  end
end

function TI:UpdateColor()
  if self.db.infoUseAccent then
    WB:SetFontAccentColor(self.infoText, false)
  else
    WB:SetFontNormalColor(self.infoText, false)
  end

  if self.db.flashColon then
    WB:StartColorFlash(self.colon, 1, WB:GetFontNormalColor(), WB:GetFontAccentColor())
  elseif self.db.useAccent then
    WB:SetFontAccentColor(self.colon)
  else
    WB:SetFontNormalColor(self.colon)
  end

  if self.db.flashOnInvite and self.hasInvite then
    WB:StartColorFlash(self.hour, 1, WB:GetFontNormalColor(), WB:GetFontAccentColor())
    WB:StartColorFlash(self.minutes, 1, WB:GetFontNormalColor(), WB:GetFontAccentColor())
    return
  end

  WB:SetFontNormalColor(self.hour)
  WB:SetFontNormalColor(self.minutes)
end

function TI:UpdateTooltip(dataText)
  local dtModule = dataText or WB:GetElvUIDataText("Time")
  if dtModule then dtModule.eventFunc(self.timeVirtualFrame, "UPDATE_INSTANCE_INFO") end
end

function TI:UpdateClock()
  WB:SetFontFromDB(self.db, "main", self.colon, false)
  WB:SetFontFromDB(self.db, "main", self.hour, false)
  WB:SetFontFromDB(self.db, "main", self.minutes, false)
  WB:SetFontFromDB(self.db, "info", self.infoText, false)

  self.colon:ClearAllPoints()
  self.colon:SetPoint("CENTER", self.frame, "CENTER", 0, self.db.textOffset)

  self.infoText:ClearAllPoints()
  self.infoText:SetPoint("CENTER", self.colon, "CENTER", 0, self.db.infoOffset)

  if self.showRestingAnimation then
    local _, fontSize = self.minutes:GetFont()
    local restingSize = fontSize * 0.8

    self.resting:ClearAllPoints()
    self.resting:SetPoint("LEFT", self.minutes, "RIGHT", 2, -(restingSize * 0.25))
    self.resting:SetSize(restingSize, restingSize * 2)
  end
end

function TI:CreateClock()
  local colon = self.frame:CreateFontString(nil, "ARTWORK")
  self.colon = colon

  local hour = self.frame:CreateFontString(nil, "ARTWORK")
  hour:SetPoint("RIGHT", colon, "LEFT", -3, 0)
  hour:SetJustifyH("RIGHT")
  self.hour = hour

  local minutes = self.frame:CreateFontString(nil, "ARTWORK")
  minutes:SetPoint("LEFT", colon, "RIGHT", 2, 0)
  minutes:SetJustifyH("LEFT")
  self.minutes = minutes

  local resting = self.frame:CreateTexture(nil, "OVERLAY")
  resting:SetPoint("LEFT", minutes, "RIGHT", 2, -10)
  resting:SetTexture(I.Media.StateIcons.Resting)
  resting:SetSize(20, 40) -- blizz size
  resting:Hide()

  local animationGroup = TXUI:CreateAnimationGroup(resting)
  animationGroup:SetLooping(true)

  resting.animationFrame = animationGroup:CreateAnimation("Frames")
  resting.animationFrame:SetTextureSize(1024, 64)
  resting.animationFrame:SetFrameSize(64)
  resting.animationFrame:SetNumFrames(8)
  resting.animationFrame:SetFrameDelay(2 / 8)
  resting.animationFrame:SetDuration(2)

  self.resting = resting

  local infoText = self.frame:CreateFontString(nil, "OVERLAY")
  self.infoText = infoText
end

function TI:OnInit()
  -- Get our settings DB
  self.db = WB:GetSubModuleDB(self:GetName())

  -- Don't init second time
  if self.Initialized then return end

  -- Vars
  self.frame = self.SubModuleHolder
  self.hasInvite = false
  self.hasMail = false
  self.showRestingAnimation = false
  self.activeInfoText = {}

  -- Create virtual frame and connect it to datatext
  self.timeVirtualFrame = {
    name = "Time",
    text = {
      SetFormattedText = E.noop,
    },
    CreateAnimationGroup = function()
      return {
        CreateAnimation = function()
          return {
            SetFromAlpha = E.noop,
            SetToAlpha = E.noop,
            SetOrder = E.noop,
            SetDuration = E.noop,
          }
        end,
        SetScript = E.noop,
        Play = E.noop,
        Stop = E.noop,
        IsPlaying = function()
          return false
        end,
      }
    end,
  }
  WB:ConnectVirtualFrameToDataText("Time", self.timeVirtualFrame)

  self:CreateClock()
  self:OnWunderBarUpdate()

  -- We are done, hooray!
  self.Initialized = true
end

WB:RegisterSubModule(TI, {
  "CALENDAR_EVENT_ALARM",
  "LOADING_SCREEN_DISABLED",
  "MAIL_CLOSED",
  "MAIL_INBOX_UPDATE",
  "MAIL_SHOW",
  "PLAYER_UPDATE_RESTING",
  "UPDATE_INSTANCE_INFO",
  "UPDATE_PENDING_MAIL",
  "ZONE_CHANGED_INDOORS",
  "ZONE_CHANGED_NEW_AREA",
  "ZONE_CHANGED",
})
