iamtabu

(*
http://veritrope.com
EVERNOTE TO DEVONTHINK EXPORTER
VERSION 1.63
April 12, 2012

// 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.

gruber

tell application "BBEdit"
	activate
	set old_name to name of text window 1
	set dialog_result to display dialog "" default answer (old_name) ¬
		buttons {"Cancel", "Rename"} default button 2 ¬
		with icon note ¬
		with title "Rename Active Document"
	if button returned of dialog_result = "Rename" then
		set new_name to text returned of dialog_result
		set d to active document of text window 1