Wowhead Link Grabber - fixed for 7.1.5 - by q3fuba

local tooltipInfo = {}
local customframes;
local wowheadLink, hash
local frame = CreateFrame("Frame")
local gotoLink = ""
local QuestMapFrame_IsQuestWorldQuest = QuestMapFrame_IsQuestWorldQuest or QuestUtils_IsQuestWorldQuest

local validfounds = {
    npc = "",
    spell = GetSpellBookItemName,
    achievement = function(id) return select(2,GetAchievementInfo(id)) end,
    quest = function(id)
            for i=1,GetNumQuestLogEntries() do
                    local name,_,_,_,_,_,_,qid = GetQuestLogTitle(i)
                    if id == qid then return name end
            end
            for i=1, NUM_WORLDMAP_TASK_POIS do
                local POI = _G["WorldMapFrameTaskPOI"..i];
                if POI.worldQuest and POI.questID then
                    local name = select(4, GetTaskInfo(POI.questID));
                    if POI.questID == id then   return name end
                end
            end
            if QuestMapFrame_IsQuestWorldQuest(id) then
                return "World Quest";
            else
                return "Quest";
            end
    end,
    item = GetItemInfo
}

local function clearTooltipInfo(tooltip)
    wipe(tooltipInfo[tooltip])
end

local function setTooltipHyperkink(tooltip, hyperlink)
    local ttable = tooltipInfo[tooltip];
    ttable.hl = hyperlink;
end

local function setTooltipAura(tooltip, unit, index, filter)
    local ttable = tooltipInfo[tooltip];
    local name,_,_,_,_,_,_,_,_,_,id = UnitAura(unit, index, filter);
    ttable.aura = id
    ttable.name = name
end

local function hookTooltip(tooltip)
    tooltipInfo[tooltip] = {}
    hooksecurefunc(tooltip, "SetHyperlink", setTooltipHyperkink)
    hooksecurefunc(tooltip, "SetUnitAura", setTooltipAura)
    tooltip:HookScript("OnTooltipCleared", clearTooltipInfo)
end

local function onEvent(frame, event)
    if event == "PLAYER_ENTERING_WORLD" then
        hookTooltip(GameTooltip)
        hookTooltip(ItemRefTooltip)
    end
end

local function onUpdate()
    StaticPopup_Show("WOWHEAD_LINK_GRABBER")
    frame:Hide();
end

local function found(ftype, id, name)
    local foundAccept = validfounds[ftype];
    if foundAccept then
        name = name or foundAccept;
        if type(name) == 'function' then
            name = name(id);
        end
        name = name or ftype;
                local strType;
                if QuestMapFrame_IsQuestWorldQuest(id) then
                    strType = "World Quest"
                end
                strType = strType or ftype;
        --print("Found "..type.." "..id)
        -- Show frame to recieve OnUpdate next frame
        -- So pressed hotkey doesnt erase text field
        gotoLink = wowheadLink .. ftype .. "=" .. id .. hash;
        --StaticPopupDialogs["WOWHEAD_LINK_GRABBER"].text = firstToUpper(ftype) .. ": " .. name .. "\n|cff808080id="..id.."\n|cff00ff00CTRL+C to copy!";
        StaticPopupDialogs["WOWHEAD_LINK_GRABBER"].text = "|cffffff00"..firstToUpper(strType) .. ":\n|r" .. name .. "\n\n|cff00ff00CTRL+C to copy!|r";
        frame:Show();
        return true;
    end
end

local function foundplayer(name)
    return true;
end

local function getUnitInfo(unit, name)
    if UnitIsPlayer(unit) then
        return foundplayer(name)
    else
        local GUID=UnitGUID(unit)
        local type,_,_,_,_,id = strsplit("-",GUID);
        if type == "Creature" then return found("npc",id,name) end
    end
end

local function getFocusInfo()
    local focus = GetMouseFocus()
    local current = focus;
    local focusname;
    --__LASTFRAME = focus;
    while current and not focusname do
        focusname = current:GetName()
        current = current:GetParent()
    end
    if not focusname then return end
    local focuslen = string.len(focusname);
    --print(focusname);
    for name,func in pairs(customframes) do
        local customlen = string.len(name)
        if customlen <= focuslen and name == string.sub(focusname,1,customlen) then
            if func(focus, focusname) then return true end
        end
    end
end

local function parseLink(link)
    local linkstart = string.find(link,"|H")
    local _,lastfound,type,id = string.find(link,"(%a+):(%d+):",linkstart and linkstart + 2)
    local _,_,name = string.find(link,"%[([^%[%]]*)%]",lastfound)
    return found(type,id,name)
