Mail = Mail or {}
local m = Mail

local ATTACHMENTS_MAX = 21
local ATTACHMENTS_PER_ROW_SEND = 7
local ATTACHMENTS_MAX_ROWS_SEND = 3

local api = getfenv()
local getn = table.getn ---@diagnostic disable-line: deprecated
local money_received = 0
local orig = {}
local L = {}

do
  local f = api.CreateFrame( "Frame" )
  f:SetScript( "OnEvent", function() Mail[ event ]() end )

  for _, event in { "ADDON_LOADED", "PLAYER_LOGIN", "UI_ERROR_MESSAGE", "CURSOR_UPDATE", "BAG_UPDATE", "MAIL_SHOW", "MAIL_CLOSED", "MAIL_SEND_SUCCESS", "MAIL_INBOX_UPDATE" } do
    f:RegisterEvent( event )
  end
end

api.TurtleMail_AutoCompleteNames = {}

local function pack( ... ) return arg end

do
  local f = api.CreateFrame( "Frame" )
  local cursorItem
  function m.CURSOR_UPDATE()
    cursorItem = nil
  end

  function GetCursorItem()
    return cursorItem
  end

  function SetCursorItem( item )
    f:SetScript( "OnUpdate", function()
      cursorItem = item
      f:SetScript( "OnUpdate", nil )
    end )
  end
end

function m.BAG_UPDATE()
  if api.MailFrame:IsVisible() then
    api.SendMailFrame_Update()
  end
end

function m.MAIL_SHOW()
  if api.TurtleMail_Point then
    api.MailFrame:SetPoint( api.TurtleMail_Point.point, api.TurtleMail_Point.x, api.TurtleMail_Point.y )
  end
end

function m.MAIL_CLOSED()
  Inbox_Abort()
  SendMail_sending = false
  SendMail_Clear()
end

function m.UI_ERROR_MESSAGE()
  if Inbox_opening then
    if arg1 == api.ERR_INV_FULL then
      Inbox_Abort()
    elseif arg1 == api.ERR_ITEM_MAX_COUNT then
      Inbox_skip = true
    end
  elseif SendMail_sending and (arg1 == api.ERR_MAIL_TO_SELF or arg1 == api.ERR_PLAYER_WRONG_FACTION or arg1 == api.ERR_MAIL_TARGET_NOT_FOUND or arg1 == api.ERR_MAIL_REACHED_CAP) then
    SendMail_sending = false
    SendMail_state = nil
    api.ClearCursor()
    orig.ClickSendMailItemButton()
    api.ClearCursor()
  end
end

function m.ADDON_LOADED()
  if arg1 ~= "TurtleMail" then return end

  local version = api.GetAddOnMetadata( "TurtleMail", "Version" )
  api.DEFAULT_CHAT_FRAME:AddMessage( string.format( "|cffabd473TurtleMail|r: Loaded(|cffeda55fv%s|r).", version ) )

  api.UIPanelWindows.MailFrame.pushable = 1
  api.UIPanelWindows.FriendsFrame.pushable = 2

  Inbox_Load()
  SendMail_Load()
end

do
  local f = api.CreateFrame( "Frame" )
  local function update()
    f:SetScript( "OnUpdate", nil )
    SendMail_Send()
  end
  function m.MAIL_SEND_SUCCESS()
    if SendMail_state then
      m.addAutoCompleteName( SendMail_state.to )
    end
    if SendMail_sending then
      f:SetScript( "OnUpdate", update )
    end
  end
end

function m.addAutoCompleteName( name )
  local key = api.GetCVar "realmName" .. "|" .. api.UnitFactionGroup "player"
  api.TurtleMail_AutoCompleteNames[ key ][ name ] = api.GetTime()
end

do
  local x = 0
  api.CreateFrame( "Frame", api.InboxFrame ):SetScript( "OnUpdate", function()
    if x > 0 then
      x = x - 1
    elseif not Inbox_opening then
      x = 100
      api.CheckInbox()
    end
  end )
end

function Inbox_Load()
  local btn = api.CreateFrame( "Button", nil, api.InboxFrame, "UIPanelButtonTemplate" )
  btn:SetPoint( "BOTTOM", -10, 90 )
  btn:SetText( api.OPENMAIL )
  btn:SetWidth( math.max( 120, 30 + ({ btn:GetRegions() })[ 1 ]:GetStringWidth() ) )
  btn:SetHeight( 25 )
  btn:SetScript( "OnClick", Inbox_OpenAll )

  api.MailFrame:EnableMouse( true )
  api.MailFrame:SetMovable( true )
  api.MailFrame:SetScript( "OnDragStop", m.on_drag_stop )
end

