42 lines
873 B
AppleScript
42 lines
873 B
AppleScript
|
#!/usr/bin/env osascript
|
||
|
|
|
||
|
|
|
||
|
|
on run argv
|
||
|
|
set theURL to item 1 of argv
|
||
|
|
|
||
|
|
tell application "Google Chrome"
|
||
|
|
activate
|
||
|
|
|
||
|
|
if (count every window) = 0 then
|
||
|
|
make new window
|
||
|
|
end if
|
||
|
|
|
||
|
|
-- Find a tab currently running the debugger
|
||
|
|
set found to false
|
||
|
|
set theTabIndex to -1
|
||
|
|
repeat with theWindow in every window
|
||
|
|
set theTabIndex to 0
|
||
|
|
repeat with theTab in every tab of theWindow
|
||
|
|
set theTabIndex to theTabIndex + 1
|
||
|
|
if theTab's URL is theURL then
|
||
|
|
set found to true
|
||
|
|
exit repeat
|
||
|
|
end if
|
||
|
|
end repeat
|
||
|
|
|
||
|
|
if found then
|
||
|
|
exit repeat
|
||
|
|
end if
|
||
|
|
end repeat
|
||
|
|
|
||
|
|
if found then
|
||
|
|
set index of theWindow to 1
|
||
|
|
set theWindow's active tab index to theTabIndex
|
||
|
|
else
|
||
|
|
tell window 1
|
||
|
|
make new tab with properties {URL:theURL}
|
||
|
|
end tell
|
||
|
|
end if
|
||
|
|
end tell
|
||
|
|
end run
|