Safari Sleeper

SafariSleeper.scpt

on getFront()
	tell application "System Events"
		set thisApp to name of first process whose frontmost is true
	end tell
end getFront

on check()
	if getFront() is not "Safari" then
		try
			do shell script "killall -STOP WebProcess"
			do shell script "killall -STOP PluginProcess"
		end try
	else
		try
			do shell script "killall -CONT WebProcess"
			do shell script "killall -CONT PluginProcess"
		end try
	end if
end check

repeat
	check()
	delay 1
end repeat