The Busy Geek

Where’s my coffee?

1. Clint 30.04.09 / 5am

   Just wanted to say thx. I did the same ‘just google it’ method, and yours was the first result. Worked like a charm.
2. Brian 08.07.10 / 10am

   Thanks a lot… worked perfectly!
3. Kirch 02.11.10 / 7am

   I’m not too familiar with AppleScript either, but I found another script from Ben Alman (link below) to view source in Textmate. Might be a bit overkill (creates a temp file with page title, etc.), but I used your variables to view the generated source. Seems to work.

   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

© 2012 The Busy Geek. All rights reserved. Powered by Wordpress | Theme: Hemingway meets CognitiveCombine II

Entries RSS Comments RSS