Here’s a little script that will close all open DEVONthink windows, and open a document window for the currently selected documents:
tell application id "com.devon-technologies.thinkpro2"
try
-- GET THE SELECTION
set these_items to the selection
if these_items is {} then error "Please select some contents."
-- CLOSE EXISTING WINDOWS
repeat with this_window in think windows
try
if this_window is closeable then close this_window
end try
end repeat
-- OPEN A DOCUMENT WINDOW FOR EACH DOCUMENT IN SELECTION
repeat with this_item in these_items
open window for record this_item
end repeat
on error error_message number error_number
if the error_number is not -128 then display alert "DEVONthink Pro" message error_message as warning
end try
end tell
I use it in combination with Isolator which is the best app I’ve found found for hiding application windows. If I use this script and activate isolator, I end up staring at my document(s) set against an entirely black background. It’s not “true” full-screen but it does the job for me.
I was hoping to activate Isolator as part of the script but it doesn’t seem to be scriptable. I donated 10 GBP to the developer and sent him an email in the hopes that he would add scripting for Isolator’s basic functions. If other people find this full-screen mode useful maybe you could donate a little bit as well, and hopefully with donations from several people asking for the same thing he’ll add the applescript support.