Description
This AppleScript saves a list of all the open tabs in your (frontmost) Safari window to a new list in DEVONthink Pro – Perfect for keeping track of webpages to return to later instead of keeping a billion tabs open all the time.Alfred Users
I've rolled this script into a ready-to-go workflow for you – click here to download it. I've given it a (hilarious) default keyword of "std" (as in "Safari Tabs to DEVONthink Pro") to make it work with some of the other "Save Tabs" workflows.Launchbar 6 Users
I've assembled this script into a pre-packaged Action for you as well! Consider this "Experimental" as I'm new to LB6 but, if you want to try it out, click here to download it. Enjoy!The Code
(*
◸ Veritrope.com
Save Safari Tabs to DEVONthink Pro
VERSION 1.0
June 16, 2014
)
// UPDATE NOTICES
** Follow @Veritrope on Twitter, Facebook, Google Plus, and ADN for Update Notices! **
// SUPPORT VERITROPE!
If this AppleScript was useful to you, please take a second to show your love here:
http://veritrope.com/support
// SCRIPT INFORMATION AND UPDATE PAGE
http://veritrope.com/code/save-safari-tabs-to-devonthink
// REQUIREMENTS
More details on the script information page.
// CHANGELOG
1.0 INITIAL RELEASE
// TERMS OF USE:
This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to Creative Commons, 444 Castro Street, Suite 900, Mountain View, California, 94041, USA.
*)
(*
======================================
// MAIN PROGRAM
======================================
*)
-- PREPARE THE LIST
set urlList to {}
set the date_stamp to ((the current date) as string)
set NoteTitle to "URL List from Safari Tabs on " & the date_stamp
--PROCESS TABS OF FRONTMOST SAFARI WINDOW
tell application "Safari"
activate
set safariWindow to the front window
set successCount to 0
set tabCount to (count of (tabs of safariWindow))
repeat with w in safariWindow
--GET TAB INFORMATION
try
repeat with t in (tabs of w)
set TabTitle to (name of t)
set TabURL to (URL of t)
set TabInfo to ("<a href="" & TabURL & "">" & TabTitle & "</a><br/>")
--COPY TAB INFO TO END OF LIST
copy TabInfo to the end of urlList
--INCREMENT SUCCESS COUNT
set successCount to (successCount + 1)
end repeat
end try
end repeat
end tell
--CONVERT LIST TO TEXT
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set url_list to urlList as text
set AppleScript's text item delimiters to old_delim
--MAKE THE ITEM IN DEVONthink Pro
tell application "DEVONthink Pro"
create record with {type:html, source:url_list, name:NoteTitle} in current group
end tell
--NOTIFY RESULTS
my notification_Center(successCount, tabCount)
(*
======================================
// NOTIFICATION SUBROUTINE
======================================
*)
--NOTIFICATION CENTER
on notification_Center(successCount, itemNum)
set Plural_Test to (successCount) as number
if Plural_Test is -1 then
display notification "No Tabs Exported!" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
else if Plural_Test is 0 then
display notification "No Tabs Exported!" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
else if Plural_Test is equal to 1 then
display notification "Successfully Exported " & itemNum & ¬
" Tab to DEVONthink Pro" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
else if Plural_Test is greater than 1 then
display notification "Successfully Exported " & itemNum & ¬
" Tabs to DEVONthink Pro" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
end if
set itemNum to "0"
delay 1
end notification_Center
◸ Veritrope.com
Save Safari Tabs to DEVONthink Pro
VERSION 1.0
June 16, 2014
)
// UPDATE NOTICES
** Follow @Veritrope on Twitter, Facebook, Google Plus, and ADN for Update Notices! **
// SUPPORT VERITROPE!
If this AppleScript was useful to you, please take a second to show your love here:
http://veritrope.com/support
// SCRIPT INFORMATION AND UPDATE PAGE
http://veritrope.com/code/save-safari-tabs-to-devonthink
// REQUIREMENTS
More details on the script information page.
// CHANGELOG
1.0 INITIAL RELEASE
// TERMS OF USE:
This work is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.
To view a copy of this license, visit http://creativecommons.org/licenses/by-nc-sa/3.0/ or send a letter to Creative Commons, 444 Castro Street, Suite 900, Mountain View, California, 94041, USA.
*)
(*
======================================
// MAIN PROGRAM
======================================
*)
-- PREPARE THE LIST
set urlList to {}
set the date_stamp to ((the current date) as string)
set NoteTitle to "URL List from Safari Tabs on " & the date_stamp
--PROCESS TABS OF FRONTMOST SAFARI WINDOW
tell application "Safari"
activate
set safariWindow to the front window
set successCount to 0
set tabCount to (count of (tabs of safariWindow))
repeat with w in safariWindow
--GET TAB INFORMATION
try
repeat with t in (tabs of w)
set TabTitle to (name of t)
set TabURL to (URL of t)
set TabInfo to ("<a href="" & TabURL & "">" & TabTitle & "</a><br/>")
--COPY TAB INFO TO END OF LIST
copy TabInfo to the end of urlList
--INCREMENT SUCCESS COUNT
set successCount to (successCount + 1)
end repeat
end try
end repeat
end tell
--CONVERT LIST TO TEXT
set old_delim to AppleScript's text item delimiters
set AppleScript's text item delimiters to return
set url_list to urlList as text
set AppleScript's text item delimiters to old_delim
--MAKE THE ITEM IN DEVONthink Pro
tell application "DEVONthink Pro"
create record with {type:html, source:url_list, name:NoteTitle} in current group
end tell
--NOTIFY RESULTS
my notification_Center(successCount, tabCount)
(*
======================================
// NOTIFICATION SUBROUTINE
======================================
*)
--NOTIFICATION CENTER
on notification_Center(successCount, itemNum)
set Plural_Test to (successCount) as number
if Plural_Test is -1 then
display notification "No Tabs Exported!" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
else if Plural_Test is 0 then
display notification "No Tabs Exported!" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
else if Plural_Test is equal to 1 then
display notification "Successfully Exported " & itemNum & ¬
" Tab to DEVONthink Pro" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
else if Plural_Test is greater than 1 then
display notification "Successfully Exported " & itemNum & ¬
" Tabs to DEVONthink Pro" with title "Send Safari Tabs to DEVONthink Pro" subtitle "◸ Veritrope.com"
end if
set itemNum to "0"
delay 1
end notification_Center