end

local function parseTooltip(tooltip)
    local name, link = tooltip:GetItem()
    if name then return parseLink(link) end
    local name, _, id = tooltip:GetSpell();
    if name then return found("spell",id,name) end
    local name, unit = tooltip:GetUnit()
    if unit then return getUnitInfo(unit, name) end
    local ttdata = tooltipInfo[tooltip];
    if ttdata.hl then return parseLink(ttdata.hl) end
    if ttdata.aura then return found("spell",ttdata.aura,ttdata.name) end
end

local function linkGrabberRunInternal()
    return parseTooltip(ItemRefTooltip)
            or parseTooltip(GameTooltip)
            or getFocusInfo()
end

linkGrabberRun = function()
    linkGrabberRunInternal()
    --pcall(linkGrabberRunInternal);
end

-- Formatting

function firstToUpper(str)
    return (str:gsub("^%l", string.upper))
end

-- Custom frames mouseover

local function AchievmentWidget(widget)
    return found("achievement",widget.id);
end

local function AchievmentWidgetParent(widget)
    return AchievmentWidget(widget:GetParent())
end

local function QuestWidget(widget)
    if widget.questID then return found("quest",widget.questID) end
end

local function WolrdQuestWidget(widget)
    if widget.questID then return found("quest",widget.questID) end
end

local function TrackWidget(widget)
    local parent = widget:GetParent()
    local module = parent.module;
    if module == QUEST_TRACKER_MODULE then
        return found("quest",parent.id)
        elseif module == ACHIEVEMENT_TRACKER_MODULE then
        return found("achievement",parent.id)
    end
end

local function TrackWorldQuestWidget(widget)
    local module = widget.module;
    if module == WORLD_QUEST_TRACKER_MODULE then
            if widget.id then
        return found("quest", widget.id, select(4, GetTaskInfo(widget.id)))
            end
    elseif widget.questID then -- World Quest Tracker support
            if QuestMapFrame_IsQuestWorldQuest(widget.questID) then
                return found("quest", widget.questID, select(4, GetTaskInfo(widget.questID)))
            end
        end
end

local function ArtifactWidget(widget)
    local module = widget.module;
    if module == WORLD_QUEST_TRACKER_MODULE then
            if widget.id then
        return found("quest", widget.id, select(4, GetTaskInfo(widget.id)))
            end
    elseif widget.questID then -- World Quest Tracker support
            if QuestMapFrame_IsQuestWorldQuest(widget.questID) then
                return found("quest", widget.questID, select(4, GetTaskInfo(widget.questID)))
            end
        end
end

-- local isInArea, isOnMap, numObjectives, taskName, displayAsObjective = GetTaskInfo(questID);

customframes = {
    ["AchievementFrameCriteria"] = AchievmentWidgetParent,
    ["AchievementFrameSummaryAchievement"] = AchievmentWidget,
    ["AchievementFrameAchievementsContainerButton"] = AchievmentWidget,
    ["QuestScrollFrame"] = QuestWidget,
    ["ObjectiveTrackerBlocksFrameHeader"] = TrackWidget,
        ["ObjectiveTrackerBlocksFrame"] = TrackWorldQuestWidget,
        ["WorldMapFrameTaskPOI"] = WolrdQuestWidget,
        ["WorldQuestTrackerZonePOIWidget"] = WolrdQuestWidget, -- World Quest Tracker support
        ["WorldQuestTracker_Tracker"] = TrackWorldQuestWidget -- World Quest Tracker support
}

frame:Hide()
frame:RegisterEvent("PLAYER_ENTERING_WORLD")
frame:SetScript("OnEvent", onEvent)
frame:SetScript("OnUpdate", onUpdate)

local locale = string.sub(GetLocale(),1,2)
if locale ~= "en" then
    wowheadLink = "http://"..locale..".wowhead.com/"
    hash = "#english-comments"
else
    wowheadLink = "http://www.wowhead.com/"
    hash = ""
end

BINDING_HEADER_WOWHEADLINK = "Wowhead Link Grabber";
BINDING_NAME_WOWHEADLINKRUN = "Hotkey for displaying wowhead link"

StaticPopupDialogs["WOWHEAD_LINK_GRABBER"] = {
    OnShow = function (self, data)
        self.editBox:SetText(gotoLink)
        self.editBox:HighlightText()
    end,
        EditBoxOnEscapePressed = function(self)
            self:GetParent():Hide();
        end,
    button1 = OKAY,
    editBoxWidth = 350,
    hasEditBox=true,
    preferredIndex = 3
}