Open BBEdit doc in FoldingText

bbedit-open-file-in-foldingtext.scpt

-- Open the currently active BBEdit document using FoldingText.
tell application "BBEdit"
	activate
	
	-- Ask BBEdit for it's active document.
	set the_document to active document of text window 1
	
	-- If the file doesn't alreay exist, ask the user to save it.
	if not the_document's on disk then
		save the_document
	end if
	
	-- If the file is now on disk, open it using FoldingText.
	if the_document's on disk then
		tell application "FoldingText"
			set the_file to the_document's file
			open the_file
			-- Bring FoldingText forward so it becomes visible.
			activate
		end tell
		
		
	end if
end tell