Monday, November 08, 2010 at 12:00 AM.

---

scripting2Suite.editor.openEmbeddedOpml

on openEmbeddedOpml (urlHtml, flbringtofront=false) {
	<<Changes
		<<7/10/10; 3:50:21 PM by DW
			<<Created. 
	local (linktable, adr, urlOpml = nil);
	xml.getHtmlLinks (urlHtml, @linktable);
	<<scratchpad.linktable = linktable
	for adr in @linktable {
		if adr^.type == "application/opml+xml" {
			if adr^.rel == "alternate" {
				if adr^.title == "source" {
					urlOpml = adr^.href;
					break}}}};
	if urlOpml != nil {
		if flbringtofront {
			frontier.bringtofront ()};
		scripting2Suite.editor.openEditWindow (urlOpml)}};
bundle { //test code
	openEmbeddedOpml ("http://scripting.com/stories/2010/06/27/myFirstLiveblogPost.html")}

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.