gistfile1.scpt

-- based on John Gruber's original Safari Source in BBEdit script
-- http://daringfireball.net/2003/01/safari_source_in_bbedit
-- and duct tape

tell application "Safari" to set theSource to do JavaScript "window.document.documentElement.outerHTML" in document 1

tell application "MacVim"
	activate
	make new text window with properties ¬
		{contents:theSource, source language:"HTML"}
	-- fix the \n that Safari sent over
	replace "\\n" using "\\r" searching in text 1 of text window 1 ¬
		options {search mode:grep, starting at top:true}
	select insertion point before character 1 of text window 1
end tell