FasdUAS 1.101.10
k
l
Q
k
O Y
k X
Z %
H
l
I
.coredoexbool obj
4
docu
m
k !
I
.sysodlogaskr TEXT
m , &You need to open a web location first!
btns
J !
! m " " OK #
dflt
# m $
$ L ! % &
% r & 0 ' (
' c & . ) *
) l & , +
+ n & , , -
, 1 * ,
conT
- 4 & * .
docu
. m ( )
* m , -
ctxt
( o 0 mysource mySource & / 0
/ Z 1 K 1 2
1 l 1 6 3
3 = 1 6 4 5
4 n 1 4 6 7
6 1 2 4
leng
7 o 1 2 0 mysource mySource
5 m 4 5
2 k 9 G 8 8 9 :
9 I 9 D ; <
.sysodlogaskr TEXT
; m 9 : = = , &You need to open a web location first! < > ?
btns
> J ; > @ @ A
A m ; < B B OK ? C
dflt
C m ? @ : D
D L E G 0 E
E r L X F G
F c L T H I
H n L R J K
J 1 P R
pnam
K 4 L P L
docu
L m N O
I m R S
ctxt
G o 0 myname myName
m M Mnull ߀ <
Safari.appǐ ] ~%̐ @ @ D sfri alis L Macintosh HD H+ <
Safari.app WO1c Applications 1S < $Macintosh HD:Applications:Safari.app
S a f a r i . a p p M a c i n t o s h H D Applications/Safari.app / N O
N l Z Z O P Q
P l Z Z Q R S
R O Z f T U
T I ` e
.miscactvnull null
U m Z ] V Vnull ߀ < TextMate.app ] ~%̐ @ @ D TxMt alis T Macintosh HD H+ < TextMate.app *T Applications T < &Macintosh HD:Applications:TextMate.app T e x t M a t e . a p p M a c i n t o s h H D Applications/TextMate.app / S W X
W l g g X Y Z
Y r g y [ \
[ I g u ] 0
replace_chars ] ^ _
^ o h k 0 myname myName _ ` a
` m k n b b
http:// a c
c m n q d d
\ o 0 myname myName Z e f
e r z g h
g I z i 0
replace_chars i j k
j o { ~ 0 myname myName k l m
l m ~ n n / m o
o m p p :
h o 0 myname myName f q r
q l r s t
s Z u v w
u G x y
x l z
z D { |
{ o 0 myname myName
| m } } .html
y l ~
~ D
o 0 myname myName
m
.htm
v r
b
m /tmp/
o 0 myname myName
o 0 mypath myPath
w r
b
b
m /tmp/
o 0 myname myName
m .html
o 0 mypath myPath t
l
I
.sysoexecTEXT TEXT
b
m rm -f
n
1
strq
o 0 mypath myPath
I
.sysoexecTEXT TEXT
b
b
b
m echo
n
1
strq
o 0 mysource mySource
m
>>
n
1
strq
o 0 mypath myPath
I
.sysoexecTEXT TEXT
b
m open -a TextMate
n
1
strq
o 0 mypath myPath
R
.ascrerr **** ****
l
i
I 0
replace_chars
o
0 this_text
o 0
search_string
o 0 replacement_string
k
r
l
o 0
search_string
n
1
txdl
1
ascr
r
n
2
citm
o
0 this_text
l
o
0 item_list
r
l
o
0 replacement_string
n
1
txdl
1
ascr
r
c
l
o
0 item_list
m
TEXT
o
0 this_text
r
m
n
1
txdl
1
ascr
L
o
0 this_text
~}|{zy 0
replace_chars
.aevtoappnull **** ~ 0 mysource mySource } 0 myname myName | 0 mypath myPath{ z y x wv u x 0
replace_chars w t t srq s
0 this_text r 0
search_string q 0 replacement_string v ponm p
0 this_text o 0
search_string n 0 replacement_string m
0 item_list lkji
l
ascr
k
txdl
j
citm
i
TEXTu !,FO-EO,FO&EO,FO h gf e
h .aevtoappnull ****
k dd g f ' Mcb a "`_^]\[Z = BYX VW b dV n p } U T SR QP
c
docu
b .coredoexbool obj
a
btns
`
dflt_
^ .sysodlogaskr TEXT
]
conT
\
ctxt [ 0 mysource mySource
Z
leng
Y
pnam X 0 myname myName
W .miscactvnull null V 0
replace_chars
U
bool T 0 mypath myPath
S
strq
R .sysoexecTEXT TEXTQ P e S*k/j kvk OhY hO*k/,&EO,j kvk OhY hO*k/,&E` UOa *j UO*_ a a m+ E` O*_ a a m+ E` O_ a
_ a a & a _ %E` Y a _ %a %E` Oa _ a ,%j !Oa "a ,%a #%_ a ,%j !Oa $_ a ,%j !W X % &h
[TxMt] Safari view source
On 29 Nov 2005, at 23:09, Alec B. Beardsley wrote:
> Has anyone come up with a way to view the source of the current
> page from safari in textmate?
>
I wrote this AppleScript:
try
tell application "Safari"
if not (exists document 1) then
display dialog "You need to open a web location first!" buttons
{"OK"} default button 1
return
end if
set mySource to the source of front document as text
if (length of mySource is 0) then
display dialog "You need to open a web location first!" buttons
{"OK"} default button 1
return
end if
set myName to name of front document as text
end tell
tell application "TextMate" to activate
set myName to replace_chars(myName, "http://", "")
set myName to replace_chars(myName, "/", ":")
if (myName ends with ".html") or (myName ends with ".htm") then
set myPath to "/tmp/" & myName
else
set myPath to "/tmp/" & myName & ".html"
end if
do shell script "rm -f " & quoted form of myPath
do shell script "echo " & quoted form of mySource & " >> " & quoted
form of myPath
do shell script "open -a TextMate " & quoted form of myPath
end try
on replace_chars(this_text, search_string, replacement_string)
set AppleScript's text item delimiters to the search_string
set the item_list to every text item of this_text
set AppleScript's text item delimiters to the replacement_string
set this_text to the item_list as string
set AppleScript's text item delimiters to ""
return this_text
end replace_chars
Paste it in Script Editor.app and save as script or application.
You can then use LaunchBar, QuickSilver, etc. to launch it...
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://comox.textdrive.com/pipermail/textmate/attachments/20051129/7f69c546/attachment-0001.htm