core.lua

--[[--------------------------------------------------------------------------
  Clickcast - standalone click casting for WoW 1.12 clients (OctoWoW / Turtle / vanilla)

  The click-casting behaviour is a faithful port of pfUI's implementation
  (pfUI/api/unitframes.lua -> EnableClickCast / ClickAction), lifted out of
  pfUI so it can be used with *any* unit frames.

  core.lua - namespace, saved variables, shared helpers, slash commands.
----------------------------------------------------------------------------]]

Clickcast = {}
local CC = Clickcast

CC.title   = "|cff33ffccClick|cffffffffcast|r"
CC.version = "1.0.1"

-- mouse buttons, indexed exactly like pfUI (1 = left ... 5 = button5)
CC.buttons = {
  [1] = "LeftButton",
  [2] = "RightButton",
  [3] = "MiddleButton",
  [4] = "Button4",
  [5] = "Button5",
}

-- reverse lookup: "LeftButton" -> 1
CC.buttonid = {}
for id, name in pairs(CC.buttons) do CC.buttonid[name] = id end

-- display names for the config panel
CC.buttonname = {
  [1] = "Left",
  [2] = "Right",
  [3] = "Middle",
  [4] = "Button 4",
  [5] = "Button 5",
}

-- modifiers, in the same order pfUI builds its lookup string
CC.modifiers    = { "", "shift", "alt", "ctrl" }
CC.modifiername = { [""] = "Click Action", ["shift"] = "Shift-Click Action",
                    ["alt"] = "Alt-Click Action", ["ctrl"] = "Ctrl-Click Action" }

-- unit categories that can be toggled individually
CC.categories = {
  { "player",      "Player" },
  { "target",      "Target" },
  { "targettarget","Target's Target" },
  { "tttarget",    "Target's Target's Target" },
  { "pet",         "Pet" },
  { "pettarget",   "Pet's Target" },
  { "focus",       "Focus" },
  { "focustarget", "Focus Target" },
  { "party",       "Party" },
  { "partypet",    "Party Pets" },
  { "partytarget", "Party Targets" },
  { "raid",        "Raid" },
  { "raidpet",     "Raid Pets" },
  { "raidtarget",  "Raid Targets" },
  { "other",       "Other / Unknown Units" },
}

