I use an applescript --tell application "Safari" to set s to source of document 1 tell application "Safari" to do JavaScript "document.body.outerHTML;" in first document set s to the result set filename to random number from 1 to 10000 set the temp_file to ((path to the temporary items folder) as string) & filename & ".html" open for access temp_file with write permission write s to (temp_file as alias) as string close temp_file set f to POSIX path of temp_file set command to "~/bin/tm -a '" & f & "'" do shell script command <div>On 9/23/05, Andreas Wahlin <<a href="mailto:andreaswahlin@bredband.net">andreaswahlin@bredband.net</a>> wrote:<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"> How can I get my "user" accont, I want it to save to <div>~/Desktop/</div><div>but I tried that and it didn't work ...</div><div> </div><div>Andreas</div><div> <div><div> <div>On Sep 20, 2005, at 19:44 , Fred B. wrote:</div> </div><blockquote type="cite"><div> <div><div>On 20 sept. 05, at 18:57, Eric Peden wrote:</div> <blockquote type="cite"> <div style="margin: 0px;">On Tue, Sep 20, 2005 at 01:47:49PM +0200, José Campos wrote:</div> <blockquote type="cite"><div style="margin: 0px;"> Is it yet, or will it be possible to get a item like this in </div><div style="margin: 0px;">Safari->Services : "Edit page source in TextMate"?</div> </blockquote><div style="margin: 0px; min-height: 14px;"> </div><div style="margin: 0px;">Did you see this?</div> <div style="margin: 0px; min-height: 14px;"> </div><div style="margin: 0px;"><a href="http://comox.textdrive.com/pipermail/textmate/2005-September/005718.html" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)"> http://comox.textdrive.com/pipermail/textmate/2005-September/005718.html</a></div><div style="margin: 0px; min-height: 14px;"> </div><div style="margin: 0px;">You could use the AppleScript menu to get an actual menu item for it, as </div><div style="margin: 0px;">opposed to just having a keystroke. At that point, the only difference</div><div style="margin: 0px;">between the AppleScript solution and a service would be which menu it</div><div style="margin: 0px;"> appeared on. ;)</div><div style="margin: 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="margin: 0px 0px 0px 41.6px; text-indent: -41px;">tell application "Safari"</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> if not (exists document 1) then</div><div style="margin: 0px 0px 0px 124.8px; text-indent: -124px;"> display dialog "You need to open a web location first!" buttons {"OK"} default button 1</div><div style="margin: 0px 0px 0px 124.8px; text-indent: -124px;"> return </div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> end if</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set mySource to the source of front document as text</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> if (length of mySource is 0) then</div><div style="margin: 0px 0px 0px 124.8px; text-indent: -124px;"> display dialog "You need to open a web location first!" buttons {"OK"} default button 1</div><div style="margin: 0px 0px 0px 124.8px; text-indent: -124px;"> return</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> end if</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set myName to name of front document as text</div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px;"> end tell</div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px; min-height: 15px;"> </div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px;">try</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> tell application "TextMate" to activate</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px; min-height: 14px;"> </div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set myName to replace_chars (myName, "http://", "")</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set myName to replace_chars(myName, "/", ":") </div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px; min-height: 14px;"> </div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> if (myName ends with ".html") or (myName ends with ".htm") then</div><div style="margin: 0px 0px 0px 124.8px; text-indent: -124px;"> set myPath to "/tmp/" & myName</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> else</div><div style="margin: 0px 0px 0px 124.8px; text-indent: -124px;"> set myPath to "/tmp/" & myName & ".html"</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> end if</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px; min-height: 14px;"> </div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> do shell script "rm -f " & quoted form of myPath</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> do shell script "echo " & quoted form of mySource & " >> " & quoted form of myPath</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> do shell script "open -a TextMate " & quoted form of myPath</div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px;">end try</div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px; min-height: 15px;"> </div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px;">on replace_chars(this_text, search_string, replacement_string)</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set AppleScript's text item delimiters to the search_string</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set the item_list to every text item of this_text</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set AppleScript's text item delimiters to the replacement_string </div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set this_text to the item_list as string</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> set AppleScript's text item delimiters to ""</div><div style="margin: 0px 0px 0px 83.2px; text-indent: -83px;"> return this_text</div><div style="margin: 0px 0px 0px 41.6px; text-indent: -41px;"> end replace_chars</div><div style="text-indent: -41px;"> </div><div> </div><div> </div><div> </div><div> </div><div style="margin: 0px; min-height: 14px;"> </div></div><div style="margin: 0px;">______________________________________________________________________</div><div style="margin: 0px;"> For new threads USE THIS: <a href="mailto:textmate@lists.macromates.com" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">textmate@lists.macromates.com</a></div><div style="margin: 0px;">(threading gets destroyed and the universe will collapse if you don't) </div><div style="margin: 0px;"><a href="http://lists.macromates.com/mailman/listinfo/textmate" target="_blank" onclick="return top.js.OpenExtLink(window,event,this)">http://lists.macromates.com/mailman/listinfo/textmate</a> </div> </blockquote></div> </div> ______________________________________________________________________ For new threads USE THIS: <a onclick="return top.js.OpenExtLink(window,event,this)" href="mailto:textmate@lists.macromates.com">textmate@lists.macromates.com </a> (threading gets destroyed and the universe will collapse if you don't) <a onclick="return top.js.OpenExtLink(window,event,this)" href="http://lists.macromates.com/mailman/listinfo/textmate" target="_blank">http://lists.macromates.com/mailman/listinfo/textmate </a> </blockquote></div>