-- module independent variables --
----------------------------------
local addon, ns = ...
local C, L, I = ns.LC.color, ns.L, ns.I
if ns.client_version<4 then return end


-- module own local variables and local cached functions --
-----------------------------------------------------------
local name = "IDs"; -- L["IDs"] L["ModDesc-IDs"]
local ttName,ttColumns,tt,module,activeEncounter = name.."TT", 4;
local diffName = {
	LFG_TYPE_DUNGEON, -- dungeons [1]
	TRACKER_HEADER_SCENARIO, -- scenarios [2]
	PLAYER_DIFFICULTY3, -- lfr [3]
	LFG_TYPE_RAID, -- raids [4]
	-- event [5]
};
diffName[5] = GetDifficultyInfo(18);
diffName[6] = RAID_DIFFICULTY1:gsub("(%d+)","%%d");

local BossKillQueryUpdate,diffTypes = false,setmetatable({ -- http://wowpedia.org/API_GetDifficultyInfo / http://wow.gamepedia.com/DifficultyID
	[14] = 4,	-- 14 / 10-30 raid / normal
	[15] = 4,	-- 15 / 10-30 raid / heroic
	[16] = 4,	-- 16 / 20 raid / mystic
},{
	__index=function(t,k)
		local isType = 1;
		local info = GetDifficultyInfo(k);
		if info:find(diffName[6]) then
			isType = 4; -- raid
		else
			for i=1, #diffName do
				if info:find(diffName[i]) then
					isType = i;
					break;
				end
			end
		end
		rawset(t,k,isType);
		return isType;
	end
});


-- register icon names and default files --
-------------------------------------------
I[name] = {iconfile=[[interface\icons\inv_misc_pocketwatch_02]],coords={0.05,0.95,0.05,0.95}} --IconName::IDs--


-- some local functions --
--------------------------
local function extendInstance(self,info)
	securecall("SetSavedInstanceExtend", info.index, info.doExtend);
	securecall("RequestRaidInfo");
end

local function RequestRaidInfoUpdate()
	if BossKillQueryUpdate then
		RequestRaidInfo();
	end
end

local function EncounterTT_Show(frame,index)
	GameTooltip:SetOwner(frame, "ANCHOR_NONE");
	GameTooltip:SetPoint(ns.GetTipAnchor(frame,"horizontal",tt));
	GameTooltip:SetInstanceLockEncountersComplete(index);
	GameTooltip:Show();
end

