On Mar 14, 2010, at 5:00 PM, Steve Piercy wrote:
> Is it possible to do this in Safari?
One of the scripts I use is similar to Charlie's, but here are two more that
you might find useful.
If you don't use Keyboard Maestro, you can put these scripts into Services
created with Automator. Mac OS X 10.6 allows you to assign keyboard shortcuts
to Services via the System Preferences -> Keyboard -> Keyboard Shortcuts pref
pane.
-Dennis
-----
(1) View Source in BBEdit - displays the current Safari page's HTML markup in
BBEdit.
(2) View Source and Header in BBEdit - displays the current Safari page's HTTP
header and HTML markup in BBEdit.
(3) View DOM in BBEdit - displays the current Safari page's DOM in BBEdit (i.e.
includes any changes made locally with JavaScript).
-----
(1) View Source in BBEdit
tell application "Safari"
try
set docTitle to name of current tab of window 1
on error
set docTitle to URL of document 1
end try
set docContent to source of document 1
end tell
tell application "BBEdit"
activate
make new text window with properties {contents:docContent, name:docTitle}
set source language of front document to "HTML"
select insertion point before character 1 of text window 1
end tell
-----
(2) View Source and Header in BBEdit
tell application "Safari"
set docURL to URL of document 1
-- Rather than hard-coding the user agent into the script, ask Safari for it
so the script should work unmodified on any recent version of Safari.
set browserUserAgent to do JavaScript "navigator.userAgent" in document 1
try
set docTitle to name of current tab of window 1
on error
set docTitle to docURL
end try
end tell
try
-- Including the user agent is necessary to deal with situations where the
document header depends on browser detection. The "-i" option tells curl to
include the header.
set docContent to do shell script ("curl --user-agent '" & browserUserAgent
& "' -i " & docURL)
on error errMsg
tell application "Safari"
display dialog errMsg buttons {"OK"} default button 1 with icon 2
return
end tell
end try
tell application "BBEdit"
activate
make new text window with properties {contents:docContent, name:docTitle}
set source language of front document to "HTML"
select insertion point before character 1 of text window 1
end tell
-----
(3) View DOM in BBEdit
global jsCode
global docContent
global docTitle
set jsCode to "document.documentElement.outerHTML"
tell application "Safari"
set docContent to (do JavaScript jsCode in front document)
try
set docTitle to name of current tab of window 1
on error
set docTitle to URL of document 1
end try
end tell
tell application "BBEdit"
activate
make new text window with properties {contents:docContent,
name:docTitle}
set source language of front document to "HTML"
select insertion point before character 1 of text window 1
end tell
-----
--
You received this message because you are subscribed to the
"BBEdit Talk" discussion group on Google Groups.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/bbedit?hl=en
If you have a feature request or would like to report a problem,
please email "[email protected]" rather than posting to the group.
