AppleScriptでSpacesをコントロール

MacのSpaces(デスクトップを複数持つ機能)をAppleScriptで変更する方法。

tell application "System Events"
	tell spaces preferences of expose preferences
		(* 現在の設定を取得 *)
		set new_bindings to application bindings

		(* 特定のアプリケーションの設定を「デスクトップ１」に変更 *)
		set |com.apple.safari| of new_bindings to 1

		(* 設定を反映 *)
		set application bindings to new_bindings

	end tell
end tell

「全てのデスクトップ」にするには、上記の1の代わりに65544 ( 0x10008 ) を指定します。
com.apple.safariの部分は、アプリケーションのバンドルIDを全て小文字にしたものを使う模様。
一旦アプリを手動で登録してみて、application bindingsを取得してみるのが一番確実？