Now, I found this online after google searching for something like it for convenience, and for simplicity's sake decided to share it. If you love catching/finding rare quality wild pets, but hate having to catch loads of them to find out the quality (especially those FRACKING TRANQUILITY SPAMMING GAZELLE JERKS) then this macro is for you!
Step one: Make a macro and paste this script into it:
/run for i=1,C_PetBattles.GetNumPets(2) do
Step two: Bind this macro to a hotkey besides 1-6 (I personally like binding it to the numpad-enter key)
Step three: At the start of a wild battle, press the hotkey you keybind it to. The pet rarity for each wild pet you are battling should pop up in the chat panel! (Note: you should may need certain chats enabled for it to show). Sit back and enjoy not having to cage 50 million pets to find a rare one!
Feel free to add more macros to this thread, I'll be adding a picture guide when I get home from work ^^.
http://i50.tinypic.com/24wf1wn.jpg - Basic idea!
http://i47.tinypic.com/29xjhxh.jpg - Look at chat panel, that's what you should see!