Saturday, March 19, 2011 at 1:05 AM.

---

scripting2Suite.editor.postToLinkBlog

on postToLinkBlog (title, link, description="") {
	<<Changes
		<<3/18/11; 5:06:59 PM by DW
			<<Add optional parameter, description.
		<<7/10/10; 3:26:26 PM by DW
			<<Created. 
	local (adrdata = scripting2Suite.init (), flgoleft = false);
	local (urlHtml = adrdata^.editor.stats.urlLiveBlog);
	if urlHtml == "" {
		scripterror ("Can't post to linkblog because you haven't set one yet.")};
	scripting2Suite.editor.openEmbeddedOpml (urlHtml);
	op.firstsummit ();
	op.insert (title, right);
	if sizeof (description) > 0 { //3/18/11 by DW
		op.insert (description, right);
		flgoleft = true};
	bundle { //add the atts
		local (atts);
		new (tabletype, @atts);
		atts.type = "link";
		atts.url = link;
		op.attributes.addgroup (@atts)};
	if flgoleft {
		op.go (left, 1)}};
bundle { //test code
	postToLinkBlog ("Hello", "http://scripting.com/")}

---

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.