Assigning applications to spaces

Question

Hello, I need an Automator application that can assign certain applications to a specific Space.
Here is what I have so far:
Ask for Finder Items
Set Value of Variable
Get Value of Variable
And an Applescript as the following:
on run {input, parameters}
tell application "System Events"
tell expose preferences
tell spaces preferences
set application bindings to {|Address Book|:2}
end tell
end tell
end tell
end run
The problem is, I am not sure how to pass the variable to AppleScript. Any pointers will be appreciated!!
Regards,
Adam

Answer 1

That´s, what i meant with "overwrite"
So this Applescript (based on the "Assign to Spaces" Script from the posted link) will do this job -- but only, if there exists already an application assignment in Spaces!
Again:
• Ask for Finder Items
• Run Applescript
on run {input, parameters}
set displayString to "Assign choosen applications to Space:"
set defaultAnswer to 0
repeat
set response to display dialog displayString default answer defaultAnswer
try
set theNumber to (text returned of response) as number
exit repeat
on error errstr
set displayString to errstr & return & "Please try again."
set defaultAnswer to text returned of response
end try
end repeat
repeat with x in input
set app_identifier to bundle id of (info for x)
set app_identifier to do shell script "echo " & quoted form of app_identifier & " | /usr/bin/perl -pe 'use encoding utf8; s/(\\w)/\\L$1/gi'"
set app_construct to (run script "{|" & app_identifier & "|: " & theNumber & "}")
tell application "System Events"
tell spaces preferences of expose preferences
set app_layout to application bindings
end tell
end tell
set app_identifier to bundle id of (info for x)
try
app_layout as number -- causes an error anyway
on error errstr
set app_locations to {}
set {TID, text item delimiters} to {text item delimiters, "{"}
set errstr to text item 2 of errstr
set text item delimiters to "}"
set errstr to text item 1 of errstr
set text item delimiters to ", "
set errstr to text items of errstr
set text item delimiters to TID
repeat with i in errstr
set o to offset of "|:" in i
tell i
set app_location to {}
set end of app_location to text 2 thru (o - 1)
set end of app_location to text (o + 2) thru -1
set end of app_locations to app_location
end tell
end repeat
end try
set spaces_bindings to {}
repeat with i from 1 to count app_locations
if app_identifier = item 1 of (item i of app_locations) then
--skip it
else
set spaces_bindings to spaces_bindings & (run script "{|" & item 1 of (item i of app_locations) & "|: " & item 2 of (item i of app_locations) & "}")
end if
end repeat
tell application "System Events"
tell expose preferences
tell spaces preferences
set application bindings to spaces_bindings
set spaces_bindings to app_construct & spaces_bindings
set application bindings to spaces_bindings
end tell
end tell
end tell
end repeat
return input
end run
Spazek