local _, app = ...;
local L, settings = app.L.SETTINGS_MENU, app.Settings;

-- Global locals
local pairs, ipairs, tonumber, math_floor, select, type, tostring, tinsert, tremove, RETRIEVING_DATA
	= pairs, ipairs, tonumber, math.floor, select, type, tostring, tinsert, tremove, RETRIEVING_DATA;
local Colorize = app.Modules.Color.Colorize;
local GetNumberWithZeros = app.Modules.Color.GetNumberWithZeros;
local IsRetrieving = app.Modules.RetrievingData.IsRetrieving;
local GetRelativeValue = app.GetRelativeValue;
local GetRealmName = GetRealmName

-- WoW API Cache
local GetItemInfo = app.WOWAPI.GetItemInfo;
local GetItemCount = app.WOWAPI.GetItemCount;
local GetItemSpecInfo = app.WOWAPI.GetItemSpecInfo;
local GetSpellName = app.WOWAPI.GetSpellName;
local GetSpellIcon = app.WOWAPI.GetSpellIcon;
local IsQuestFlaggedCompletedOnAccount = app.WOWAPI.IsQuestFlaggedCompletedOnAccount;

-- Settings: Interface Page
local child = settings:CreateOptionsPage("Information", L.INTERFACE_PAGE)

-- Conversion Methods for specific formats for a given Information Type.
local function GetCoordString(x, y)
	return GetNumberWithZeros(app.round(x, 1), 1) .. ", " .. GetNumberWithZeros(app.round(y, 1), 1);
end
local function GetPatchString(patch)
	patch = tonumber(patch)
	return patch and (math_floor(patch / 10000) .. "." .. (math_floor(patch / 100) % 100) .. "." .. (patch % 10))
end
local DefaultConversionMethod = function(value)
	return value;
end
-- Handles checking the 'text' and assigning 'reference.working' if the text is in a 'retrieving' state
local function IsRetrievingConversionMethod(text, reference)
	if IsRetrieving(text) then
		reference.working = true
		text = RETRIEVING_DATA
	end
	return text
end
local BindTypes = {
	ITEM_BIND_ON_PICKUP,
	ITEM_BIND_ON_EQUIP,
	ITEM_BIND_ON_USE,
	ITEM_BIND_QUEST,
}
local ConversionMethods = setmetatable({
	filterID = function(val, reference)
		return L.FILTER_ID_TYPES[val]
	end,
	b = function(val)
		return BindTypes[val]
	end,
	questID = function(questID, reference)
		-- for questID, also check if there's an otherFactionQuestID (Bfa Warfront Rares)
		local otherFactionQuestID = reference.otherFactionQuestID;
		if otherFactionQuestID then
			return "["..(app.FactionID == Enum.FlightPathFaction.Alliance and FACTION_HORDE or FACTION_ALLIANCE).." "..otherFactionQuestID.."] "..questID
		end
		return questID
	end,
	awp = function(val) return Colorize(GetPatchString(val), app.Colors.AddedWithPatch) end,
	rwp = function(val) return Colorize(GetPatchString(val), app.Colors.RemovedWithPatch) end,
	spellID = function(spellID, reference)
		local name = tostring(spellID);
		if app.Settings:GetTooltipSetting("spellName") then
			name = name .. " (" .. (app.GetSpellName(spellID, reference.rank) or "??") .. ")";
		end
		return name;
	end,
	spellIDAndIcon = function(spellID, reference)
		local name = tostring(spellID);
		if app.Settings:GetTooltipSetting("spellName") then
			name = name .. " (" .. (app.GetSpellName(spellID, reference.rank) or "??") .. ")";
		end
		local icon = GetSpellIcon(spellID);
		if icon then
			name = "|T" .. icon .. ":0|t" .. name;
		end
		return name;
	end,
	creatureName = function(creatureID, reference)
		if app.Settings:GetTooltipSetting("creatureID") then
			return IsRetrievingConversionMethod(app.NPCNameFromID[creatureID], reference) .. " (" .. creatureID .. ")";
		else
			return IsRetrievingConversionMethod(app.NPCNameFromID[creatureID], reference)
		end
	end,
	itemName = function(itemID, reference)
		local name = select(2, GetItemInfo(itemID));
		if IsRetrieving(name) then
			reference.working = true
			name = "Item: " .. RETRIEVING_DATA;
		end
		if app.Settings:GetTooltipSetting("itemID") then
			return name .. " (" .. itemID .. ")";
		else
			return name;
		end
	end,
	itemNameAndIcon = function(itemID, reference)
		local _,name,_,_,_,_,_,_,_,icon = GetItemInfo(itemID);
		if IsRetrieving(name) then
			reference.working = true
			name = "Item: " .. RETRIEVING_DATA;
		end
		if icon then
			name = "|T" .. icon .. ":0|t" .. name;
		end
		if app.Settings:GetTooltipSetting("itemID") then
			return name .. " (" .. itemID .. ")";
		else
			return name;
		end
	end,
	objectName = function(objectID, reference)
		if app.Settings:GetTooltipSetting("objectID") then
			return IsRetrievingConversionMethod(app.ObjectNames[objectID], reference) .. " (" .. objectID .. ")";
		else
			return IsRetrievingConversionMethod(app.ObjectNames[objectID], reference)
		end
	end,
	professionName = function(spellID, reference)
		return IsRetrievingConversionMethod(GetSpellName(app.SkillDB.SkillToSpell[spellID] or 0), reference)
	end,
}, {
	__index = function(t, key)
		return DefaultConversionMethod;
	end
});
ConversionMethods.provider = function(provider, reference)
	local providerType = provider[1];
	local providerID = provider[2] or 0;
	if providerType == "o" then
		return ConversionMethods.objectName(providerID, reference);
	elseif providerType == "n" then
		return ConversionMethods.creatureName(providerID, reference);
	elseif providerType == "i" then
		return ConversionMethods.itemNameAndIcon(providerID, reference);
	elseif providerType == "s" then
		return ConversionMethods.spellIDAndIcon(providerID, reference);
	end
	return UNKNOWN;
end;
settings.InformationTypeConversionMethods = ConversionMethods;

-- Class Template for creating an Information Type instance.
local function GetValueForInformationType(t, reference)
	local rowReference = app.ActiveRowReference
	local informationTypeID = t.informationTypeID
	return rowReference and rowReference[informationTypeID] or reference[informationTypeID]
end
local function GetRecursiveValueForInformationType(t, reference)
	local rowReference = app.ActiveRowReference
	local informationTypeID = t.informationTypeID
	-- app.PrintDebug("IT-recur",informationTypeID,rowReference,rowReference and rowReference[informationTypeID],
	-- 				reference,reference[informationTypeID],GetRelativeValue(rowReference or reference, informationTypeID),
	-- 				app:SearchLink(app.GetRelativeGroup((rowReference and rowReference.sourceParent)
						-- or reference.sourceParent
						-- or (not reference.sourceIgnored and reference.parent)
						-- or nil, informationTypeID)))
	return rowReference and rowReference[informationTypeID]
		or reference[informationTypeID]
		-- prioritize sourceParent for recursive values, and only allow parent when not a sourceIgnored group
		or GetRelativeValue((rowReference and rowReference.sourceParent)
						or reference.sourceParent
						or (not reference.sourceIgnored and reference.parent)
						or nil, informationTypeID)
