simple scripts for a sane hacking

PomodoroStart.scpt

tell application "Mailplane"
	set doNotDisturb to true
end tell

tell application "Skype"
	send command "SET USERSTATUS DND" script name "PomodoroStart"
	send command "SET SILENT_MODE ON" script name "PomodoroStart"
	send command "SET PROFILE MOOD_TEXT In the middle of a Pomodoro, please DND" script name "PomodoroStart"
end tell

#
# tell application "iChat"
# 	set status to away
# end tell
# 
# tell application "Adium"
#   repeat with singleAccount in accounts
#     set status of singleAccount to away
#     set message of singleAccount to "In the middle of a Pomodoro"
#   end repeat
# end tell

PomodoroStop.scpt

tell application "Mailplane"
	set doNotDisturb to false
end tell

tell application "Skype"
	send command "SET USERSTATUS ONLINE" script name "PomodoroStop"
	send command "SET SILENT_MODE OFF" script name "PomodoroStop"
	send command "SET PROFILE MOOD_TEXT No more swine flu" script name "PomodoroStop"
end tell

# 
# tell application "iChat"
#   set status to available
# end tell
# 
# tell application "Adium"
#   repeat with singleAccount in accounts
#     set status of singleAccount to available
#     set message of singleAccount to ""
#   end repeat
# end tell