do
  local i, update
  local f = api.CreateFrame( "Frame" )
  f:Hide()
  f:SetScript( "OnUpdate", function()
    if update then
      update = false
      local _, _, _, _, _, COD, _, _, _, _, _, _, isGM = api.GetInboxHeaderInfo( i )
      if i > api.GetInboxNumItems() then
        if money_received > 0 then
          api.DEFAULT_CHAT_FRAME:AddMessage( string.format( "|cffabd473TurtleMail|r: %s%s.", m.format_money( money_received ), L[ "collected" ] ) )
        end
        Inbox_Abort()
      elseif Inbox_Skip or COD > 0 or isGM then
        Inbox_Skip = false
        i = i + 1
        update = true
      else
        Inbox_Open( i )
      end
    end
  end )

  function m.MAIL_INBOX_UPDATE()
    if Inbox_opening then
      update = true
    end
  end

  function Inbox_OpenAll()
    Inbox_opening = true
    Inbox_UpdateLock()
    i = 1
    Inbox_skip = false
    update = true
    f:Show()
  end

  function Inbox_Abort()
    Inbox_opening = false
    Inbox_UpdateLock()
    f:Hide()
  end
end

function m.set_cod_text()
  local text = string.sub( api.COD_AMOUNT, 1, string.len( api.COD_AMOUNT ) - 1 )

  ---@diagnostic disable-next-line: undefined-global
  if not pfUI or not pfUI.version then
    text = string.match( text, "^(.-)%s+%S+$" )
  end

  if api.SendMailCODAllButton:GetChecked() then
    api.SendMailMoneyText:SetText( text .. " " .. L[ "each mail" ] .. ":" )
  else
    api.SendMailMoneyText:SetText( text .. " " .. L[ "1st mail" ] .. ":" )
  end
end

---@param copper number
function m.format_money( copper )
  local gold = math.floor( copper / 10000 )
  local silver = math.floor( (copper - gold * 10000) / 100 )
  local copper_remain = copper - (gold * 10000) - (silver * 100)

  local result = ""
  if gold > 0 then
    result = result .. string.format( "|cffffffff%d|cffffd700g|r ", gold )
  end
  if silver > 0 then
    result = result .. string.format( "|cffffffff%d|cffc7c7cfs|r ", silver )
  end
  if copper_remain > 0 or result == "" then
    result = result .. string.format( "|cffffffff%d|cffeda55fc|r ", copper_remain )
  end

  return result
end

---@param money number
function m.update_money( money )
  money_received = money_received + money
  api.MoneyReceived:SetText( L[ "Money received" ] .. ": " .. m.format_money( money_received ) )

  if money_received > 0 then
    api.MoneyReceived:Show()
  else
    api.MoneyReceived:Hide()
  end
end

function m.on_drag_stop()
  local f = api.MailFrame
  if not f then return end
  f:StopMovingOrSizing()

  local screen_width = api.GetScreenWidth()
  local screen_height = api.GetScreenHeight()
  local point, _, _, x, y = api.MailFrame:GetPoint()
  local nx, ny = x, y

  if f:GetLeft() < 0 then nx = -10 end
  if f:GetRight() > screen_width + 28 then nx = screen_width + 28 - f:GetWidth() end
  if f:GetTop() > screen_height + 10 then ny = 10 end
  if f:GetBottom() < -40 then ny = -screen_height + f:GetHeight() - 40 end

  if (nx ~= x or ny ~= y) then
    api.MailFrame:SetPoint( point, nx, ny )
  end

  api.TurtleMail_Point = { point = point, x = nx, y = ny }
end

do
  -- hack to prevent beancounter from deleting mail
  local TakeInboxMoney, TakeInboxItem, DeleteInboxItem = api.TakeInboxMoney, api.TakeInboxItem, api.DeleteInboxItem
  function Inbox_Open( i )
    local _, _, _, _, money, _, _, _, read, _, _, _, _ = api.GetInboxHeaderInfo( i )
    if money and read then
      m.update_money( money )
    end
    api.GetInboxText( i )

    TakeInboxMoney( i )
    TakeInboxItem( i )
    DeleteInboxItem( i )
  end
end

function Inbox_UpdateLock()
  for i = 1, 7 do
    api[ "MailItem" .. i .. "ButtonIcon" ]:SetDesaturated( Inbox_opening )
    if Inbox_opening then
      api[ "MailItem" .. i .. "Button" ]:SetChecked( nil )
    end
  end
end

-- Setup hooks
do
  local hooks = {}
  m.hook = setmetatable( {}, { __newindex = function( _, k, v ) hooks[ k ] = v end } )
  function m.PLAYER_LOGIN()
    for k, v in hooks do
      orig[ k ] = api[ k ]
      api[ k ] = v
    end
    local key = api.GetCVar "realmName" .. "|" .. api.UnitFactionGroup "player"
    api.TurtleMail_AutoCompleteNames[ key ] = api.TurtleMail_AutoCompleteNames[ key ] or {}
    for char, lastSeen in api.TurtleMail_AutoCompleteNames[ key ] do
      if api.GetTime() - lastSeen > 60 * 60 * 24 * 30 then
        api.TurtleMail_AutoCompleteNames[ key ][ char ] = nil
      end
    end

    m.addAutoCompleteName( api.UnitName "player" )
  end