end
local function ProcessInformationType(t, reference, tooltipInfo)
	local val = t.GetValue(t, reference);
	if val then
		local text = ConversionMethods[t.informationTypeID](val, reference)
		if text then
			tinsert(tooltipInfo, { left = t.text, right = text});
		end
	end
end
local CreateInformationType = app.CreateClass("InformationType", "informationTypeID", {
	textLower = function(t)
		local textLower = t.text:lower();
		t.textLower = textLower;
		return textLower;
	end,
	priority = function(t)
		return 100;
	end,
	GetValue = function()
		return GetValueForInformationType;
	end,
	Process = function()
		return ProcessInformationType;
	end,
	IsStandaloneProperty = app.ReturnTrue,
	ShouldDisplayInExternalTooltips = app.ReturnTrue,
},
"AsRecursive", {
	GetValue = function()
		return GetRecursiveValueForInformationType;
	end,
},
(function(t) return t.isRecursive; end));

-- Known By / Completed By
-- Types which have an ID which can be 'known' or 'completed' but is typically spammy to show when account-wide
local KnownByIgnoredTypes = {
	Achievement = app.IsRetail,
	BattlePet = true,
	BattlePetWithItem = true,
	Illusion = true,
	IllusionWithItem = true,
	Mount = true,
	MountWithItem = true,
}
local knownBy = {};
local function BuildKnownByInfoForKind(tooltipInfo, kind)
	if #knownBy > 0 and kind then
		app.Sort(knownBy, app.SortDefaults.name);
		local desc = "";
		for i,character in ipairs(knownBy) do
			if i > 1 then desc = desc .. ", "; end
			desc = desc .. (character.text or "???");
		end
		tinsert(tooltipInfo, { left = kind:format(desc:gsub("-" .. GetRealmName(), "")), wrap = true, color = app.Colors.TooltipDescription });
		wipe(knownBy);
	end
end
local function ProcessForCompletedBy(t, reference, tooltipInfo)
	-- If the item is a recipe, then show which characters know this recipe.
	if reference.objectiveID then return end

	-- Completed By for Quests
	local id = reference.questID;
	if id and (not KnownByIgnoredTypes[reference.__type] or reference.perCharacter) then
		-- Account-Wide Quests
		if app.AccountWideQuestsDB[id] then
			if IsQuestFlaggedCompletedOnAccount(id) then
				tinsert(knownBy, {text=ITEM_UPGRADE_DISCOUNT_TOOLTIP_ACCOUNT_WIDE or "Account-Wide"});
			end
		else
			for _,character in pairs(ATTCharacterData) do
				if character.Quests and character.Quests[id] then
					tinsert(knownBy, character);
				end
			end
			if #knownBy == 0 and IsQuestFlaggedCompletedOnAccount(id) then
				tinsert(knownBy, {text=ACCOUNT_COMPLETED_QUEST_NOTICE or "Previously completed on your Account"});
			end
		end
		BuildKnownByInfoForKind(tooltipInfo, L.COMPLETED_BY);
	end

	-- Completed By for Exploration
	local id = reference.explorationID;
	if id then
		for _,character in pairs(ATTCharacterData) do
			if character.Exploration and character.Exploration[id] then
				tinsert(knownBy, character);
			end
		end
		BuildKnownByInfoForKind(tooltipInfo, L.COMPLETED_BY);
	end

	-- Pre-WOD Known By types
	if app.GameBuildVersion < 60000 then
		id = reference.achievementID;
		if id then
			-- Prior to Cata, Achievements were not tracked account wide
			for guid,character in pairs(ATTCharacterData) do
				if character.Achievements and character.Achievements[id] then
					tinsert(knownBy, character);
				end
			end
			BuildKnownByInfoForKind(tooltipInfo, L.COMPLETED_BY);
		end

		local itemID = reference.itemID;
		if itemID then
			local knownByGUID = {};

			-- Prior to Cata, transmog was not tracked account wide
			id = reference.sourceID;
			for guid,character in pairs(ATTCharacterData) do
				if character.Transmog and character.Transmog[id] then
					if ATTAccountWideData.Sources and ATTAccountWideData.Sources[id] then
						character.Transmog[id] = nil;
					else
						knownByGUID[guid] = character;
					end
				end
			end
			if app.GameBuildVersion < 30000 then
				-- Prior to Wrath, mounts, pets, and toys were not tracked account wide
				id = reference.spellID;
				if id and reference.filterID == 100 then	-- Mounts only!
					for guid,character in pairs(ATTCharacterData) do
						if character.Spells and character.Spells[id] then
							knownByGUID[guid] = character;
						end
					end
				end

				id = reference.speciesID;
				if id then
					for guid,character in pairs(ATTCharacterData) do
						if character.BattlePets and character.BattlePets[id] then
							knownByGUID[guid] = character;
						end
					end
				end

				if reference.toyID then
					for guid,character in pairs(ATTCharacterData) do
						if character.Toys and character.Toys[itemID] then
							knownByGUID[guid] = character;
						end
					end
				end
			end

			-- For the current character, count how many of the thing they own.
			local currentCharacter = knownByGUID[app.GUID];
			if currentCharacter then
				local text = currentCharacter.text or "???";
				local count = GetItemCount(itemID, true);
				if count and count > 1 then
					text = text .. " (x" .. count .. ")";
				end
				knownByGUID[app.GUID] = setmetatable({ text = text }, { __index = currentCharacter });
			end

			-- Convert the GUID dictionary to the knownBy list.
			for guid,character in pairs(knownByGUID) do
				tinsert(knownBy, character);
			end

			-- All of this can be stored together.
			BuildKnownByInfoForKind(tooltipInfo, L.OWNED_BY);
		end
	end
end
local function ProcessForKnownBy(t, reference, tooltipInfo)
	-- This is to show which characters have this profession.
	local id = reference.knownByID or reference.spellID
	if id then
		if reference.key == "professionID" and app.IsClassic then	-- Apparently Retail doesn't use ActiveSkills
			for _,character in pairs(ATTCharacterData) do
				if character.ActiveSkills and not character.ignored then
					local skills = character.ActiveSkills[id];
					if skills then tinsert(knownBy, { character, skills[1], skills[2] }); end
				end
			end
			if #knownBy > 0 then
				app.Sort(knownBy, function(a, b)
					return a[2] > b[2];
				end);
				tinsert(tooltipInfo, {
					left = L.KNOWN_BY:format(""),
					color = app.Colors.TooltipDescription,
				});
				for i,data in ipairs(knownBy) do
					local character = data[1];
					tinsert(tooltipInfo, {
						---@diagnostic disable-next-line: undefined-field
						left = ("  " .. (character and character.text or "???"):gsub("-" .. GetRealmName(), "")),
						right = data[2] .. " / " .. data[3],
					});
				end
				wipe(knownBy);
				return;
			end
		end

		-- If the Thing is not ignored, then show which characters know this Thing/Spell
		if not KnownByIgnoredTypes[reference.__type] or reference.perCharacter then
			local cacheName = reference.CACHE
			local knownByCache
			for guid,character in pairs(ATTCharacterData) do
				knownByCache = character[cacheName] or character.Spells
				if knownByCache and knownByCache[id] then
					tinsert(knownBy, character);
				end
			end
			BuildKnownByInfoForKind(tooltipInfo, L.KNOWN_BY);
		end
	end
