<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "> <DIV><DIV>On 29 Nov 2005, at 23:09, Alec B. Beardsley wrote:</DIV> <BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Has anyone come up with a way to view the source of the current page from safari in textmate?</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "> </DIV></BLOCKQUOTE> </DIV><DIV>I wrote this AppleScript:</DIV><DIV> </DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">try</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> tell application "Safari"</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> if not (exists document 1) then</DIV><DIV style="text-indent: -166px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 166.5px; "> display dialog "You need to open a web location first!" buttons {"OK"} default button 1</DIV><DIV style="text-indent: -166px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 166.5px; "> return</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> end if</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> set mySource to the source of front document as text</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> if (length of mySource is 0) then</DIV><DIV style="text-indent: -166px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 166.5px; "> display dialog "You need to open a web location first!" buttons {"OK"} default button 1</DIV><DIV style="text-indent: -166px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 166.5px; "> return</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> end if</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> set myName to name of front document as text</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> end tell</DIV> <DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> tell application "TextMate" to activate</DIV> <DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set myName to replace_chars(myName, "http://", "")</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set myName to replace_chars(myName, "/", ":")</DIV> <DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> if (myName ends with ".html") or (myName ends with ".htm") then</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> set myPath to "/tmp/" & myName</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> else</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> set myPath to "/tmp/" & myName & ".html"</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> end if</DIV> <DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> do shell script "rm -f " & quoted form of myPath</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> do shell script "echo " & quoted form of mySource & " >> " & quoted form of myPath</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> do shell script "open -a TextMate " & quoted form of myPath</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">end try</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; font: normal normal normal 12px/normal Verdana; min-height: 15px; "> </DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">on replace_chars(this_text, search_string, replacement_string)</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set AppleScript's text item delimiters to the search_string</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set the item_list to every text item of this_text</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set AppleScript's text item delimiters to the replacement_string</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set this_text to the item_list as string</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> set AppleScript's text item delimiters to ""</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> return this_text</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">end replace_chars</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; "> </DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">Paste it in Script Editor.app and save as script or application.</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">You can then use LaunchBar, QuickSilver, etc. to launch it...</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; "> </DIV></BODY></HTML>