end

function m.hook.GetInboxHeaderInfo( ... )
  local sender, canReply = arg[ 3 ], arg[ 12 ]
  if sender and canReply then
    m.addAutoCompleteName( sender )
  end
  return orig.GetInboxHeaderInfo( unpack( arg ) )
end

function m.hook.OpenMail_Reply( ... )
  api.TurtleMail_To = nil
  return orig.OpenMail_Reply( unpack( arg ) )
end

function m.hook.InboxFrame_Update()
  orig.InboxFrame_Update()
  for i = 1, 7 do
    -- hack for tooltip update
    api[ "MailItem" .. i ]:Hide()
    api[ "MailItem" .. i ]:Show()
  end

  do
    local currentPage = api.InboxFrame.pageNum
    local totalPages = math.ceil( api.GetInboxNumItems() / api.INBOXITEMS_TO_DISPLAY )
    local text = totalPages > 0 and (currentPage .. "/" .. totalPages) or ("Empty")
    api.InboxTitleText:SetText( "Inbox [" .. text .. "]" )
  end

  Inbox_UpdateLock()
end

function m.hook.InboxFrame_OnClick( i )
  if Inbox_opening or arg1 == "RightButton" and ({ api.GetInboxHeaderInfo( i ) })[ 6 ] > 0 then
    this:SetChecked( nil )
  elseif arg1 == "RightButton" then
    Inbox_Open( i )
  else
    return orig.InboxFrame_OnClick( i )
  end
end

function m.hook.InboxFrameItem_OnEnter()
  orig.InboxFrameItem_OnEnter()
  if api.GetInboxItem( this.index ) then
    api.GameTooltip:AddLine( api.ITEM_OPENABLE, "", 0, 1, 0 )
    api.GameTooltip:Show()
  end
end