-- ---------------------------------------------------------------------------
-- config key helpers (kept identical to pfUI's naming so settings read the same)
--   button 1 ->  clickcast,  clickcast_shift,  clickcast_alt,  clickcast_ctrl
--   button 2 -> clickcast2, clickcast2_shift, clickcast2_alt, clickcast2_ctrl
-- ---------------------------------------------------------------------------
function CC:ActionKey(bid, modifier)
  local bconf = (bid == 1) and "" or bid
  local mconf = (modifier == "" or not modifier) and "" or ("_" .. modifier)
  return "clickcast" .. bconf .. mconf
end

-- ---------------------------------------------------------------------------
-- saved variables
-- ---------------------------------------------------------------------------
local function ApplyDefaults(target, defaults)
  for key, value in pairs(defaults) do
    if type(value) == "table" then
      if type(target[key]) ~= "table" then target[key] = {} end
      ApplyDefaults(target[key], value)
    elseif target[key] == nil then
      target[key] = value
    end
  end
end

function CC:LoadConfig()
  local defaults = {
    -- master switch
    enabled       = "1",
    -- pick up unit frames created by other addons automatically
    autodetect    = "1",
    -- disable pfUI's own click casting so the two can't both fire
    takeover_pfui = "1",
    -- use SuperWoW's CastSpellByName(spell, unit) instead of target swapping
    superwow      = "1",
    -- chat output when a frame gets hooked
    debug         = "0",
    units         = {},
    actions       = {},
  }

  -- every unit category is enabled by default
  for i = 1, table.getn(CC.categories) do
    defaults.units[CC.categories[i][1]] = "1"
  end

  -- all click actions start empty: an empty action falls through to whatever
  -- the frame did before Clickcast hooked it (target / menu / drop item / ...)
  for bid = 1, 5 do
    for m = 1, table.getn(CC.modifiers) do
      defaults.actions[CC:ActionKey(bid, CC.modifiers[m])] = ""
    end
  end

  if type(ClickcastDB) ~= "table" then ClickcastDB = {} end
  ApplyDefaults(ClickcastDB, defaults)
  CC.db = ClickcastDB
end

-- ---------------------------------------------------------------------------
-- misc helpers
-- ---------------------------------------------------------------------------
function CC:Print(msg)
  DEFAULT_CHAT_FRAME:AddMessage(CC.title .. ": " .. (msg or ""))
end

-- how many button/modifier slots actually have something in them
function CC:CountBindings()
  local count = 0
  for bid = 1, 5 do
    for m = 1, table.getn(CC.modifiers) do
      local value = CC.db.actions[CC:ActionKey(bid, CC.modifiers[m])]
      if value and value ~= "" then count = count + 1 end
    end
  end
  return count
end

function CC:BindingLabel(bid, modifier)
  return (modifier == "" and "" or (modifier .. "-")) .. CC.buttonname[bid] .. "-click"
end

-- everything needed to work out why click casting isn't firing
function CC:Status()
  local out = DEFAULT_CHAT_FRAME
  local frames = CC:CountFrames()
  local bindings = CC:CountBindings()

  CC:Print("v" .. CC.version .. " status")
  out:AddMessage("  click casting: " ..
    (CC.db.enabled == "1" and "|cff33ff99on|r" or "|cffff5555OFF|r  (/cc on)"))
  out:AddMessage("  hooked unit frames: " ..
    (frames > 0 and ("|cff33ff99" .. frames .. "|r") or "|cffff5555none|r"))
  out:AddMessage("  SuperWoW: " .. (CC:HasSuperWoW() and "|cff33ff99detected|r"
    or "|cffffaa55not detected|r - casts briefly switch target instead"))
  out:AddMessage("  auto-detect other frames: " .. (CC.db.autodetect == "1" and "on" or "off"))

  if bindings == 0 then
    out:AddMessage("  bound actions: |cffff5555NONE|r")
    out:AddMessage("  |cffffff88=> Nothing is bound yet. Type /cc, pick a mouse button,|r")
    out:AddMessage("  |cffffff88   and type a spell name into one of the four slots.|r")
  else
    out:AddMessage("  bound actions:")
    for bid = 1, 5 do
      for m = 1, table.getn(CC.modifiers) do
        local modifier = CC.modifiers[m]
        local value = CC.db.actions[CC:ActionKey(bid, modifier)]
        if value and value ~= "" then
          out:AddMessage("    |cffffff88" .. CC:BindingLabel(bid, modifier) .. "|r -> " .. value)
        end
      end
    end
  end

  if frames == 0 then
    out:AddMessage("  |cffff5555=> No unit frames were hooked.|r Run |cffffff88/cc scan|r;")
    out:AddMessage("  |cffff5555   if it stays at 0, your unit frame addon isn't detected.|r")
  end
end

function CC:Debug(msg)
  if CC.db and CC.db.debug == "1" then CC:Print("|cff888888" .. (msg or "")) end
end

function CC:Trim(text)
  if not text then return "" end
  local trimmed = string.gsub(text, "^%s*(.-)%s*$", "%1")
  return trimmed
end

-- SuperWoW lets us cast on a unit without ever changing the target
function CC:HasSuperWoW()
  if SUPERWOW_VERSION then return true end
  -- older SuperWoW builds don't expose a version string
  if SetAutoloot and SpellInfo then return true end
  return false
end

function CC:UseSuperWoW()
  return CC.db.superwow == "1" and CC:HasSuperWoW()
end

-- vanilla has no RunMacroText; this is pfUI's compat shim (compat/vanilla.lua),
-- only installed when nothing else has provided one already.
if not RunMacroText then
  local obj = { ["GetText"] = function(self) return self.text end }
  obj = setmetatable(obj, { __index = function(tab, key)
    local value = function() return end
    rawset(tab, key, value)
    return value
  end })

  function RunMacroText(text)
    obj.text = text
    ChatEdit_ParseText(obj, 1)
  end
end

-- ---------------------------------------------------------------------------
-- slash commands
-- ---------------------------------------------------------------------------
SLASH_CLICKCAST1 = "/clickcast"
SLASH_CLICKCAST2 = "/ccast"
SLASH_CLICKCAST3 = "/cc"

SlashCmdList["CLICKCAST"] = function(msg)
  msg = string.lower(CC:Trim(msg or ""))

  if msg == "" or msg == "config" or msg == "options" then
    CC:ToggleGUI()

  elseif msg == "on" then
    CC.db.enabled = "1"
    CC:Print("enabled.")

  elseif msg == "off" then
    CC.db.enabled = "0"
    CC:Print("disabled.")

  elseif msg == "status" then
    CC:Status()

  elseif msg == "scan" then
    CC:ScanFrames(true)
    CC:Print("hooked " .. CC:CountFrames() .. " unit frame(s).")

  elseif msg == "list" then
    CC:Print("hooked frames:")
    for frame in pairs(CC.hooked) do
      local name = frame.GetName and frame:GetName() or "<unnamed>"
      local unit = CC:GetUnit(frame) or "?"
      DEFAULT_CHAT_FRAME:AddMessage("  |cffaaaaaa" .. name .. "|r -> " .. unit)
    end

  elseif msg == "debug" then
    CC.db.debug = (CC.db.debug == "1") and "0" or "1"
    CC:Print("debug output " .. (CC.db.debug == "1" and "on" or "off") .. ".")

  else
    CC:Print("commands:")
    DEFAULT_CHAT_FRAME:AddMessage("  |cffffff88/cc|r - open the settings window")
    DEFAULT_CHAT_FRAME:AddMessage("  |cffffff88/cc status|r - why isn't it casting? start here")
    DEFAULT_CHAT_FRAME:AddMessage("  |cffffff88/cc on|r / |cffffff88/cc off|r - toggle click casting")
    DEFAULT_CHAT_FRAME:AddMessage("  |cffffff88/cc scan|r - re-scan for unit frames")
    DEFAULT_CHAT_FRAME:AddMessage("  |cffffff88/cc list|r - list every hooked frame")
    DEFAULT_CHAT_FRAME:AddMessage("  |cffffff88/cc debug|r - toggle debug output")
  end
end