http://benalman.com/projects/safari-view-source-in-textmate/

global jsCode
global htmlSource
set jsCode to “document.documentElement.outerHTML”
tell application “Safari”
set src to (do JavaScript jsCode in front document)
set location to URL of document 1
end tell

set file_name to do shell script “echo ” & quoted form of location & ” | perl -pe ’s/^.*\\/\\/[^\\/]+.*\\/([^?#]*).*$/$1/’”
set file_base to do shell script “echo ” & quoted form of file_name & ” | perl -pe ’s/\\.[^.]*$//’”
set file_ext to do shell script “echo ” & quoted form of file_name & ” | perl -pe ’s/^(?:[^.]*\\.?|.*\\.(.*))$/$1/’”

if file_base is “” then set file_base to “file”

set extensions_to_keep to “js css txt html”
if (” ” & extensions_to_keep & ” “) does not contain (” ” & file_ext & ” “) then set file_ext to “html”

set tmp to (do shell script “mktemp -d /tmp/textmate.XXXXXX”) & “/” & file_base & “.” & file_ext

try

set handle to POSIX file tmp

open for access handle with write permission

write src to handle

close access handle

on error

do shell script “curl ” & quoted form of location & ” -o ” & quoted form of tmp

end try
tell application “TextMate”
activate
open tmp
end tell