From 310b37c7598ca4eabf37843dfbde0574e6936be9 Mon Sep 17 00:00:00 2001
From: Repooc <repooc@tukui.org>
Date: Sat, 15 Sep 2012 16:10:52 -0500
Subject: [PATCH] Added Mount Search Feature

Signed-off-by: Repooc <repooc@tukui.org>
---
 ElvUI_SLE/modules/skins/blizzard/load_blizzard.xml |    1 +
 ElvUI_SLE/modules/skins/blizzard/searchmounts.lua  |  215 ++++++++++++++++++++
 2 files changed, 216 insertions(+)
 create mode 100644 ElvUI_SLE/modules/skins/blizzard/searchmounts.lua

diff --git a/ElvUI_SLE/modules/skins/blizzard/load_blizzard.xml b/ElvUI_SLE/modules/skins/blizzard/load_blizzard.xml
index 566848e..cceaf92 100644
--- a/ElvUI_SLE/modules/skins/blizzard/load_blizzard.xml
+++ b/ElvUI_SLE/modules/skins/blizzard/load_blizzard.xml
@@ -1,4 +1,5 @@
 <Ui xmlns="http://www.blizzard.com/wow/ui/">	
 	<Script file='extraab.lua'/>
 	<Script file='petbattle.lua'/>
+	<Script file='searchmounts.lua'/>
 </Ui>
