http://johnback.us/blog/2013/07/02/instantly-remove-all-distractions-with-applescript/

Remove Distractions.applescript

tell application "Messages"
  quit
end tell

tell application "HipChat"
  quit
end tell

tell application "Cryptocat"
  quit
end tell

tell application "Adium"
  quit
end tell

tell application "FaceTime"
  quit
end tell

tell application "Mail"
  quit
end tell

tell application "Colloquy"
  quit
end tell

tell application "Reeder"
  quit
end tell

tell application "Skype"
  quit
end tell

tell application "SelfControl" to activate

tell application "System Events"
  tell process "SelfControl"
    tell slider of window "SelfControl" to set value to 60
    click button "Start" of window "SelfControl"
  end tell
end tell