function m.hook.SendMailFrame_Update()
  local gap
  -- local last = 0 blizzlike
  local last = SendMail_NumAttachments()

  for i = 1, ATTACHMENTS_MAX do
    local btn = api[ "MailAttachment" .. i ]

    local texture, count
    if btn.item then
      texture, count = api.GetContainerItemInfo( unpack( btn.item ) )
    end
    if not texture then
      btn:SetNormalTexture( nil )
      api[ btn:GetName() .. "Count" ]:Hide()
      btn.item = nil
    else
      btn:SetNormalTexture( texture )
      if count > 1 then
        api[ btn:GetName() .. "Count" ]:Show()
        api[ btn:GetName() .. "Count" ]:SetText( count )
      else
        api[ btn:GetName() .. "Count" ]:Hide()
      end
    end
  end

  if SendMail_NumAttachments() > 0 then
    api.SendMailCODButton:Enable()
    api.SendMailCODButtonText:SetTextColor( api.NORMAL_FONT_COLOR.r, api.NORMAL_FONT_COLOR.g, api.NORMAL_FONT_COLOR.b )
    if SendMail_NumAttachments() > 1 and api.SendMailCODButton:GetChecked() then
      api.SendMailCODAllButton:Enable()
      api.SendMailCODAllButtonText:SetTextColor( api.NORMAL_FONT_COLOR.r, api.NORMAL_FONT_COLOR.g, api.NORMAL_FONT_COLOR.b )
      m.set_cod_text()
    else
      api.SendMailCODAllButton:Disable()
      api.SendMailCODAllButtonText:SetTextColor( api.GRAY_FONT_COLOR.r, api.GRAY_FONT_COLOR.g, api.GRAY_FONT_COLOR.b )
      api.SendMailMoneyText:SetText( api.COD_AMOUNT )
    end
  else
    api.SendMailSendMoneyButton:SetChecked( 1 )
    api.SendMailCODButton:SetChecked( nil )
    api.SendMailMoneyText:SetText( api.AMOUNT_TO_SEND )
    api.SendMailCODButton:Disable()
    api.SendMailCODButtonText:SetTextColor( api.GRAY_FONT_COLOR.r, api.GRAY_FONT_COLOR.g, api.GRAY_FONT_COLOR.b )
    api.SendMailCODAllButton:Disable()
    api.SendMailCODAllButtonText:SetTextColor( api.GRAY_FONT_COLOR.r, api.GRAY_FONT_COLOR.g, api.GRAY_FONT_COLOR.b )
  end

  api.MoneyFrame_Update( "SendMailCostMoneyFrame", api.GetSendMailPrice() * math.max( 1, SendMail_NumAttachments() ) )

  -- Determine how many rows of attachments to show
  local itemRowCount = 1
  local temp = last
  while temp > ATTACHMENTS_PER_ROW_SEND and itemRowCount < ATTACHMENTS_MAX_ROWS_SEND do
    itemRowCount = itemRowCount + 1
    temp = temp - ATTACHMENTS_PER_ROW_SEND
  end

  if not gap and temp == ATTACHMENTS_PER_ROW_SEND and itemRowCount < ATTACHMENTS_MAX_ROWS_SEND then
    itemRowCount = itemRowCount + 1
  end
  if api.SendMailFrame.maxRowsShown and last > 0 and itemRowCount < api.SendMailFrame.maxRowsShown then
    itemRowCount = api.SendMailFrame.maxRowsShown
  else
    api.SendMailFrame.maxRowsShown = itemRowCount
  end

  -- Compute sizes
  local cursorx = 0
  local cursory = itemRowCount - 1
  local marginxl = 8 + 6
  local marginxr = 40 + 6
  local areax = api.SendMailFrame:GetWidth() - marginxl - marginxr
  local iconx = api.MailAttachment1:GetWidth() + 2
  local icony = api.MailAttachment1:GetHeight() + 2
  local gapx1 = api.floor( (areax - (iconx * ATTACHMENTS_PER_ROW_SEND)) / (ATTACHMENTS_PER_ROW_SEND - 1) )
  local gapx2 = api.floor( (areax - (iconx * ATTACHMENTS_PER_ROW_SEND) - (gapx1 * (ATTACHMENTS_PER_ROW_SEND - 1))) / 2 )
  local gapy1 = 5
  local gapy2 = 6
  local areay = (gapy2 * 2) + (gapy1 * (itemRowCount - 1)) + (icony * itemRowCount)
  local indentx = marginxl + gapx2 + 17
  local indenty = 170 + gapy2 + icony - 13
  local tabx = (iconx + gapx1) - 3 --this magic number changes the attachment spacing
  local taby = (icony + gapy1)
  local scrollHeight = 249 - areay

  api.MailHorizontalBarLeft:SetPoint( "TOPLEFT", api.SendMailFrame, "BOTTOMLEFT", 2 + 15, 184 + areay - 14 )

  api.SendMailScrollFrame:SetHeight( scrollHeight )
  api.SendMailScrollChildFrame:SetHeight( scrollHeight )

  local SendMailScrollFrameTop = ({ api.SendMailScrollFrame:GetRegions() })[ 3 ]
  SendMailScrollFrameTop:SetHeight( scrollHeight )
  SendMailScrollFrameTop:SetTexCoord( 0, .484375, 0, scrollHeight / 256 )

  api.StationeryBackgroundLeft:SetHeight( scrollHeight )
  api.StationeryBackgroundLeft:SetTexCoord( 0, 1, 0, scrollHeight / 256 )


  api.StationeryBackgroundRight:SetHeight( scrollHeight )
  api.StationeryBackgroundRight:SetTexCoord( 0, 1, 0, scrollHeight / 256 )

  -- Set Items
  for i = 1, ATTACHMENTS_MAX do
    if cursory >= 0 then
      api[ "MailAttachment" .. i ]:Enable()
      api[ "MailAttachment" .. i ]:Show()
      api[ "MailAttachment" .. i ]:SetPoint( "TOPLEFT", "SendMailFrame", "BOTTOMLEFT", indentx + (tabx * cursorx),
        indenty + (taby * cursory) )

      cursorx = cursorx + 1
      if cursorx >= ATTACHMENTS_PER_ROW_SEND then
        cursory = cursory - 1
        cursorx = 0
      end
    else
      api[ "MailAttachment" .. i ]:Hide()
    end
  end

  api.SendMailFrame_CanSend()
end

function m.hook.SendMailRadioButton_OnClick( index )
  if (index == 1) then
    api.SendMailSendMoneyButton:SetChecked( 1 );
    api.SendMailCODButton:SetChecked( nil );
    api.SendMailMoneyText:SetText( api.AMOUNT_TO_SEND );
    api.SendMailCODAllButton:Disable()
    api.SendMailCODAllButtonText:SetTextColor( api.GRAY_FONT_COLOR.r, api.GRAY_FONT_COLOR.g, api.GRAY_FONT_COLOR.b )
  else
    api.SendMailSendMoneyButton:SetChecked( nil );
    api.SendMailCODButton:SetChecked( 1 );
    api.SendMailMoneyText:SetText( api.COD_AMOUNT );

    if SendMail_NumAttachments() > 1 then
      api.SendMailCODAllButton:Enable()
      api.SendMailCODAllButtonText:SetTextColor( api.NORMAL_FONT_COLOR.r, api.NORMAL_FONT_COLOR.g, api.NORMAL_FONT_COLOR.b )
      m.set_cod_text()
    end
  end
  api.PlaySound( "igMainMenuOptionCheckBoxOn" );
