Close tabs containing distracting websites in Safari

Close Distracting Tabs in Safari.scpt

-- based on http://stackoverflow.com/questions/2503372/how-to-close-all-or-only-some-tabs-in-safari-using-applescript
-- also helpful: http://www.mactech.com/articles/mactech/Vol.21/21.07/WorkingWithText/index.html
-- TODO:
--  * make work with Safari windows in full screen mode (Mac OS X Lion)
--    - for now wrapping in a 'try' block to ignore full screen windows, but
--      distracting tabs in those windows won't close with this script
set distractingURLs to {"twitter.com", "tumblr.com/dashboard", "google.com/reader"}
tell application "Safari"
	repeat with i from (count of windows) to 1 by -1
		try
			repeat with j from (count of tabs of window i) to 1 by -1
				set thistab to tab j of window i
				set tabURL to URL of thistab
				repeat with distractingURL in distractingURLs
					if (offset of distractingURL in tabURL) is greater than 1 then close thistab
				end repeat
			end repeat
		end try
	end repeat
end tell

s/distractingURLs/distractingURLsOfDoom/g

Of destiny!

lolZ