local EDGEGAP, GAP = 16, 8
local tekbutt = LibStub("tekKonfig-Button")
 
 
local frame = CreateFrame("Frame", nil, UIParent)
frame.name = "Buffet"
frame:Hide()
frame:SetScript("OnShow", function()
  local title, subtitle = LibStub("tekKonfig-Heading").new(frame, "Buffet", "This panel allows you to quickly create the base macros for Buffet to edit.  You can also set the macro text to be used.")
 
  local function OnClick(self)
    if InCombatLockdown() then Buffet:Print("Cannot create macros in combat.")
    elseif GetNumMacros() >= 18 then Buffet:Print("All global macros in use.")
    else
      CreateMacro(self.name, 1, "", 1)
      Buffet:Scan()
    end
  end
 
  local hpbutt = tekbutt.new(frame, "TOPLEFT", subtitle, "BOTTOMLEFT", -2, -GAP)
  hpbutt:SetText("Create HP")
  hpbutt.tiptext = "Generate a global macro for food, bandages, health potions and health stones."
  hpbutt.name = "AutoHP"
  hpbutt:SetScript("OnClick", OnClick)
 
  local mpbutt = tekbutt.new(frame, "TOPLEFT", hpbutt, "TOPRIGHT", GAP, 0)
  mpbutt:SetText("Create MP")
  mpbutt.tiptext = "Generate a global macro for water, mana potions and mana stones."
  mpbutt.name = "AutoMP"
  mpbutt:SetScript("OnClick", OnClick)
 
  local hpmacrolabel = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall")
  hpmacrolabel:SetText("HP Macro")
  hpmacrolabel:SetPoint("TOPLEFT", hpbutt, "BOTTOMLEFT", 5, -GAP)
 
  local YOFFSET = (hpmacrolabel:GetTop() - frame:GetBottom() - EDGEGAP/3)/2
  local backdrop = {
    bgFile = "Interface\\ChatFrame\\ChatFrameBackground", insets = {left = 4, right = 4, top = 4, bottom = 4},
    edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 16
  }
 
  local hpeditbox = CreateFrame("EditBox", nil, frame)
  hpeditbox:SetPoint("TOP", hpmacrolabel, "BOTTOM", 0, -5)
  hpeditbox:SetPoint("LEFT", EDGEGAP/3, 0)
  hpeditbox:SetPoint("BOTTOMRIGHT", -EDGEGAP/3, YOFFSET + EDGEGAP/3)
  hpeditbox:SetFontObject(GameFontHighlight)
  hpeditbox:SetTextInsets(8,8,8,8)
  hpeditbox:SetBackdrop(backdrop)
  hpeditbox:SetBackdropColor(.1,.1,.1,.3)
  hpeditbox:SetMultiLine(true)
  hpeditbox:SetAutoFocus(false)
  hpeditbox:SetText(Buffet.db.macroHP)
  hpeditbox:SetScript("OnEditFocusLost", function()
    local newmacro = hpeditbox:GetText()
    if not newmacro:find("%%MACRO%%") then
      Buffet:Print('Macro text must contain the string "%MACRO%".')
    else
      Buffet.db.macroHP = newmacro
      Buffet:BAG_UPDATE()
    end
  end)
  hpeditbox:SetScript("OnEscapePressed", hpeditbox.ClearFocus)
  hpeditbox.tiptext = 'Customize the macro text.  Must include the string "%MACRO%", which is replaced with the items to be used.  This setting is saved on a per-char basis.'
  hpeditbox:SetScript("OnEnter", mpbutt:GetScript("OnEnter"))
  hpeditbox:SetScript("OnLeave", mpbutt:GetScript("OnLeave"))
 
  local mpmacrolabel = frame:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall")
  mpmacrolabel:SetText("MP Macro")
  mpmacrolabel:SetPoint("TOP", hpeditbox, "BOTTOM", 0, -GAP)
  mpmacrolabel:SetPoint("LEFT", hpmacrolabel, "LEFT")
 
  local mpeditbox = CreateFrame("EditBox", nil, frame)
  mpeditbox:SetPoint("TOP", mpmacrolabel, "BOTTOM", 0, -5)
  mpeditbox:SetPoint("LEFT", EDGEGAP/3, 0)
  mpeditbox:SetPoint("BOTTOMRIGHT", -EDGEGAP/3, EDGEGAP/3)
  mpeditbox:SetFontObject(GameFontHighlight)
  mpeditbox:SetTextInsets(8,8,8,8)
  mpeditbox:SetBackdrop(backdrop)
  mpeditbox:SetBackdropColor(.1,.1,.1,.3)
  mpeditbox:SetMultiLine(true)
  mpeditbox:SetAutoFocus(false)
  mpeditbox:SetText(Buffet.db.macroMP)
  mpeditbox:SetScript("OnEditFocusLost", function()
    local newmacro = mpeditbox:GetText()
    if not newmacro:find("%%MACRO%%") then
      Buffet:Print('Macro text must contain the string "%MACRO%".')
    else
      Buffet.db.macroMP = newmacro
      Buffet:BAG_UPDATE()
    end
  end)
  mpeditbox:SetScript("OnEscapePressed", mpeditbox.ClearFocus)
  mpeditbox.tiptext = hpeditbox.tiptext
  mpeditbox:SetScript("OnEnter", mpbutt:GetScript("OnEnter"))
  mpeditbox:SetScript("OnLeave", mpbutt:GetScript("OnLeave"))
 
  local function Refresh(self)
    if GetMacroIndexByName("AutoHP") == 0 then hpbutt:Enable() else hpbutt:Disable() end
    if GetMacroIndexByName("AutoMP") == 0 then mpbutt:Enable() else mpbutt:Disable() end
    self:RegisterEvent("UPDATE_MACROS")
  end
  frame:SetScript("OnEvent", Refresh)
  frame:SetScript("OnShow", Refresh)
  frame:SetScript("OnHide", function(self) self:UnregisterEvent("UPDATE_MACROS") end)
  Refresh(frame)
end)
 
InterfaceOptions_AddCategory(frame)
 
LibStub("tekKonfig-AboutPanel").new("Buffet", "Buffet")