end

function m.hook.ClickSendMailItemButton()
  SendMail_SetAttachment( GetCursorItem() )
end

function m.hook.GetContainerItemInfo( bag, slot )
  local ret = pack( orig.GetContainerItemInfo( bag, slot ) )
  ret[ 3 ] = ret[ 3 ] or SendMail_Attached( bag, slot ) and 1 or nil
  return unpack( ret )
end

function m.hook.PickupContainerItem( bag, slot )
  if SendMail_Attached( bag, slot ) then return end
  if api.GetContainerItemInfo( bag, slot ) then SetCursorItem( { bag, slot } ) end
  return orig.PickupContainerItem( bag, slot )
end

function m.hook.SplitContainerItem( bag, slot, amount )
  if SendMail_Attached( bag, slot ) then return end
  return orig.SplitContainerItem( bag, slot, amount )
end

function m.hook.UseContainerItem( bag, slot, onself )
  if SendMail_Attached( bag, slot ) then return end
  if api.IsShiftKeyDown() or api.IsControlKeyDown() or api.IsAltKeyDown() then
    return orig.UseContainerItem( bag, slot, onself )
  elseif api.MailFrame:IsVisible() then
    api.MailFrameTab_OnClick( 2 )
    SendMail_SetAttachment { bag, slot }
  elseif api.TradeFrame:IsVisible() then
    for i = 1, 6 do
      if not api.GetTradePlayerItemLink( i ) then
        orig.PickupContainerItem( bag, slot )
        api.ClickTradeButton( i )
        return
      end
    end
  else
    return orig.UseContainerItem( bag, slot, onself )
  end
end

function m.hook.SendMailFrame_CanSend()
  if not SendMail_sending and string.len( api.SendMailNameEditBox:GetText() ) > 0 and (api.SendMailSendMoneyButton:GetChecked() and api.MoneyInputFrame_GetCopper( api.SendMailMoney ) or 0) + api.GetSendMailPrice() * math.max( 1, SendMail_NumAttachments() ) <= api.GetMoney() then
    MailMailButton:Enable()
  else
    MailMailButton:Disable()
  end
end

function MailMailButton_OnClick()
  api.MailAutoCompleteBox:Hide()

  api.TurtleMail_To = api.SendMailNameEditBox:GetText()
  api.SendMailNameEditBox:HighlightText()

  SendMail_state = {
    to = api.TurtleMail_To,
    subject = MailSubjectEditBox:GetText(),
    body = api.SendMailBodyEditBox:GetText(),
    money = api.MoneyInputFrame_GetCopper( api.SendMailMoney ),
    cod = api.SendMailCODButton:GetChecked(),
    attachments = SendMail_Attachments(),
    numMessages = math.max( 1, SendMail_NumAttachments() ),
  }

  SendMail_Clear()
  SendMail_sending = true
  SendMail_Send()
end