end

-- Specialization Requirements
local GetNumSpecializations, GetSpecializationInfo, GetSpecializationInfoByID
	= GetNumSpecializations, GetSpecializationInfo, GetSpecializationInfoByID
-- Filters a specs table to only those which the current Character class can choose
local function FilterSpecs(specs)
	if specs and #specs > 0 then
		local name, class, _;
		for i=#specs,1,-1 do
			_, name, _, _, _, class = GetSpecializationInfoByID(specs[i]);
			if class ~= app.Class or not name or name == "" then
				tremove(specs, i);
			end
		end
		app.Sort(specs, app.SortDefaults.Values);
	end
end
local GetFixedItemSpecInfo = GetSpecializationInfo and function(itemID)
	if itemID then
		local specs = GetItemSpecInfo(itemID);
		if not specs or #specs < 1 then
			specs = {};
			-- Starting with Legion items, the API seems to return no spec information when the item is in fact lootable by ANY spec
			local _, _, _, _, _, _, _, _, itemEquipLoc, _, _, itemClassID, itemSubClassID, _, expacID, _, _ = GetItemInfo(itemID);
			-- only Armor items
			if itemClassID and itemClassID == 4 then
				-- unable to distinguish between Trinkets usable by all specs (Font of Power) and Role-Specific trinkets which do not apply to any Role of the current Character
				if expacID >= 6 and (itemEquipLoc == "INVTYPE_NECK" or itemEquipLoc == "INVTYPE_FINGER") then
					local numSpecializations = GetNumSpecializations();
					if numSpecializations and numSpecializations > 0 then
						for i=1,numSpecializations,1 do
							local specID = GetSpecializationInfo(i);
							tinsert(specs, specID);
						end
					end
				end
			end
			app.Sort(specs, app.SortDefaults.Values);
		else
			FilterSpecs(specs);
		end
		if #specs > 0 then
			return specs;
		end
	end
end or function(itemID)
	if itemID then
		local specs = GetItemSpecInfo(itemID);
		if specs then
			FilterSpecs(specs);
		else
			return;
		end
		if #specs > 0 then
			return specs;
		end
	end
end
app.GetFixedItemSpecInfo = GetFixedItemSpecInfo
-- Returns a string containing the spec icons, followed by their respective names if desired
local function GetSpecsString(specs, includeNames, trim)
	local icons, name, icon, _ = {}, nil, nil, nil;
	if includeNames then
		for i=#specs,1,-1 do
			_, name, _, icon, _, _ = GetSpecializationInfoByID(specs[i]);
			icons[i * 4 - 3] = "  |T";
			icons[i * 4 - 2] = icon;
			icons[i * 4 - 1] = ":0|t ";
			icons[i * 4] = name;
		end
	else
		for i=#specs,1,-1 do
			_, _, _, icon, _, _ = GetSpecializationInfoByID(specs[i]);
			icons[i * 3 - 2] = "|T";
			icons[i * 3 - 1] = icon;
			icons[i * 3] = ":0|t ";
		end
	end
	if trim then
		return app.TableConcat(icons):match('^%s*(.*%S)');
	end
	return app.TableConcat(icons);
end
app.GetSpecsString = GetSpecsString

-- Cost Helper Functions
local function formatNumericWithCommas(amount)
    local k
    while true do
        amount, k = tostring(amount):gsub("^(-?%d+)(%d%d%d)", '%1,%2')
        if k == 0 then
            break
        end
    end
    return amount
end
local function GetMoneyString(amount)
    if amount > 0 then
        local formatted
        local gold, silver, copper = math_floor(amount / 100 / 100), math_floor((amount / 100) % 100),
            math_floor(amount % 100)
        if gold > 0 then
            formatted = formatNumericWithCommas(gold) .. "|T237618:0|t"
        end
        if silver > 0 then
            formatted = (formatted or "") .. silver .. "|T237620:0|t"
        end
        if copper > 0 then
            formatted = (formatted or "") .. copper .. "|T237617:0|t"
        end
        return formatted
    end
    return amount
end
local CostCurrencyCache = setmetatable({}, {
	__index = function(t, id)
		local o = app.CreateCurrencyClass(id);
		t[id] = o;
		return o;
	end
});
local CostItemCache = setmetatable({}, {
	__index = function(t, id)
		local o = app.CreateItem(id);
		t[id] = o;
		return o;
	end
});

-- The post processor uses a dynamic list to append additional entries as needed.
local AppendedInformationTextEntries = {};
local PostProcessor = CreateInformationType("__postprocessor", {
	priority = 99999999,
	Process = function(t, reference, tooltipInfo)
		if #AppendedInformationTextEntries > 0 then
			for i,entry in ipairs(AppendedInformationTextEntries) do
				tinsert(tooltipInfo, entry);
			end
			wipe(AppendedInformationTextEntries);
		end
	end,
});
local function AppendInformationTextEntry(entry)
	-- You should call this from within the Process function of an information text object.
	tinsert(AppendedInformationTextEntries, entry);
end
settings.AppendInformationTextEntry = AppendInformationTextEntry;