local function createTooltip(tt)
	if not (tt and tt.key and tt.key==ttName) then return end -- don't override other LibQTip tooltips...
	local allNothing,iniNothing = true,true;
	local _,title = ns.DurationOrExpireDate(0,false,"Duration","Expire date");
	local timer = function(num)
		return (IsShiftKeyDown()) and ( (num==true) and "Expire date" or date("%Y-%m-%d %H:%M",time()+num) ) or ( (num==true) and "Duration" or SecondsToTime(num) );
	end

	if tt.lines~=nil then tt:Clear(); end
	tt:AddHeader(C("dkyellow",L[name]));

	if ns.profile[name].showBosses then
		tt:AddSeparator(3,0,0,0,0)
		tt:AddLine(C("ltblue",L["World bosses"]),"","",C("ltblue",L[title]))
		tt:AddSeparator()
		local num = GetNumSavedWorldBosses();
		if (num>0) then
			local lst,data = {};
			for i=1, num do
				local n,id,r = GetSavedWorldBossInfo(i);
				if (n) and (type(r)=="number") and (r>0) then
					tinsert(lst,{name=n,id=id,reset=r,bonus=false});
				end
			end
			if (#lst>0) then
				for i,v in ipairs(lst) do
					tt:AddLine(C("ltyellow",v.name),"","",ns.DurationOrExpireDate(v.reset))
				end
				allNothing = false
			end
		else
			tt:AddLine(C("gray",L["No boss IDs found..."]));
		end
	end

	local instanceName, instanceID, instanceReset, instanceDifficulty, locked, extended, instanceIDMostSig, isRaid, maxPlayers, difficultyName, numEncounters, encounterProgress=1,2,3,4,5,6,7,8,9,10,11,12;
	tt:AddSeparator(3,0,0,0,0);
	tt:AddLine(C("ltblue",L["Instances"]), C("ltblue",TYPE),C("ltblue",RAID_BOSSES),C("ltblue",L[title]));
	tt:AddSeparator();
	local empty,num = true,GetNumSavedInstances();
	local diffCounter = {};
	if (num>0) then
		local lst,count,data = {},0;
		for i=1, num do
			data={GetSavedInstanceInfo(i)};
			data.index = i;
			if (data[instanceName]) and (data[instanceDifficulty]) then
				local diff = diffTypes[data[instanceDifficulty]];
				if not lst[diff] then
					lst[diff]={};
				end
				if not diffCounter[diff] then
					diffCounter[diff] = {0,0};
				end
				diffCounter[diff][1]=diffCounter[diff][1]+1;
				if data[instanceReset]>0 then
					diffCounter[diff][2]=diffCounter[diff][2]+1;
				end
				tinsert(lst[diff],data);
				count=count+1;
			end
		end
		if (count>0) then
			local showDiff = { -- show difficulty
				ns.profile[name].showDungeons,	--"Dungeons", -- [1]
				ns.profile[name].showSzenarios,	--"Szenarios", -- [2]
				ns.profile[name].showRaidsLFR,	--"Raids (LFR)", -- [3]
				ns.profile[name].showRaids,		--"Raids", -- [4]
				ns.profile[name].showEvents,	--"Events" -- [5]
			};
			for diff, data in ns.pairsByKeys(lst) do
				if diff~=0 and showDiff[diff] and (diffCounter[diff][2]>0 or diffCounter[diff][1]>0) then
					local header,headerShown,doExtend = (diffName[diff]) and diffName[diff] or "Unknown type",false,false;
					for i,v in ipairs(data) do
						local duration,color,show = false,"ltgray",ns.profile[name].showExpiredEntries;
						if v[instanceReset]>0 then
							duration = ns.DurationOrExpireDate(v[instanceReset])
							color = "ltyellow";
							show = true;
						elseif v[encounterProgress]>0 and v[numEncounters]>0 and v[encounterProgress]<v[numEncounters] then
							if v[extended] then
								doExtend = false;
								duration = L["Unextend ID"];
							else
								doExtend = true;
								if v[locked] then
									duration = L["Extend ID"];
								else
									duration = L["Reactivate ID"];
								end
							end
							duration = C("ltgray",duration);
							show = true;
						else
							doExtend = false;
							duration = C("gray",RAID_INSTANCE_EXPIRES_EXPIRED);
						end
						if show then
							if not headerShown then
								tt:AddLine(C("gray",header));
								headerShown=true;
							end
							local l=tt:AddLine(
								C(color,"    "..v[instanceName]),
								v[difficultyName].. (not diffName[diff] and " ("..v[instanceDifficulty]..")" or ""),
								("%s/%s"):format(
									(v[encounterProgress]>0) and v[encounterProgress] or "?",
									(v[numEncounters]>0) and v[numEncounters] or "?"
								),
								duration or ""
							);
							if doExtend then
								tt:SetCellScript(l,4,"OnMouseUp", extendInstance, {index=v.index,doExtend=doExtend});
							end
							tt:SetLineScript(l,"OnEnter", EncounterTT_Show, v.index);
							tt:SetLineScript(l,"OnLeave", GameTooltip_Hide);
						end
					end
					allNothing = false;
					iniNothing = false;
				end
			end
		end
	end

	if iniNothing then
		tt:AddLine(C("gray",L["No instance IDs found..."]));
	end

	if ns.profile.GeneralOptions.showHints then
		tt:AddSeparator(4,0,0,0,0)
		if allNothing==false then
			local _,_,mod = ns.DurationOrExpireDate();
			tt:SetCell(tt:AddLine(),1,C("copper",L["Hold "..mod]).." || "..C("green",L["Show expire date instead of duration"]),nil,nil,ttColumns);
		end
		ns.ClickOpts.ttAddHints(tt,name);
	end

	ns.roundupTooltip(tt);
end


-- module functions and variables --
------------------------------------
module = {
	events = {
		"PLAYER_LOGIN",
		"UPDATE_INSTANCE_INFO",
		"BOSS_KILL"
	},
	config_defaults = {
		enabled = false,
		-- show types
		showBosses = true,
		showDungeons = true,
		showSzenarios = true,
		showRaidsLFR = true,
		showRaids = true,
		showEvents = true,

		-- show expired types
		showExpiredEntries = true,
	},
	clickOptionsRename = {
		["menu"] = "5_open_menu"
	},
	clickOptions = {
		["menu"] = "OptionMenu"
	}
}

ns.ClickOpts.addDefaults(module,{
	menu = "_RIGHT"
});

function module.options()
	return {
		broker = nil,
		tooltip = {
			showBosses={ type="toggle", order=1, name=L["Show world bosses"],          desc=L["Display list of world boss IDs in tooltip"] },
			showDungeons={ type="toggle", order=2, name=L["Show dungeons"],              desc=L["Display list of dungeon IDs in tooltip"] },
			showSzenarios={ type="toggle", order=3, name=L["Show szenarios"],             desc=L["Display list of szenario IDs in tooltip"] },
			showRaidsLFR={ type="toggle", order=4, name=L["Show lfr"],                   desc=L["Display list of lfr IDs in tooltip"] },
			showRaids={ type="toggle", order=5, name=L["Show raids"],                 desc=L["Display list of raid IDs in tooltip"] },
			showEvents={ type="toggle", order=6, name=L["Show events"],                desc=L["Display list of event IDs in tooltip"] },
			separator={type="separator", order=7,},
			showExpiredEntries={ type="toggle", order=9, name=L["Show expired entries"],         desc=L["Display expired entries in tooltip"] },
		},
		misc = nil,
	}
end

-- function module.init() end

function module.onevent(self,event,...)
	local _
	if event=="BE_UPDATE_CFG" then
		ns.ClickOpts.update(name);
	elseif event=="PLAYER_LOGIN" then
		RequestRaidInfo(); -- trigger UPDATE_INSTANCE_INFO
		if ns.profile[name].showExpiredRaids ~= nil then
			ns.profile[name].showExpiredEntries = ns.profile[name].showExpiredRaids;
			ns.profile[name].showExpiredRaids = nil;
		end
	elseif event=="BOSS_KILL" then -- triggered 3 times per bosskill.
		local encounterID, name = ...;
		BossKillQueryUpdate=true;
		C_Timer.After(0.15,RequestRaidInfoUpdate);
	elseif event=="UPDATE_INSTANCE_INFO" then
		BossKillQueryUpdate=false;
	end
end

-- function module.optionspanel(panel) end
-- function module.onmousewheel(self,direction) end
-- function module.ontooltip(tooltip) end

function module.onenter(self)
	if (ns.tooltipChkOnShowModifier(false)) then return; end
	tt = ns.acquireTooltip({ttName, ttColumns, "LEFT", "LEFT", "RIGHT", "RIGHT", "RIGHT"},{false},{self});
	createTooltip(tt);
end

-- function module.onleave(self) end
-- function module.onclick(self,button) end
-- function module.ondblclick(self,button) end


-- final module registration --
-------------------------------
ns.modules[name] = module;