function SendMail_Load()
  api.SendMailFrame:CreateTexture( "MailHorizontalBarLeft", "BACKGROUND" )
  api.SendMailFrame:CreateTexture( "MailHorizontalBarRight", "BACKGROUND" )
  ---@diagnostic disable-next-line: undefined-global
  if not pfUI or not pfUI.version then
    api.MailHorizontalBarLeft:SetTexture( [[Interface\ClassTrainerFrame\UI-ClassTrainer-HorizontalBar]] )
    api.MailHorizontalBarLeft:SetWidth( 256 )
    api.MailHorizontalBarLeft:SetHeight( 16 )
    api.MailHorizontalBarLeft:SetTexCoord( 0, 1, 0, .25 )

    api.MailHorizontalBarRight:SetTexture( [[Interface\ClassTrainerFrame\UI-ClassTrainer-HorizontalBar]] )
    api.MailHorizontalBarRight:SetWidth( 75 )
    api.MailHorizontalBarRight:SetHeight( 16 )
    api.MailHorizontalBarRight:SetTexCoord( 0, .29296875, .25, .5 )
    api.MailHorizontalBarRight:SetPoint( "LEFT", api.MailHorizontalBarLeft, "RIGHT" )
  end

  do
    local background = ({ api.SendMailPackageButton:GetRegions() })[ 1 ]
    background:Hide()
    local count = ({ api.SendMailPackageButton:GetRegions() })[ 3 ]
    count:Hide()
    api.SendMailPackageButton:Disable()
    api.SendMailPackageButton:SetScript( "OnReceiveDrag", nil )
    api.SendMailPackageButton:SetScript( "OnDragStart", nil )
  end

  api.SendMailMoneyText:SetJustifyH( "LEFT" )
  api.SendMailMoneyText:SetPoint( "TOPLEFT", 0, 0 )
  api.SendMailMoney:ClearAllPoints()
  api.SendMailMoney:SetPoint( "TOPLEFT", api.SendMailMoneyText, "BOTTOMLEFT", 5, -5 )
  api.SendMailMoneyGoldRight:SetPoint( "RIGHT", 20, 0 )
  do ({ api.SendMailMoneyGold:GetRegions() })[ 9 ]:SetDrawLayer( "BORDER" ) end
  api.SendMailMoneyGold:SetMaxLetters( 7 )
  api.SendMailMoneyGold:SetWidth( 50 )
  api.SendMailMoneySilverRight:SetPoint( "RIGHT", 10, 0 )
  do ({ api.SendMailMoneySilver:GetRegions() })[ 9 ]:SetDrawLayer( "BORDER" ) end
  api.SendMailMoneySilver:SetWidth( 28 )
  api.SendMailMoneySilver:SetPoint( "LEFT", api.SendMailMoneyGold, "RIGHT", 30, 0 )
  api.SendMailMoneyCopperRight:SetPoint( "RIGHT", 10, 0 )
  do ({ api.SendMailMoneyCopper:GetRegions() })[ 9 ]:SetDrawLayer( "BORDER" ) end
  api.SendMailMoneyCopper:SetWidth( 28 )
  api.SendMailMoneyCopper:SetPoint( "LEFT", api.SendMailMoneySilver, "RIGHT", 20, 0 )
  api.SendMailSendMoneyButton:SetPoint( "TOPLEFT", api.SendMailMoney, "TOPRIGHT", 0, 12 )

  -- hack to avoid automatic subject setting and button disabling from weird blizzard code
  MailMailButton = api.SendMailMailButton
  api.SendMailMailButton = setmetatable( {}, { __index = function() return function() end end } )
  api.SendMailMailButton_OnClick = MailMailButton_OnClick
  MailSubjectEditBox = api.SendMailSubjectEditBox
  api.SendMailSubjectEditBox = setmetatable( {}, {
    __index = function( _, key )
      return function( _, ... )
        return MailSubjectEditBox[ key ]( MailSubjectEditBox, unpack( arg ) )
      end
    end,
  } )

  api.SendMailNameEditBox._SetText = api.SendMailNameEditBox.SetText
  function api.SendMailNameEditBox:SetText( ... )
    if not api.TurtleMail_To then
      return self:_SetText( unpack( arg ) )
    end
  end

  api.SendMailNameEditBox:SetScript( "OnShow", function()
    if api.TurtleMail_To then
      api.this:_SetText( api.TurtleMail_To )
    end
  end )
  api.SendMailNameEditBox:SetScript( "OnChar", function()
    api.TurtleMail_To = nil
    GetSuggestions()
  end )
  api.SendMailNameEditBox:SetScript( "OnTabPressed", function()
    if api.MailAutoCompleteBox:IsVisible() then
      if api.IsShiftKeyDown() then
        PreviousMatch()
      else
        NextMatch()
      end
    else
      MailSubjectEditBox:SetFocus()
    end
  end )
  api.SendMailNameEditBox:SetScript( "OnEnterPressed", function()
    if api.MailAutoCompleteBox:IsVisible() then
      api.MailAutoCompleteBox:Hide()
      this:HighlightText( 0, 0 )
    else
      MailSubjectEditBox:SetFocus()
    end
  end )
  api.SendMailNameEditBox:SetScript( "OnEscapePressed", function()
    if api.MailAutoCompleteBox:IsVisible() then
      api.MailAutoCompleteBox:Hide()
    else
      this:ClearFocus()
    end
  end )
  function api.SendMailNameEditBox.focusLoss()
    api.MailAutoCompleteBox:Hide()
  end

  api.SendMailCODAllButton:SetScript( "OnClick", function()
    m.set_cod_text()
  end )

  do
    local orig_script = api.SendMailNameEditBox:GetScript( "OnTextChanged" )
    api.SendMailNameEditBox:SetScript( "OnTextChanged", function()
      local text = this:GetText()
      local formatted = string.gsub( string.lower( text ), "^%l", string.upper )
      if text ~= formatted then
        this:SetText( formatted )
      end
      return orig_script()
    end )
  end

  for _, editBox in { api.SendMailNameEditBox, api.SendMailSubjectEditBox } do
    editBox:SetScript( "OnEditFocusGained", function()
      this:HighlightText()
    end )
    editBox:SetScript( "OnEditFocusLost", function()
      (this.focusLoss or function() end)()
      this:HighlightText( 0, 0 )
    end )
    do
      local lastClick
      editBox:SetScript( "OnMouseDown", function()
        local x, y = api.GetCursorPosition()
        if lastClick and api.GetTime() - lastClick.t < .5 and x == lastClick.x and y == lastClick.y then
          this:SetScript( "OnUpdate", function()
            this:HighlightText()
            this:SetScript( "OnUpdate", nil )
          end )
        end
        lastClick = { t = api.GetTime(), x = x, y = y }
      end )
    end
  end
