Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Paste URL From Safari Tabs
set _old_delims to AppleScript's text item delimiters
set AppleScript's text item delimiters to {""}
tell application "System Events"
set _current_app to name of the first process whose frontmost is true
end tell
tell application "Safari"
set _urls to {}
repeat with i from 1 to 6 -- how many Safari windows to show URLs from
try
set _urls_from_this_window to URL of every tab of window i
if (count of _urls_from_this_window) > 0 then
-- Insert blank line between each window of tabs
if i > 1 then set _urls to _urls & ""
set _urls to _urls & _urls_from_this_window
end if
end try
end repeat
end tell
repeat with _url in _urls
# Strip the "http://", which allows type-ahead in the list.
# Doesn't strip "https://", and doesn't strip "www.".
if _url begins with "http://" then
set contents of _url to characters 8 thru -1 of _url as string
end if
end repeat
tell application _current_app
if (count of _urls) > 1 then
set _choice to choose from list _urls OK button name "Paste" with prompt "Paste URL from Safari:"
try
set _chosen_url to item 1 of _choice
if _chosen_url is "" then return
on error
return -- when hit Cancel button
end try
else
set _chosen_url to item 1 of _urls
end if
try
if _chosen_url does not start with "http" then
set _chosen_url to "http://" & _chosen_url
end if
-- `set the clipboard` always adds style attributes, so use pbcopy hack instead
-- Must specify /bin/echo because do shell script uses sh not bash, which has a built-in echo that doesn't support options like -n
do shell script "/bin/echo -n " & quoted form of _chosen_url & " | pbcopy"
tell application "System Events" to keystroke "v" using {command down} -- shift down here caused problems with BBEdit, where that means Paste Previous Clipboard; had only used that to get plain text from the clipboard in the first place
end try
end tell
set AppleScript's text item delimiters to _old_delims
@NoelEiffe

This comment has been minimized.

Copy link

NoelEiffe commented Jun 30, 2015

This is so utterly helpful words can hardly say. Thank you!

@chaselivingston

This comment has been minimized.

Copy link

chaselivingston commented Jul 2, 2015

@gruber: Is it possible to have the script paste all URLs rather than just selecting a single URL to paste?

@steffanstringer

This comment has been minimized.

Copy link

steffanstringer commented Jul 6, 2015

@gruber: I too was hoping the script would paste all URLs rather than just one. My scripting is non-existent else I'd try to tweak it myself.

I'd be looking to dump all the URLs into a new nvALT note from time to time as a working area rather than keeping so many tabs and windows open.

Best wishes,

Steffan

@brenshaw833

This comment has been minimized.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.