Tile Safari Windows in Current Space

Question

Hello everyone,
I'm trying to fix this apple script to only work on the windows in the current Space.
--When in Safari, the coordinates {0,0} refer to the upper corner not including the menubar.
tell application "Safari"
-- For some reason Safari has two invisible windows
set allWindows to (every window where visible is true)
set n to (count of allWindows)
-- Determine screen size of your machine
tell application "Finder"
set screenSize to bounds of window of desktop
set screenWidth to item 3 of screenSize
set screenHeight to item 4 of screenSize
end tell
-- Dividing by zero is bad
if n is equal to 0 then return
set windowWidth to screenWidth / n
if (n > 0) then
activate
set x to 1
-- Position each window in turn
repeat
tell window x
set bounds to {windowWidth * (x - 1), 0, windowWidth * x, screenHeight}
end tell
set x to x + 1
if x is equal to (n + 1) then exit repeat
end repeat
end if
end tell
The problem is that if I have multiple safari windows open, the variable allWindows is set to the number of safari windows in every space combined. I only want to tile the windows in the current space, and if I use this script as it is now it will tile them, but it will set their widths to allow for all windows in every space to be tiled along side. This leaves more empty space depending on how many other windows I have open.
Does anyone know how to test how many windows are only in the current space?
I'm terrible with Applescript, so specifics will be very much appreciated.
Thank you.

Answer 1

Hello,
Thank you for your reply, Pierre.
Just in case anyone is wondering, I didn't write this script, I found it somewhere online and then promptly forgot where. However, it doesn't work very well if I have other windows in other spaces, so I wanted to see if I could figure it out.
It's still not working correctly, it seems to work the same way as before:
--When in Safari, the coordinates {0,0} refer to the upper corner not including the menubar.
set theTargetIDs to {}
tell application "Safari"
set theIDs to id of every window
set theIDs to reverse of theIDs -- to keep the initial stacking order
repeat with thisID in theIDs
set index of window id thisID to 1 -- try to change the index value
if index of window id thisID is 1 then -- the window is in the current space
copy (thisID as number) to the beginning of theTargetIDs
end if
end repeat
theTargetIDs -- from front to back - the windows that are in the current space
set n to (count of theTargetIDs)
-- Determine screen size of your machine
tell application "Finder"
set screenSize to bounds of window of desktop
set screenWidth to item 3 of screenSize
set screenHeight to item 4 of screenSize
end tell
-- Dividing by zero is bad
if n is equal to 0 then return
set windowWidth to screenWidth / n
if (n > 0) then
activate
set x to 1
-- Position each window in turn
repeat
tell window x
set bounds to {windowWidth * (x - 1), 0, windowWidth * x, screenHeight}
end tell
set x to x + 1
if x is equal to (n + 1) then exit repeat
end repeat
end if
end tell
Am I missing something? I don't think that script is selecting only the windows in the current space- it's still tiling in every space. Can you take a look?
Sorry for my incapability to help myself. :S
Thank you.