end

function SendMail_Attached( bag, slot )
  if not api.MailFrame:IsVisible() then return false end
  for i = 1, ATTACHMENTS_MAX do
    local btn = api[ "MailAttachment" .. i ]
    if btn.item and btn.item[ 1 ] == bag and btn.item[ 2 ] == slot then
      return true
    end
  end
  if SendMail_state then
    for _, attachment in SendMail_state.attachments do
      if attachment[ 1 ] == bag and attachment[ 2 ] == slot then
        return true
      end
    end
  end
end

function m.AttachmentButton_OnClick()
  local attachedItem = this.item
  local cursorItem = GetCursorItem()
  if SendMail_SetAttachment( cursorItem, this ) then
    if attachedItem then
      if arg1 == "LeftButton" then SetCursorItem( attachedItem ) end
      orig.PickupContainerItem( unpack( attachedItem ) )
      if arg1 ~= "LeftButton" then api.ClearCursor() end -- for the lock changed event
    end
  end
end

-- requires an item lock changed event for a proper update
function SendMail_SetAttachment( item, slot )
  if item and not SendMail_PickupMailable( item ) then
    api.ClearCursor()
    return
  elseif not slot then
    for i = 1, ATTACHMENTS_MAX do
      if not api[ "MailAttachment" .. i ].item then
        slot = api[ "MailAttachment" .. i ]
        break
      end
    end
  end
  if slot then
    if not (item or slot.item) then return true end
    slot.item = item
    api.ClearCursor()
    api.SendMailFrame_Update()
    return true
  end
end

function SendMail_PickupMailable( item )
  api.ClearCursor()
  orig.ClickSendMailItemButton()
  api.ClearCursor()
  orig.PickupContainerItem( unpack( item ) )
  orig.ClickSendMailItemButton()
  local mailable = api.GetSendMailItem() and true or false
  orig.ClickSendMailItemButton()
  return mailable
end

function SendMail_NumAttachments()
  local x = 0
  for i = 1, ATTACHMENTS_MAX do
    if api[ "MailAttachment" .. i ].item then
      x = x + 1
    end
  end
  return x
end

function SendMail_Attachments()
  local t = {}
  for i = 1, ATTACHMENTS_MAX do
    local btn = api[ "MailAttachment" .. i ]
    if btn.item then
      table.insert( t, btn.item )
    end
  end
  return t
end

function SendMail_Clear()
  local anyItem
  for i = 1, ATTACHMENTS_MAX do
    anyItem = anyItem or api[ "MailAttachment" .. i ].item
    api[ "MailAttachment" .. i ].item = nil
  end
  if anyItem then
    api.ClearCursor()
    api.PickupContainerItem( unpack( anyItem ) )
    api.ClearCursor()
  end
  MailMailButton:Disable()
  api.SendMailNameEditBox:SetText ""
  api.SendMailNameEditBox:SetFocus()
  MailSubjectEditBox:SetText ""
  api.SendMailBodyEditBox:SetText ""
  api.MoneyInputFrame_ResetMoney( api.SendMailMoney )
  api.SendMailRadioButton_OnClick( 1 )

  api.SendMailFrame_Update()
end

function SendMail_Send()
  local item = table.remove( SendMail_state.attachments, 1 )
  if item then
    api.ClearCursor()
    orig.ClickSendMailItemButton()
    api.ClearCursor()
    orig.PickupContainerItem( unpack( item ) )
    orig.ClickSendMailItemButton()

    if not api.GetSendMailItem() then
      api.DEFAULT_CHAT_FRAME:AddMessage( "|cffabd473TurtleMail|r: " .. api.ERROR_CAPS, 1, 0, 0 )
      return
    end
  end

  local amount = SendMail_state.money
  if amount > 0 then
    if not api.SendMailCODAllButton:GetChecked() then
      SendMail_state.money = 0
    end
    if SendMail_state.cod then
      api.SetSendMailCOD( amount )
    else
      SendMail_state.money = 0
      api.SetSendMailMoney( amount )
    end
  end

  local subject = SendMail_state.subject
  if subject == "" then
    if item then
      local itemName, itemTexture, stackCount, quality = api.GetSendMailItem()
      subject = itemName .. (stackCount > 1 and " (" .. stackCount .. ")" or "")
    else
      subject = "<" .. api.NO_ATTACHMENTS .. ">"
    end
  elseif SendMail_state.numMessages > 1 then
    subject = subject ..
        string.format( " [%d/%d]", SendMail_state.numMessages - getn( SendMail_state.attachments ),
          SendMail_state.numMessages )
  end

  api.SendMail( SendMail_state.to, subject, SendMail_state.body )

  if getn( SendMail_state.attachments ) == 0 then
    SendMail_sending = false
  end
