Screenshot to Photoshop with AppleScript

I'm currently working on a project that requires me to produce a ton of screenshots. Even with a Photoshop action set up to prep, export, and close the image, it's still a tedious task.

So, I wrote this AppleScript to automate the whole thing:

do shell script "screencapture -iWc"
  -- Running interactively, starting in window mode.
  -- Spacebar toggles between window & selection.
  -- `man screencapture` for more options.

tell application "Adobe Photoshop CS"
  activate
  make new document with properties ¬
      {width:1024, height:768}
  paste
  trim current document
  do action "screenshot" from "My Actions"
end tell

Saved as an application, it can be run via Quicksilver with less effort than than invoking Panther's OS X's built-in screenshot utility.