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

---

system.verbs.builtins.bookmarksMenu.openUrl

on openUrl (url, windowTitle) {
	Frontier.tools.windowTypes.commands.openUrl (url)};
	<<bundle //old code for Frontier
		<<if string.lower (url) endsWith ".opml"
			<<local (urlList = string.urlSplit (url))
			<<local (opmlText = string.httpResultSplit (tcp.httpClient (server:urlList [2], path:urlList [3])))
			<<local (adrTable = @system.temp.bookmarkedOutlines)
			<<if not defined (adrTable^)
				<<new (tableType, adrTable)
			<<local (adrOutline = @adrTable^.[windowTitle])
			<<op.xmlToOutline (opmlText, adrOutline)
			<<edit (adrOutline)
			<<window.setTitle (adrOutline, windowTitle)
			<<window.zoom (adrOutline)
		<<else //not opml
			<<webBrowser.openUrl (url)
			<<webBrowser.bringToFront ()
bundle { //debugging
	openUrl ("http://www.scripting.com/", "test")}

---

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.