end

do
  local inputLength
  local matches = {}
  local index

  local function complete()
    api.SendMailNameEditBox:SetText( matches[ index ] )
    api.SendMailNameEditBox:HighlightText( inputLength, -1 )
    for i = 1, api.MAIL_AUTOCOMPLETE_MAX_BUTTONS do
      local button = api[ "MailAutoCompleteButton" .. i ]
      if i == index then
        button:LockHighlight()
      else
        button:UnlockHighlight()
      end
    end
  end

  function PreviousMatch()
    if index then
      index = index > 1 and index - 1 or getn( matches )
      complete()
    end
  end

  function NextMatch()
    if index then
      ---@diagnostic disable-next-line: undefined-global
      index = mod( index, getn( matches ) ) + 1
      complete()
    end
  end

  function m.SelectMatch( i )
    index = i
    complete()
    api.MailAutoCompleteBox:Hide()
    api.SendMailNameEditBox:HighlightText( 0, 0 )
  end

  function GetSuggestions()
    local input = api.SendMailNameEditBox:GetText()
    inputLength = string.len( input )

    ---@diagnostic disable-next-line: undefined-field
    table.setn( matches, 0 )
    index = nil

    local autoCompleteNames = {}
    for name, time in api.TurtleMail_AutoCompleteNames[ api.GetCVar "realmName" .. "|" .. api.UnitFactionGroup "player" ] do
      table.insert( autoCompleteNames, { name = name, time = time } )
    end
    table.sort( autoCompleteNames, function( a, b ) return b.time < a.time end )

    local ignore = { [ api.UnitName "player" ] = true }
    local function process( name )
      if name then
        if not ignore[ name ] and string.find( string.upper( name ), string.upper( input ), nil, true ) == 1 then
          table.insert( matches, name )
        end
        ignore[ name ] = true
      end
    end
    for _, t in autoCompleteNames do
      process( t.name )
    end
    for i = 1, api.GetNumFriends() do
      process( api.GetFriendInfo( i ) )
    end
    for i = 1, api.GetNumGuildMembers( true ) do
      process( api.GetGuildRosterInfo( i ) )
    end

    ---@diagnostic disable-next-line: undefined-field
    table.setn( matches, math.min( getn( matches ), api.MAIL_AUTOCOMPLETE_MAX_BUTTONS ) )
    if getn( matches ) > 0 and (getn( matches ) > 1 or input ~= matches[ 1 ]) then
      for i = 1, api.MAIL_AUTOCOMPLETE_MAX_BUTTONS do
        local button = api[ "MailAutoCompleteButton" .. i ]
        if i <= getn( matches ) then
          button:SetText( matches[ i ] )
          button:GetFontString():SetPoint( "LEFT", button, "LEFT", 15, 0 )
          button:Show()
        else
          button:Hide()
        end
      end
      api.MailAutoCompleteBox:SetHeight( getn( matches ) * api.MailAutoCompleteButton1:GetHeight() + 35 )
      api.MailAutoCompleteBox:SetWidth( 120 )
      api.MailAutoCompleteBox:Show()
      index = 1
      complete()
    else
      api.MailAutoCompleteBox:Hide()
    end
  end
end

-- ************
-- Localization
do
  local function defaultFunc( _, key )
    return key;
  end
  setmetatable( L, { __index = defaultFunc } );

  L[ "collected" ] = nil
  L[ "1st mail" ] = nil
  L[ "each mail" ] = nil
  L[ "Money received" ] = nil

  if api.GetLocale() == "frFR" then
    L[ "collected" ] = "collecté"
    L[ "1st mail" ] = "1er courrier"
    L[ "each mail" ] = "chaque courrier"
    L[ "Money received" ] = "Argent reçu"
  end

  if api.GetLocale() == "esES" then
    L[ "collected" ] = "recogido"
    L[ "1st mail" ] = "1er correo"
    L[ "each mail" ] = "cada correo"
    L[ "Money received" ] = "Dinero recibido"
  end

  if api.GetLocale() == "deDE" then
    L[ "collected" ] = "gesammelt"
    L[ "1st mail" ] = "1. Mail"
    L[ "each mail" ] = "jede Mail"
    L[ "Money received" ] = "Geld erhalten"
  end

  if api.GetLocale() == "ruRU" then
    L[ "collected" ] = "собрано"
    L[ "1st mail" ] = "1-я почта"
    L[ "each mail" ] = "каждая почта"
    L[ "Money received" ] = "Деньги получены"
  end
end