\ No newline at end of file
diff --git a/ElvUI_SLE/modules/skins/blizzard/searchmounts.lua b/ElvUI_SLE/modules/skins/blizzard/searchmounts.lua
new file mode 100644
index 0000000..9b4f0a8
--- /dev/null
+++ b/ElvUI_SLE/modules/skins/blizzard/searchmounts.lua
@@ -0,0 +1,215 @@
+local E, L, V, P, G, _ = unpack(ElvUI); --Inport: Engine, Locales, PrivateDB, ProfileDB, GlobalDB, Localize Underscore
+local S = E:GetModule('Skins')
+----------------------------------------------------------------------------------------
+--	Mount list search function(Collie by p3lim)
+----------------------------------------------------------------------------------------
+local frame = CreateFrame("Frame")
+frame:RegisterEvent("ADDON_LOADED")
+frame:SetScript("OnEvent", function(self, event, addon)
+	if addon == "Blizzard_PetJournal" then
+		local filter = ""
+		local filterTable = {}
+		local filterFlags = {
+			["swimming"] = true,
+			["flying"] = true,
+			["ground"] = true,
+			["combined"] = true,
+		}
+
+		local Search = CreateFrame("EditBox", "MountSearch", MountJournal, "SearchBoxTemplate")
+		Search:SetSize(145, 20)
+		Search:SetPoint("TOPLEFT", MountJournal.LeftInset, 15, -9)
+		Search:SetMaxLetters(40)
+		Search:SetScript("OnTextChanged", function(self)
+			local text = self:GetText()
+			if text == SEARCH then
+				filter = ""
+			else
+				filter = text
+			end
+
+			MountJournal_UpdateMountList()
+		end)
+
+		local mounts = {}
+		local function BuildMounts()
+			for index = 1, GetNumCompanions("MOUNT") do
+				local id, name, _, _, _, flag = GetCompanionInfo("MOUNT", index)
+
+				if flag == 12 then
+					mounts[index] = "swimming"
+				elseif flag == 7 or flag == 15 then
+					mounts[index] = "flying"
+				elseif flag == 29 then
+					mounts[index] = "ground"
+				elseif flag == 31 then
+					mounts[index] = "combined"
+				end
+
+				if id == 34187 then
+					mounts[index] = "swimming"
+				end
+			end
+		end
+
+		MountJournal:HookScript("OnEvent", BuildMounts)
+		BuildMounts()
+
+		function MountJournal_UpdateMountList()
+			local scroll = MountJournal.ListScrollFrame
+			local offset = HybridScrollFrame_GetOffset(scroll)
+			local total = GetNumCompanions("MOUNT")
+
+			if UnitLevel("player") < 20 or total < 1 then
+				scroll:Hide()
+				MountJournal.MountDisplay.NoMounts:Show()
+				MountJournal.selectedSpellID = 0
+				MountJournal_UpdateMountDisplay()
+				MountJournal.MountCount:SetText(0)
+				MountJournal.MountButton:SetEnabled(false)
+				return
+			else
+				scroll:Show()
+				MountJournal.MountDisplay.NoMounts:Hide()
+				MountJournal.MountButton:SetEnabled(true)
+			end
+
+			table.wipe(filterTable)
+
+			for index = 1, total do
+				local id, name, spell, icon, active, flag = GetCompanionInfo("MOUNT", index)
+				if name:lower():find(filter) and filterFlags[mounts[index]] then
+					table.insert(filterTable, index)
+				end
+			end
+
+			local buttons = scroll.buttons
+			for j = 1, #buttons do
+				local button = buttons[j]
+				local index = j + offset
+				if index <= #filterTable then
+					local _, name, spell, icon, active = GetCompanionInfo("MOUNT", filterTable[index])
+					button.name:SetText(name)
+					button.icon:SetTexture(icon)
+					button.index = filterTable[index]
+					button.spellID = spell
+					button.active = active
+
+					if active then
+						button.DragButton.ActiveTexture:Show()
+					else
+						button.DragButton.ActiveTexture:Hide()
+					end
+
+					button:Show()
+
+					if MountJournal.selectedSpellID == spell then
+						button.selected = true
+						button.selectedTexture:Show()
+						if E.private.skins.blizzard.enable == true then
+							button.name:SetTextColor(1, 1, 0)
+							button.backdrop:SetBackdropBorderColor(1, 1, 0)
+							--Need Help with border being nil
+							--button.border.backdrop:SetBackdropBorderColor(1, 1, 0)
+						end
+					else
+						button.selected = false
+						button.selectedTexture:Hide()
+						if E.private.skins.blizzard.enable == true then
+							button.name:SetTextColor(1, 1, 1)
+							button.backdrop:SetBackdropBorderColor(unpack(E.media.bordercolor))
+							--Need Help with border being nil
+							--button.border.backdrop:SetBackdropBorderColor(unpack(E.media.bordercolor))
+						end
+					end
+
+					button:SetEnabled(true)
+
+					button.DragButton:SetEnabled(true)
+					button.additionalText = nil
+					button.icon:SetDesaturated(false)
+					button.icon:SetAlpha(1)
+					--button.name:SetFontObject("GameFontNormal")
+
+					if button.showingTooltip then
+						MountJournalMountButton_UpdateTooltip(button)
+					end
+				else
+					button:Hide()
+				end
+			end
+
+			HybridScrollFrame_Update(scroll, #filterTable * 46, scroll:GetHeight())
+			MountJournal.MountCount.Count:SetText(total)
+		end
+
+		local scroll = MountJournal.ListScrollFrame
+		scroll.update = MountJournal_UpdateMountList
+		scroll:SetPoint("TOPLEFT", MountJournal.LeftInset, 3, -36)
+		scroll.scrollBar:SetPoint("TOPLEFT", scroll, "TOPRIGHT", 4, 20)
+
+		local function CreateDropDown()
+			local info = UIDropDownMenu_CreateInfo()
+			info.keepShownOnClick = true
+			info.isNotRadio = true
+
+			info.text = L_MISC_MOUNTS_GROUND
+			info.checked = filterFlags.ground
+			info.func = function(...)
+				local _, _, _, enabled = ...
+				filterFlags.ground = enabled
+				MountJournal_UpdateMountList()
+			end
+			UIDropDownMenu_AddButton(info)
+
+			info.text = L_MISC_MOUNTS_FLYING
+			info.checked = filterFlags.flying
+			info.func = function(...)
+				local _, _, _, enabled = ...
+				filterFlags.flying = enabled
+				MountJournal_UpdateMountList()
+			end
+			UIDropDownMenu_AddButton(info)
+
+			info.text = L_MISC_MOUNTS_FLYINGGROUND
+			info.checked = filterFlags.combined
+			info.func = function(...)
+				local _, _, _, enabled = ...
+				filterFlags.combined = enabled
+				MountJournal_UpdateMountList()
+			end
+			UIDropDownMenu_AddButton(info)
+
+			info.text = L_MISC_MOUNTS_SWIMMING
+			info.checked = filterFlags.swimming
+			info.func = function(...)
+				local _, _, _, enabled = ...
+				filterFlags.swimming = enabled
+				MountJournal_UpdateMountList()
+			end
+			UIDropDownMenu_AddButton(info)
+		end
+
+		local FilterDropDown = CreateFrame("Frame")
+		FilterDropDown.initialize = CreateDropDown
+		FilterDropDown.displayMode = "MENU"
+
+		local Filter = CreateFrame("Button", "MountFilter", MountJournal, "UIMenuButtonStretchTemplate")
+		Filter:SetSize(93, 22)
+		Filter:SetPoint("TOPRIGHT", MountJournal.LeftInset, -5, -9)
+		Filter:SetText(FILTER)
+		Filter.rightArrow:Show()
+		Filter:SetScript("OnClick", function()
+			PlaySound("igMainMenuOptionCheckBoxOn")
+			ToggleDropDownMenu(1, nil, FilterDropDown, MountFilter, 74, 15)
+		end)
+
+		if E.private.skins.blizzard.enable == true then
+			S:HandleEditBox(Search)
+			Search:SetHeight(18)
+			Filter:StripTextures(true)
+			S:HandleButton(Filter)
+			Filter:SetPoint("TOPLEFT", Search, "TOPRIGHT", 5, 2)
+		end
+	end
+end)
\ No newline at end of file
-- 
1.7.9.5