Cycle through webdev apps

cycle.scpt

property i : 1
set apps to {"Google Chrome Canary", "Sublime Text 2", "iTerm"}

set devapp to item i of apps

if appIsRunning(devapp) then
  tell application devapp
    activate
  end tell
end if

if i ≥ the length of apps then
  set i to 1
else
  set i to i + 1
end if

on appIsRunning(appName)
  tell application "System Events" to (name of processes) contains appName
end appIsRunning

sexy