<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; "> <DIV><DIV>On 20 sept. 05, at 18:57, Eric Peden wrote:</DIV> <BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">On Tue, Sep 20, 2005 at 01:47:49PM +0200, José Campos wrote:</DIV> <BLOCKQUOTE type="cite"><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "> Is it yet, or will it be possible to get a item like this in</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Safari->Services : "Edit page source in TextMate"?</DIV> </BLOCKQUOTE><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "> </DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">Did you see this?</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "> </DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="http://comox.textdrive.com/pipermail/textmate/2005-September/005718.html">http://comox.textdrive.com/pipermail/textmate/2005-September/005718.html</A></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "> </DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">You could use the AppleScript menu to get an actual menu item for it, as</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">opposed to just having a keystroke. At that point, the only difference</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">between the AppleScript solution and a service would be which menu it</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">appeared on. ;)</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; min-height: 14px; "> </DIV></BLOCKQUOTE> </DIV><DIV>Here is a more sophisticated version, it saves the source of the front page of Safari in a temp folder then opens it in TM.</DIV><DIV>If there is no window in Safari or if it's empty, it warns you.</DIV><DIV>If the name of the page contains slashs, it replaces them with colons.</DIV><DIV> </DIV><DIV>There's maybe better ways to achieve that, but that's I come up with after encountering numerous problems.</DIV><DIV>AS is useful but can really suck!</DIV><DIV> </DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">tell application "Safari"</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> if not (exists document 1) then</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> display dialog "You need to open a web location first!" buttons {"OK"} default button 1</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> return</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; "> set mySource to the source of front document as text</DIV><DIV style="text-indent: -83px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 83.2px; "> if (length of mySource is 0) then</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> display dialog "You need to open a web location first!" buttons {"OK"} default button 1</DIV><DIV style="text-indent: -124px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 124.8px; "> return</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; "> set myName to name of front document as text</DIV><DIV style="text-indent: -41px;margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 41.6px; ">end tell</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; ">try</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;"> </DIV><DIV> </DIV><DIV> </DIV><DIV> </DIV><DIV> </DIV></BODY></HTML>