-- All of the Default Information Types.
local InformationTypes = {
	-- Only displayed in NPC Tooltips that are alive and exist in the world.
	CreateInformationType("Alive", { text = L.ALIVE, priority = 0, IsStandaloneProperty = false }),
	CreateInformationType("Spawned", { text = L.SPAWNED, priority = 0, IsStandaloneProperty = false }),
	CreateInformationType("Layer", { text = L.LAYER, priority = 1, IsStandaloneProperty = false }),

	-- Progress Fields (top most)
	CreateInformationType("Progress", { text = L.SOCIAL_PROGRESS, priority = 1, HideCheckBox = true,
		Process = function(t, reference, tooltipInfo)
			local progressText = app.GetProgressTextForTooltip(reference);
			if progressText then
				tinsert(tooltipInfo, { progress = progressText });
				--[[
				-- I don't remember what the original conditions for showing this were.
				-- For now just disable it.
				if reference.total and reference.total >= 2 then
					-- if collecting this reference type, then show Collection State
					if reference.collectible then
						tinsert(tooltipInfo, {
							left = L.COLLECTION_PROGRESS,
							right = app.GetCollectionText(reference.collected or reference.saved),
						});
					-- if completion/tracking is available, show Completion State
					elseif reference.trackable then
						tinsert(tooltipInfo, {
							left = L.TRACKING_PROGRESS,
							right = app.GetCompletionText(reference.saved),
						});
					end
				end
				]]--
			end
		end,
	}),
	CreateInformationType("SocialProgress", { text = L.SOCIAL_PROGRESS, priority = 1, IsStandaloneProperty = false }),

	-- Contextual fields
	CreateInformationType("parent", { text = "Parent", priority = 1.1, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			if not reference.itemID then
				local parent = reference.parent or reference.sourceParent;
				if parent then
					-- Only show this for 2 depth hierarchies and above.
					local grandparent = parent.parent or parent.sourceParent;
					if grandparent then
						local ptext, gptext =
							IsRetrievingConversionMethod(parent.text, reference),
							IsRetrievingConversionMethod(grandparent.text, reference)
						tinsert(tooltipInfo, {
							left = gptext,
							right = ptext
						});
					end
				end
			end
		end,
	}),
	CreateInformationType("guid", { text = L.GUID, priority = 2 }),
	CreateInformationType("lvl", { text = LEVEL, priority = 2, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local lvl = reference.lvl;-- or GetRelativeValue(reference, "lvl");	-- TODO: Investigate if we want this.
			if lvl then
				local minlvl, maxlvl;
				if type(lvl) == "table" then
					minlvl = lvl[1] or 0;
					maxlvl = lvl[2] or 0;
				else
					minlvl = lvl;
				end
				-- i suppose a maxlvl of 1 might exist?
				if maxlvl and maxlvl > 0 then
					tinsert(tooltipInfo, {
						left = L.REQUIRES_LEVEL,
						right = tostring(minlvl) .. " to " .. tostring(maxlvl),
					});
				-- no point to show 'requires lvl 1'
				elseif minlvl and minlvl > 1 then
					tinsert(tooltipInfo, {
						left = L.REQUIRES_LEVEL,
						right = tostring(minlvl),
					});
				end
			end
		end,
	}),
	CreateInformationType("petBattleLvl", { text = LEVEL .. " (" .. L.PET_BATTLES .. ")", priority = 2.01, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local petBattleLvl = reference.petBattleLvl;
			if petBattleLvl then
				tinsert(tooltipInfo, {
					left = LEVEL .. " (" .. L.PET_BATTLES .. ")",
					right = tostring(petBattleLvl),
				});
			end
		end,
	}),

	-- Quest Fields
	CreateInformationType("qgs", { text = L.QUEST_GIVERS, priority = 2.05, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local qgs = reference.qgs;
			if qgs then
				for i,creatureID in ipairs(qgs) do
					tinsert(tooltipInfo, {
						left = (i == 1 and L.QUEST_GIVER),
						right = ConversionMethods.creatureName(creatureID, reference),
					});
				end
			end
		end,
	}),
	CreateInformationType("qis", { text = L.QUEST_ITEMS, priority = 2.06, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local qis = reference.qis
			if qis then
				for i=1,#qis do
					tinsert(tooltipInfo, {
						left = (i == 1 and L.QUEST_ITEMS),
						right = ConversionMethods.itemNameAndIcon(qis[i], reference),
					})
				end
			end
		end,
	}),
	CreateInformationType("coords", { text = L.COORDINATES, priority = 2.1, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local coords = reference.coords;
			if not coords then
				coords = reference.coord;
				if not coords then return; end
				coords = { coords };
			end

			local coordCount = #coords;
			if coordCount < 1 then return; end

			local maxCoords = 10;
			local currentMapID, j = app.CurrentMapID, 0
			local othercoords
			for i,coord in ipairs(coords) do
				local mapID = coord[3] or currentMapID;
				if mapID ~= currentMapID then
					if not othercoords then othercoords = { coord }
					else othercoords[#othercoords + 1] = coord end
				else
					local x, y = coord[1], coord[2];
					tinsert(tooltipInfo, {
						left = j == 0 and t.text,
						right = GetCoordString(x, y),
						r = 1, g = 1, b = 1
					});
					j = j + 1;
					if j >= maxCoords then
						tinsert(tooltipInfo, {
							right = (L.AND_MORE):format(coordCount - maxCoords),
							r = 1, g = 1, b = 1
						});
						break;
					end
				end
			end
			-- include coords from other maps if any and not at the limit
			if othercoords and j < maxCoords then
				local str
				local showMapID = app.Settings:GetTooltipSetting("mapID");
				for i,coord in ipairs(othercoords) do
					local x, y = coord[1], coord[2];
					local mapID = coord[3] or currentMapID;
					str = app.GetMapName(mapID);
					if showMapID then
						str = str .. " (" .. mapID .. ")";
					end
					str = str .. ": ";
					tinsert(tooltipInfo, {
						left = j == 0 and t.text,
						right = str .. GetCoordString(x, y),
						r = 1, g = 1, b = 1
					});
					j = j + 1;
					if j >= maxCoords then
						tinsert(tooltipInfo, {
							right = (L.AND_MORE):format(coordCount - maxCoords),
							r = 1, g = 1, b = 1
						});
						break;
					end
				end
			end
		end,
	}),
	CreateInformationType("playerCoord", { text = L.PLAYER_COORDINATES, priority = 2.1, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local coord = reference.playerCoord;
			if coord then
				tinsert(tooltipInfo, {
					left = t.text,
					right = GetCoordString(coord[1], coord[2]),
					r = 1, g = 1, b = 1
				});
			end
		end,
	}),

	-- Description fields
	CreateInformationType("lore", { text = L.LORE, priority = 2.4,
		Process = function(t, reference, tooltipInfo)
			local lore = reference.lore;
			if lore then
				tinsert(tooltipInfo, {
					left = lore,
					color = app.Colors.TooltipLore,
					wrap = true,
				});
			end
		end,
	}),
	CreateInformationType("description", { text = L.DESCRIPTIONS, priority = 2.5,
		Process = function(t, reference, tooltipInfo)
			local description = reference.description
				or GetRelativeValue(reference, "sharedDescription")
				-- duplicated search results loose their parent references in order to prevent issues in filtering/tooltips
				-- so also check the active row reference for accuracy if the tooltip is in context of a row
				or GetRelativeValue(app.ActiveRowReference, "sharedDescription")
			if description then
				tinsert(tooltipInfo, {
					left = description,
					color = app.Colors.TooltipDescription,
					wrap = true,
				});
			end
		end,
	}),
	CreateInformationType("maps", { text = L.MAPS, priority = 2.6,
		Process = function(t, reference, tooltipInfo)
			local maps = reference.maps;
			if not maps or #maps == 0 then
				local coords = reference.coords
				if coords and #coords > 0 then
					maps = {}
					for _,coord in ipairs(coords) do
						maps[#maps + 1] = coord[3]
					end
				end
			end
			if maps and #maps > 0 then
				local mapNames,uniques,name = {},{},nil;
				local rootMapID = reference.mapID;
				local myRealMapID = app.RealMapID
				local onMyMap = rootMapID == myRealMapID
				if rootMapID then uniques[app.GetMapName(rootMapID) or rootMapID] = true; end
				for i,mapID in ipairs(maps) do
					onMyMap = onMyMap or mapID == myRealMapID
					name = app.GetMapName(mapID);
					if name and not uniques[name] then
						uniques[name] = true;
						tinsert(mapNames, name);
					end
				end
				if #mapNames > 1 or (not onMyMap and #mapNames > 0) then
					-- If there's a description and it is visible, add some visual space.
					local description = reference.description;
					if description and app.Settings:GetTooltipSetting("description") then
						tinsert(tooltipInfo, {
							left = " ",
							color = app.Colors.TooltipDescription,
							wrap = true,
						});
					end
					tinsert(tooltipInfo, {
						left = t.text .. ": " .. app.TableConcat(mapNames, nil, nil, ", "),
						color = app.Colors.TooltipDescription,
						wrap = true,
					});
				end
			end
		end,
	}),
	CreateInformationType("pb", {
		priority = 2.7,
		isRecursive = true,
		text = L.PET_BATTLES,
		Process = function(t, reference, tooltipInfo)
			if t.GetValue(t, reference) then
				tinsert(tooltipInfo, {
					left = L.REQUIRES_PETBATTLES,
					wrap = true,
				});
			end
		end,
	});
	CreateInformationType("pvp", {
		priority = 2.7,
		isRecursive = true,
		text = PVP,
		Process = function(t, reference, tooltipInfo)
			if t.GetValue(t, reference) then
				tinsert(tooltipInfo, {
					left = L.REQUIRES_PVP,
					wrap = true,
				});
			end
		end,
	});
	CreateInformationType("sr", {
		priority = 2.7,
		isRecursive = true,
		text = L.SHOW_SKYRIDING_CHECKBOX,
		Process = function(t, reference, tooltipInfo)
			if t.GetValue(t, reference) then
				tinsert(tooltipInfo, {
					left = L.REQUIRES_SKYRIDING,
					wrap = true,
				});
			end
		end,
	});
	CreateInformationType("u", {
		priority = 2.7,
		isRecursive = true,
		text = L.AVAILABILITY,
		Process = function(t, reference, tooltipInfo)
			local u = t.GetValue(t, reference);
			if u then
				local phase = L.PHASES[u];
				if phase then
					local buildVersion = phase.buildVersion;
					if not buildVersion or app.GameBuildVersion < buildVersion or app.MODE_DEBUG then
						tinsert(tooltipInfo, {
							left = phase.description,
							wrap = true,
						});
					end
				end
			end
		end,
	});
	CreateInformationType("sym", {
		priority = 2.8,
		text = "SymLink",
		ForceActive = true,
		ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			if reference.skipFill then
				tinsert(tooltipInfo, {
					left = L.SYM_ROW_SKIP_DESC,
					r = 0.8, g = 0.8, b = 1,
					wrap = true,
				});
			end
			if reference.sym then
				tinsert(tooltipInfo, {
					left = L.SYM_ROW_INFORMATION,
					r = 0.8, g = 0.8, b = 1,
					wrap = true,
				});
			end
		end,
	});

	-- Regular fields (sorted by priority for clarity of how it will appear in the tooltip)
	CreateInformationType("awp", { text = L.ADDED_WITH_PATCH, isRecursive = true, priority = 3,
		Process = app.IsRetail and ProcessInformationType or function(t, reference, tooltipInfo)
			local awp = t.GetValue(t, reference);
			if awp then
				if awp > app.GameBuildVersion then
					tinsert(tooltipInfo, { left = Colorize(L.READDED_WITH_PATCH_CLASSIC_FORMAT:format(GetPatchString(awp)), app.Colors.AddedWithPatch)});
				else
					tinsert(tooltipInfo, { left = t.text, right = Colorize(GetPatchString(awp), app.Colors.AddedWithPatch)});
				end
			end
		end,
	}),
	CreateInformationType("rwp", { text = L.REMOVED_WITH_PATCH, isRecursive = true, priority = 3,
		-- CRIEVE NOTE: Recursive is actually not true, some items get new sources later. The distinction for pre-Cata being non-recursive might be necessary, but since we're overriding the process function it should be fine this way.
		Process = app.IsRetail and ProcessInformationType or function(t, reference, tooltipInfo)
			local rwp = reference.rwp;	-- NOTE: For Retail, namely pre-Cata, this can't be recursive!
			if rwp then
				if app.GameBuildVersion < rwp then
					tinsert(tooltipInfo, { left = Colorize(L.REMOVED_WITH_PATCH_CLASSIC_FORMAT:format(GetPatchString(rwp)), app.Colors.RemovedWithPatch)});
				else
					tinsert(tooltipInfo, { left = t.text, right = Colorize(GetPatchString(rwp), app.Colors.RemovedWithPatch)});
				end
			end
		end,
	}),
	CreateInformationType("filterID", { text = L.FILTER_ID, priority = 4,
		Process = function(t, reference, tooltipInfo)
			local f = reference.filterID or reference.f;
			if f then
				local filterForRWP = reference.filterForRWP;
				if filterForRWP then
					tinsert(tooltipInfo, {
						left = t.text,
						right = ConversionMethods.filterID(f, reference) .. " -> " .. ConversionMethods.filterID(filterForRWP, reference),
					});
				else
					tinsert(tooltipInfo, {
						left = t.text,
						right = ConversionMethods.filterID(f, reference),
					});
				end
			end
		end,
	}),
	CreateInformationType("itemString", { text = L.ITEM_STRING, priority = 4 }),
	CreateInformationType("itemID", { text = L.ITEM_ID, priority = 5 }),
	CreateInformationType("sourceID", { text = L.SOURCE_ID, priority = 5 }),
	CreateInformationType("bonusID", { text = L.BONUS_ID, priority = 6 }),
	CreateInformationType("modID", { text = L.MOD_ID, priority = 6 }),
	CreateInformationType("artID", { text = L.ART_ID, priority = 7 }),
	CreateInformationType("campsiteID", { text = L.CAMPSITE_ID, priority = 7 }),
	CreateInformationType("iconPath", { text = L.ICON_PATH, ShouldDisplayInExternalTooltips = false, priority = 7 }),
	CreateInformationType("visualID", { text = L.VISUAL_ID, priority = 7 }),

	CreateInformationType("achievementID", { text = L.ACHIEVEMENT_ID, priority = 8,
		GetValue = app.GameBuildVersion >= 30000 and GetValueForInformationType or function(t, reference)
			local value = GetValueForInformationType(t, reference);
			if value then
				if reference.sourceQuests then
					AppendInformationTextEntry({
						left = L.ACHIEVEMENT_PRE_WRATH_SOURCE_QUEST_INFO,
						wrap = true,
						r = 0.4,
						g = 0.8,
						b = 1,
					});
				end
				return value;
			end
		end
	}),

	CreateInformationType("questID", { text = L.QUEST_ID, priority = 8,
		Process = function(t, reference, tooltipInfo)
			local questID = reference.questID
			if not questID then return end
			tinsert(tooltipInfo, {
				left = L.QUEST_ID,
				right = reference.questID.." "..app.GetCompletionIcon(app.IsQuestFlaggedCompleted(questID)),
			});
		end
	}),
	CreateInformationType("factionID", { text = L.FACTION_ID, priority = 9 }),

	CreateInformationType("achievementCategoryID", { text = L.ACHIEVEMENT_CATEGORY_ID }),
	CreateInformationType("artifactID", { text = L.ARTIFACT_ID }),
	CreateInformationType("azeriteessenceID", { text = L.AZERITE_ESSENCE_ID }),
	CreateInformationType("conduitID", { text = L.CONDUIT_ID }),
	CreateInformationType("creatureID", { text = L.CREATURE_ID }),
	CreateInformationType("crs", { text = L.CREATURES_LIST, ShouldDisplayInExternalTooltips = false,
		limit = 25,
		Process = function(t, reference, tooltipInfo)
			local crs = reference.crs;
			if crs then
				-- extreme amounts of creatures tagged, then only list a summary of how many...
				if #crs > t.limit then
					tinsert(tooltipInfo, {
						left = CREATURE,
						right = L.CREATURES_COUNT:format(#crs),
					});
				else
					for i,creatureID in ipairs(crs) do
						tinsert(tooltipInfo, {
							left = (i == 1 and CREATURE),
							right = ConversionMethods.creatureName(creatureID, reference),
						});
					end
				end
			end
		end,
	}),
	CreateInformationType("providers", { text = L.PROVIDERS, ShouldDisplayInExternalTooltips = false,
		limit = 25,
		Process = function(t, reference, tooltipInfo)
			local providers = t.GetValue(t, reference);
			if providers then
				local limit = t.limit
				for i,provider in ipairs(providers) do
					tinsert(tooltipInfo, {
						left = (i == 1 and L.PROVIDERS),
						right = ConversionMethods.provider(provider, reference),
					});
					limit = limit - 1
					if limit <= 0 then
						tinsert(tooltipInfo, {
							right =  LFG_LIST_AND_MORE:format(#reference.providers - t.limit),
						});
						break
					end
				end
			end
		end,
	}),
	CreateInformationType("criteriaID", { text = "Criteria ID" }),
	CreateInformationType("currencyID", { text = "Currency ID" }),
	CreateInformationType("difficultyID", { text = L.DIFFICULTY_ID }),
	CreateInformationType("displayID", { text = L.DISPLAY_ID }),
	CreateInformationType("encounterID", { text = L.ENCOUNTER_ID }),
	CreateInformationType("expansionID", { text = L.EXPANSION_ID }),
	CreateInformationType("explorationID", { text = L.EXPLORATION_ID }),
	CreateInformationType("e", { text = L.EVENT_ID }),
	CreateInformationType("flightpathID", { text = L.FLIGHT_PATH_ID }),
	CreateInformationType("followerID", { text = L.FOLLOWER_ID }),
	CreateInformationType("headerID", { text = L.HEADER_ID }),
	CreateInformationType("illusionID", { text = L.ILLUSION_ID }),
	CreateInformationType("instanceID", { text = L.INSTANCE_ID }),
	CreateInformationType("mapID", { text = L.MAP_ID }),
	CreateInformationType("objectID", { text = L.OBJECT_ID }),
	CreateInformationType("runeforgepowerID", { text = L.RUNEFORGE_POWER_ID }),
	CreateInformationType("savedInstanceID", { text = L.SAVED_INSTANCE_ID }),
	CreateInformationType("setID", { text = L.SET_ID }),
	CreateInformationType("speciesID", { text = L.SPECIES_ID }),
	CreateInformationType("spellID", { text = L.SPELL_ID }),
	CreateInformationType("spellName", { text = L.SPELL_NAME, IsStandaloneProperty = false }),	-- Included as a parameter for the spellID field.
	CreateInformationType("titleID", { text = L.TITLE_ID }),

	CreateInformationType("c", { text = L.CLASSES, priority = 8000, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local c = reference.c or reference.c_disp
			if c then
				local classes_tbl = {};
				for i,cl in ipairs(c) do
					local info = app.ClassInfoByID[cl];
					if info.isValid then classes_tbl[#classes_tbl + 1] = info.icontext; end
				end
				local str = app.TableConcat(classes_tbl, nil, nil, ", ")
				if #classes_tbl > 4 then
					tinsert(tooltipInfo, {
						left = t.text .. " " .. str,
						wrap = true,
					});
				else
					tinsert(tooltipInfo, {
						left = t.text,
						right = str,
					});
				end
			end
		end,
	}),
	CreateInformationType("r", { text = RACES, priority = 8000, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			local r = reference.r or reference.r_disp
			if r and r > 0 then
				local usecolors = app.Settings:GetTooltipSetting("UseMoreColors");
				if r == 2 then
					tinsert(tooltipInfo, {
						left = t.text,
						right = usecolors and Colorize(ITEM_REQ_ALLIANCE, app.Colors.Alliance) or ITEM_REQ_ALLIANCE
					});
				elseif r == 1 then
					tinsert(tooltipInfo, {
						left = t.text,
						right = usecolors and Colorize(ITEM_REQ_HORDE, app.Colors.Horde) or ITEM_REQ_HORDE
					});
				else
					tinsert(tooltipInfo, {
						left = t.text,
						right = UNKNOWN
					});
				end
			else
				r = reference.races or reference.races_disp
				if r then
					local races_tbl = {}
					-- temp ref with .raceID of only a single race so we can simply use TryColorizeName
					local temp_ref, raceName = {}, nil
					local usecolors = app.Settings:GetTooltipSetting("UseMoreColors");
					for i,raceID in ipairs(r) do
						temp_ref.raceID = raceID
						raceName = app.GetRaceName(raceID);
						races_tbl[#races_tbl + 1] = usecolors and app.TryColorizeName(temp_ref, raceName) or raceName
					end
					local str = app.TableConcat(races_tbl, nil, nil, ", ")
					if #races_tbl > 4 then
						tinsert(tooltipInfo, {
							left = t.text .. " " .. str,
							wrap = true,
						});
					else
						tinsert(tooltipInfo, {
							left = t.text,
							right = str
						});
					end
				end
			end
		end,
	}),
	CreateInformationType("requireSkill", { text = TRADE_SKILLS, priority = 8000,
		Process = function(t, reference, tooltipInfo)
			local requireSkill, learnedAt = reference.requireSkill, reference.learnedAt;
			if requireSkill then
				local professionName = ConversionMethods.professionName(requireSkill, reference);
				if learnedAt then professionName = professionName .. " (" .. learnedAt .. ")"; end
				tinsert(tooltipInfo, {
					left = L.REQUIRES,
					right = professionName,
				});
			elseif learnedAt then
				tinsert(tooltipInfo, {
					left = L.REQUIRES,
					right = tostring(learnedAt),
				});
			end
		end,
	}),

	-- We want these last, usually.
	CreateInformationType("b", { text = L.BINDING, priority = 9000, ShouldDisplayInExternalTooltips = false, }),
	CreateInformationType("iLvl", { text = L.ITEM_LEVEL, priority = 9000 }),
	CreateInformationType("__type", { text = L.OBJECT_TYPE, priority = 9001, ShouldDisplayInExternalTooltips = false, }),
	CreateInformationType("Cost", { text = L.COST, priority = 9002,
		Process = function(t, reference, tooltipInfo)
			if reference.cost then
				if type(reference.cost) == "table" then
					local _, name, icon, amount;
					for k,v in pairs(reference.cost) do
						_ = v[1];
						if _ == "g" then
							tooltipInfo[#tooltipInfo + 1] = {
								left = (k == 1 and t.text),
								right = GetMoneyString(v[2]),
							};
						else
							if _ == "i" then
								local item = CostItemCache[v[2]];
								name = item.text;
								icon = item.icon;
							elseif _ == "c" then
								local currency = CostCurrencyCache[v[2]];
								name = currency.text;
								icon = currency.icon;
							end
							if not name then
								reference.working = true;
								name = RETRIEVING_DATA;
							end
							name = (icon and ("|T" .. icon .. ":0|t") or "") .. name;
							_ = (v[3] or 1);
							if _ > 1 then
								name = _ .. "x  " .. name;
							end
							tooltipInfo[#tooltipInfo + 1] = {
								left = (k == 1 and t.text),
								right = name,
							};
						end
					end
				else
					tooltipInfo[#tooltipInfo + 1] = {
						left = t.text,
						right = GetMoneyString(reference.cost),
					};
				end
			end
		end,
	});

	-- Summary Information Types
	CreateInformationType("Repeatables", { text = "Repeatables", priority = 10999, ShouldDisplayInExternalTooltips = false,
		Process = function(t, reference, tooltipInfo)
			if reference.isWorldQuest then tinsert(tooltipInfo, { left = L.DURING_WQ_ONLY }); end
			if reference.isDaily then tinsert(tooltipInfo, { left = L.COMPLETED_DAILY });
			elseif reference.isWeekly then tinsert(tooltipInfo, { left = L.COMPLETED_WEEKLY });
			elseif reference.isMonthly then tinsert(tooltipInfo, { left = L.COMPLETED_MONTHLY });
			elseif reference.isYearly then tinsert(tooltipInfo, { left = L.COMPLETED_YEARLY });
			elseif reference.repeatable then tinsert(tooltipInfo, { left = L.COMPLETED_MULTIPLE }); end
		end,
	}),
	CreateInformationType("CompletedBy", { text = L.COMPLETED_BY:format(""), priority = 11000, HideCheckBox = true, Process = ProcessForCompletedBy });
	CreateInformationType("KnownBy", { text = L.KNOWN_BY:format(""), priority = 11000, HideCheckBox = true, Process = ProcessForKnownBy });
	CreateInformationType("extraInfo", { text = "extraInfo", priority = 2.51, HideCheckBox = true, ForceActive = true,
		Process = function(t, reference, tooltipInfo)
			local itemID = reference.itemID
			if itemID then
				-- an item used for a faction which is repeatable
				if reference.factionID and reference.repeatable then
					tinsert(tooltipInfo, {
						left = L.ITEM_GIVES_REP .. (app.WOWAPI.GetFactionName(reference.factionID) or ("Faction #" .. tostring(reference.factionID))) .. "'",
						wrap = true,
						color = app.Colors.TooltipDescription });
				end
				-- Holiday drop description
				if app.GameBuildVersion >= 100500 then	-- Dragonflight 10.0.5
					if itemID == 54537 or		-- Heart-Shaped Box [Love is in the Air]
						itemID == 117393 or		-- Keg-Shaped Treasure Chest [Brewfest]
						itemID == 117394 or		-- Satchel of Chilled Goods [Midsummer Fire Festival]
						--itemID == 209024 or		-- Loot-Filled Pumpkin [Hallow's End] (Blizz is inconsistent, big mad.)
						itemID == 216874		-- Loot-Filled Basket [Noblegarden]
					then
						tinsert(tooltipInfo, 1, { left = L.HOLIDAY_DROP, wrap = true, color = app.Colors.TooltipDescription });
					end
				end
				-- TODO: maybe access 'SkipPurchases' directly via Module access to check
				-- all items/currencies which exclude filling in tooltips
				-- Mark of Honor
				if itemID == 137642 then
					if app.Settings:GetTooltipSetting("SummarizeThings") then
						tinsert(tooltipInfo, 1, { left = L.MARKS_OF_HONOR_DESC, color = app.Colors.SourceIgnored });
					end
				end
			end
			local currencyID = reference.currencyID
			if currencyID then
				-- Bronze [MoP Timerunning]
				if currencyID == 2778 then
					if app.Settings:GetTooltipSetting("SummarizeThings") then
						tinsert(tooltipInfo, 1, { left = L.MOP_REMIX_BRONZE_DESC, color = app.Colors.SourceIgnored });
					end
				end
			end

			-- Description for Unobtainable Things
			if reference.u and (not reference.crs or reference.itemID or reference.sourceID) then
				-- specifically-tagged NYI groups which are under 'Unsorted' should show a slightly different message
				if reference.u == app.PhaseConstants.NEVER_IMPLEMENTED and app.GetRelativeValue(reference, "_missing") then
					tinsert(tooltipInfo, { left = L.UNSORTED_DESC, wrap = true, color = app.Colors.ChatLinkError });
				else
					-- removed BoE seen with a non-generic BonusID, potentially a level-scaled drop made re-obtainable
					if reference.u == app.PhaseConstants.REMOVED_FROM_GAME and not app.Modules.Filter.Filters.Bind(reference) and (reference.bonusID or 3524) ~= 3524 then
						tinsert(tooltipInfo, { left = L.RECENTLY_MADE_OBTAINABLE });
					end
				end
			end

			-- Limited availability
			if reference.isLimited then
				tinsert(tooltipInfo, 1, { left = L.LIMITED_QUANTITY, wrap = false, color = app.Colors.TooltipDescription });
			end
		end,
	}),

	CreateInformationType("SpecializationRequirements", {
		priority = 9003,
		text = "Specializations",
		Process = app.GameBuildVersion >= 50000 and function(t, reference, tooltipInfo)
			local specs = reference.specs;
			if not specs then
				local itemID = reference.itemID
				if itemID then
					specs = app.GetFixedItemSpecInfo(itemID);
				else
					return;
				end
			end

			-- specs is already filtered/sorted to only current class
			if specs and #specs > 0 then
				tinsert(tooltipInfo, { right = app.GetSpecsString(specs, true, true) });
			elseif reference.sourceID then
				tinsert(tooltipInfo, { right = L.NOT_AVAILABLE_IN_PL });
			end
		end or function(t, reference, tooltipInfo)
			local specs = reference.specs;
			if specs and #specs > 0 then
				tinsert(tooltipInfo, { right = app.GetSpecsString(specs, true, true) });
			end
		end,
	});

	-- We want this after most of the regular fields.
	CreateInformationType("OnTooltip", {
		priority = 10000,
		text = "OnTooltip",
		ForceActive = true,
		Process = function(t, reference, tooltipInfo)
			local OnTooltip = reference.OnTooltip;
			if OnTooltip then OnTooltip(reference, tooltipInfo); end
		end,
	});
};
settings.InformationTypes = InformationTypes;

local ActiveInformationTypes, ActiveInformationTypesForExternalTooltips = {}, {};
local SortedInformationTypes, SortedInformationTypesByName, priorityA, priorityB = {}, {}, nil, nil;
local function SortInformationTypesByLocalizedName(a,b)
	return a.textLower < b.textLower;
end
local function SortInformationTypesByPriority(a,b)
	priorityA = a.priority;
	priorityB = b.priority;
	if priorityA == priorityB then
		return a.textLower < b.textLower;
	else
		return priorityA < priorityB;
	end
end
local function RefreshActiveInformationTypes()
	wipe(ActiveInformationTypesForExternalTooltips);
	wipe(ActiveInformationTypes);

	for _,informationType in ipairs(SortedInformationTypes) do
		if settings:GetTooltipSetting(informationType.informationTypeID) or informationType.ForceActive then
			if informationType.IsStandaloneProperty then
				ActiveInformationTypes[#ActiveInformationTypes + 1] = informationType;
				if informationType.ShouldDisplayInExternalTooltips then
					ActiveInformationTypesForExternalTooltips[#ActiveInformationTypesForExternalTooltips + 1] = informationType;
				end
			end
		end
	end

	-- Insert the Post Processor
	ActiveInformationTypesForExternalTooltips[#ActiveInformationTypesForExternalTooltips + 1] = PostProcessor;
	ActiveInformationTypes[#ActiveInformationTypes + 1] = PostProcessor;
end
-- other settings can control what information is displayed without themselves being an information type
app.AddEventHandler("OnSettingsRefreshed", RefreshActiveInformationTypes)
local function SortInformationTypes()
	wipe(SortedInformationTypes);
	wipe(SortedInformationTypesByName);
	for i,informationType in ipairs(InformationTypes) do
		SortedInformationTypes[#SortedInformationTypes + 1] = informationType;
		if not (informationType.ForceActive or informationType.HideCheckBox) then
			SortedInformationTypesByName[#SortedInformationTypesByName + 1] = informationType;
		end
	end
	table.sort(SortedInformationTypes, SortInformationTypesByPriority);
	table.sort(SortedInformationTypesByName, SortInformationTypesByLocalizedName);
end

app.ProcessInformationTypes = function(tooltipInfo, reference)
	for _,informationType in ipairs(ActiveInformationTypes) do
		informationType:Process(reference, tooltipInfo);
	end
end
app.ProcessInformationTypesForExternalTooltips = function(tooltipInfo, reference)
	-- app.PrintDebug("PITFET",#tooltipInfo,app.ActiveRowReference and true)
	for _,informationType in ipairs(app.ActiveRowReference and ActiveInformationTypes or ActiveInformationTypesForExternalTooltips) do
		informationType:Process(reference, tooltipInfo);
	end
	-- app.PrintDebug("PITFET.Done",#tooltipInfo)
end

local function OnClickForInformationCheckBox(self)
	settings:SetTooltipSetting(self.informationTypeID, self:GetChecked())
	RefreshActiveInformationTypes()
	settings:Refresh()
end
local function OnRefreshForInformationCheckBox(self)
	self:SetChecked(settings:GetTooltipSetting(self.informationTypeID))
end
settings.RefreshActiveInformationTypes = function()
	SortInformationTypes()
	RefreshActiveInformationTypes();

	local last
	local totalTypes = #SortedInformationTypesByName;
	local perRow, offset, scale = 24, 250, 0.8;
	if totalTypes > 72 then
		scale = 0.75;
		perRow = 26;
	end
	local split1 = perRow
	local split2 = perRow * 2;
	local split3 = perRow * 3;
	for idNo,informationType in ipairs(SortedInformationTypesByName) do
		local filter = child:CreateCheckBox(informationType.text, OnRefreshForInformationCheckBox, OnClickForInformationCheckBox)
		filter.informationTypeID = informationType.informationTypeID;
		filter:SetScale(scale);
		-- Column 1
		if idNo == 1 then
			filter:SetPoint("TOPLEFT", child.separator, "BOTTOMLEFT", 0, 0)
		-- Column 2
		elseif idNo > split1 then
			filter:SetPoint("TOPLEFT", child.separator, "BOTTOMLEFT", offset, 0)
			split1 = 999
		-- Column 3
		elseif idNo > split2 then
			filter:SetPoint("TOPLEFT", child.separator, "BOTTOMLEFT", offset * 2, 0)
			split2 = 999
		-- Column 4
		elseif idNo > split3 then
			filter:SetPoint("TOPLEFT", child.separator, "BOTTOMLEFT", offset * 3, 0)
			split3 = 999
		else
			filter:AlignBelow(last)
		end
		last = filter
	end
end

local function SetupInformationTypes()
	SortInformationTypes()
	RefreshActiveInformationTypes()
end
settings.CreateInformationType = function(key, t)
	local informationType = CreateInformationType(key, t);
	tinsert(InformationTypes, informationType);
	app.CallbackHandlers.DelayedCallback(SetupInformationTypes, 2)
	return informationType;
end

-- Debugging Information Types
settings.CreateInformationType("ExclusionFilters", {
	priority = 99999,
	text = "DEBUG: Exclusion Filters",
	HideCheckBox = not app.Debugging,
	Process = function(t, reference, tooltipInfo)
		local excludes = {}
		local Filter = app.Modules.Filter
		for filterName,filterFunc in pairs(Filter.Filters) do
			if not filterFunc(reference) then
				excludes[#excludes + 1] = Colorize(filterName, Filter.Get[filterName]() and app.Colors.ChatLinkError or app.Colors.RemovedWithPatch)
			else
				excludes[#excludes + 1] = Colorize(filterName, Filter.Get[filterName]() and app.Colors.Time or app.Colors.ChatLinkHQT)
			end
		end
		if #excludes > 0 then
			tinsert(tooltipInfo, {
				left = "Filter Checks",
			});
			tinsert(tooltipInfo, {
				left = app.TableConcat(excludes, nil, nil, ", "),
				wrap = true
			});
		end
	end
})
settings.CreateInformationType("LinkSourceID", {
	priority = 99999,
	text = "DEBUG: Link SourceID",
	HideCheckBox = not app.Debugging,
	Process = function(t, data, tooltipInfo)
		local link, source = data.link or data.silentLink, data.sourceID
		local rowSource = app.ActiveRowReference and app.ActiveRowReference.sourceID
		if not link then return; end
		local itemName = GetItemInfo(link)
		-- If it doesn't, the source ID will need to be harvested.
		local sourceID, success = app.GetSourceID(link);
		-- app.PrintDebug("SourceIDs",data.modItemID,source,sourceID,success,link)
		if sourceID and sourceID > 0 then
			-- only save the source if it is different than what we already have, or being forced
			if not source or source < 1 or source ~= sourceID then
				-- app.print("SourceID Update",link,data.modItemID,source,"=>",sourceID);
				-- print(GetItemInfo(text))
				app.SaveHarvestSource(data);
			end
		end
		local matchingSourceIDs = true
		if rowSource and source and sourceID then
			if rowSource ~= source or source ~= sourceID or rowSource ~= sourceID then
				matchingSourceIDs = false
			end
		end
		tinsert(tooltipInfo, {
			left = Colorize("Link Source", success and app.Colors.ChatLinkHQT or app.Colors.ChatLinkError).." / "
				..Colorize("Item Info", itemName and app.Colors.ChatLinkHQT or app.Colors.ChatLinkError),
			right = Colorize("RowSource:"..(rowSource or "?").." / Sourced:"..(source or "?").." / Checked:"..(sourceID or "?"),
				matchingSourceIDs and app.Colors.ChatLinkHQT or app.Colors.ChatLinkError)
		});
	end
})
settings.CreateInformationType("modItemID", {
	priority = 99999,
	text = "DEBUG: modItemID",
	HideCheckBox = not app.Debugging,
})
settings.CreateInformationType("hash", {
	priority = 99999,
	text = "DEBUG: hash",
	HideCheckBox = not app.Debugging,
})
settings.CreateInformationType("bonuses", {
	priority = 99999,
	text = "DEBUG: Item Bonuses",
	HideCheckBox = not app.Debugging,
	Process = function(t, data, tooltipInfo)
		local bonuses = data.bonuses
		if not bonuses or #bonuses < 1 then return end
		tinsert(tooltipInfo, {
			left = "Item Bonuses",
			right = app.TableConcat(bonuses, nil, nil, " | ")
		});
	end
})
settings.CreateInformationType("rawfields", {
	priority = 99999,
	text = "DEBUG: Raw Fields",
	HideCheckBox = not app.Debugging,
	Process = function(t, data, tooltipInfo)
		tinsert(tooltipInfo, {
			left = "Self:",
			right = tostring(data)
		});
		for k, v in pairs(data) do
			tinsert(tooltipInfo, {
				left = tostring(k),
				right = tostring(v)
			});
		end
		if app.ActiveRowReference then
			tinsert(tooltipInfo, {
				left = "----"
			});
			tinsert(tooltipInfo, {
				left = "Row:",
				right = tostring(app.ActiveRowReference)
			});
			for k, v in pairs(app.ActiveRowReference) do
				tinsert(tooltipInfo, {
					left = tostring(k),
					right = tostring(v)
				});
			end
		end
	end
})