@@ -8,76 +8,87 @@ LICENSE file in the root directory of this source tree.
8
8
property targetTab : null
9
9
property targetTabIndex : -1
10
10
property targetWindow : null
11
+ property theProgram : " Google Chrome"
11
12
12
13
on run argv
13
14
set theURL to item 1 of argv
14
15
15
- tell application " Chrome"
16
+ -- Allow requested program to be optional,
17
+ -- default to Google Chrome
18
+ if (count of argv) > 1 then
19
+ set theProgram to item 2 of argv
20
+ end if
16
21
17
- if (count every window) = 0 then
18
- make new window
19
- end if
22
+ using terms from application " Google Chrome"
23
+ tell application theProgram
20
24
21
- -- 1: Looking for tab running debugger
22
- -- then, Reload debugging tab if found
23
- -- then return
24
- set found to my lookupTabWithUrl(theURL)
25
- if found then
26
- set targetWindow's active tab index to targetTabIndex
27
- tell targetTab to reload
28
- tell targetWindow to activate
29
- set index of targetWindow to 1
30
- return
31
- end if
25
+ if (count every window) = 0 then
26
+ make new window
27
+ end if
28
+
29
+ -- 1: Looking for tab running debugger
30
+ -- then, Reload debugging tab if found
31
+ -- then return
32
+ set found to my lookupTabWithUrl(theURL)
33
+ if found then
34
+ set targetWindow's active tab index to targetTabIndex
35
+ tell targetTab to reload
36
+ tell targetWindow to activate
37
+ set index of targetWindow to 1
38
+ return
39
+ end if
32
40
33
- -- 2: Looking for Empty tab
34
- -- In case debugging tab was not found
35
- -- We try to find an empty tab instead
36
- set found to my lookupTabWithUrl(" chrome://newtab/" )
37
- if found then
38
- set targetWindow's active tab index to targetTabIndex
39
- set URL of targetTab to theURL
40
- tell targetWindow to activate
41
- return
42
- end if
41
+ -- 2: Looking for Empty tab
42
+ -- In case debugging tab was not found
43
+ -- We try to find an empty tab instead
44
+ set found to my lookupTabWithUrl(" chrome://newtab/" )
45
+ if found then
46
+ set targetWindow's active tab index to targetTabIndex
47
+ set URL of targetTab to theURL
48
+ tell targetWindow to activate
49
+ return
50
+ end if
43
51
44
- -- 3: Create new tab
45
- -- both debugging and empty tab were not found
46
- -- make a new tab with url
47
- tell window 1
48
- activate
49
- make new tab with properties {URL :theURL}
52
+ -- 3: Create new tab
53
+ -- both debugging and empty tab were not found
54
+ -- make a new tab with url
55
+ tell window 1
56
+ activate
57
+ make new tab with properties {URL :theURL}
58
+ end tell
50
59
end tell
51
- end tell
60
+ end using terms from
52
61
end run
53
62
54
63
-- Function:
55
64
-- Lookup tab with given url
56
65
-- if found, store tab, index, and window in properties
57
66
-- (properties were declared on top of file)
58
67
on lookupTabWithUrl (lookupUrl )
59
- tell application " Chrome"
60
- -- Find a tab with the given url
61
- set found to false
62
- set theTabIndex to -1
63
- repeat with theWindow in every window
64
- set theTabIndex to 0
65
- repeat with theTab in every tab of theWindow
66
- set theTabIndex to theTabIndex + 1
67
- if (theTab's URL as string ) contains lookupUrl then
68
- -- assign tab, tab index, and window to properties
69
- set targetTab to theTab
70
- set targetTabIndex to theTabIndex
71
- set targetWindow to theWindow
72
- set found to true
68
+ using terms from application " Google Chrome"
69
+ tell application theProgram
70
+ -- Find a tab with the given url
71
+ set found to false
72
+ set theTabIndex to -1
73
+ repeat with theWindow in every window
74
+ set theTabIndex to 0
75
+ repeat with theTab in every tab of theWindow
76
+ set theTabIndex to theTabIndex + 1
77
+ if (theTab's URL as string ) contains lookupUrl then
78
+ -- assign tab, tab index, and window to properties
79
+ set targetTab to theTab
80
+ set targetTabIndex to theTabIndex
81
+ set targetWindow to theWindow
82
+ set found to true
83
+ exit repeat
84
+ end if
85
+ end repeat
86
+
87
+ if found then
73
88
exit repeat
74
89
end if
75
90
end repeat
76
-
77
- if found then
78
- exit repeat
79
- end if
80
- end repeat
81
- end tell
91
+ end tell
92
+ end using terms from
82
93
return found
83
94
end lookupTabWithUrl
0 commit comments