gruber

## gist:647224
tell application "Safari"
	set _source to do JavaScript "window.document.documentElement.outerHTML" in document 1
	set _name to name of document 1
end tell


tell application "BBEdit"
	make new text window with properties ¬
		{contents:_source, source language:"HTML", name:"Generated source: " & _name}
	select insertion point before character 1 of text window 1

## Open URLs in Safari Tabs.pl
#!/usr/bin/perl

# Description: http://daringfireball.net/2010/08/open_urls_in_safari_tabs
# License: See below.
# http://gist.github.com/507356

use strict;
use warnings;
use URI::Escape;

## Liberal Regex Pattern for All URLs
The regex patterns in this gist are intended to match any URLs,
including "mailto:foo@example.com", "x-whatever://foo", etc. For a
pattern that attempts only to match web URLs (http, https), see:
https://gist.github.com/gruber/8891611


# Single-line version of pattern:

(?i)\b((?:[a-z][\w-]+:(?:/{1,3}|[a-z0-9%])|www\d{0,3}[.]|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+|\(([^\s()<>]+|(\([^\s()<>]+\)))*\))+(?:\(([^\s()<>]+|(\([^\s()<>]+\)))*\)|[^\s`!()\[\]{};:'".,<>?«»“”‘’]))
	tell application "Safari"
	set _source to do JavaScript "window.document.documentElement.outerHTML" in document 1
	set _name to name of document 1
	end tell


	tell application "BBEdit"
	make new text window with properties ¬
	{contents:_source, source language:"HTML", name:"Generated source: " & _name}
	select insertion point before character 1 of text window 1
	#!/usr/bin/perl

	# Description: http://daringfireball.net/2010/08/open_urls_in_safari_tabs
	# License: See below.
	# http://gist.github.com/507356

	use strict;
	use warnings;
	use URI::Escape;
	The regex patterns in this gist are intended to match any URLs,
	including "mailto:foo@example.com", "x-whatever://foo", etc. For a
	pattern that attempts only to match web URLs (http, https), see:
	https://gist.github.com/gruber/8891611


	# Single-line version of pattern:

	(?i)\b((?:[a-z][\w-]+:(?:/{1,3}\|[a-z0-9%])\|www\d{0,3}[.]\|[a-z0-9.\-]+[.][a-z]{2,4}/)(?:[^\s()<>]+\|\(([^\s()<>]+\|(\([^\s()<>]+\)))\))+(?:\(([^\s()<>]+\|(\([^\s()<>]+\)))\)\|[^\s`!()\[\]{};:'".,<>?«»“”‘’]))