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

---

scripting2Suite.oldstuff.["00008000\tTweet"

<<Changes
	<<6/13/10; 1:31:15 AM by DW
		<<Created. 
local (tweettext, urlpost);
bundle { //get tweettext, urlpost
	tweettext = "";
	try {tweettext = wp .getseltext ()};
	local (adroutline = address (window.frontmost ()), lo = adroutline^);
	local (oldtarget = target.set (@lo));
	op.go (left, infinity);
	if sizeof (tweettext) == 0 {
		tweettext = op.getlinetext ()};
	op.attributes.getone ("url", @urlpost);
	target.set (oldtarget);
	tweettext = string.trimwhitespace (tweettext)};
	<<if sizeof (tweettext) > 0
		<<tweettext = string.addPeriodToSentence (tweettext)
bundle { //temporary code
	local (url = "http://redirect2.twitterland.net/index?username=davewiner&link=");
	url = url + string.urlencode (urlpost) + "&title=" + string.urlencode (tweettext);
	webbrowser.openurl (url);
	webbrowser.bringtofront ()}
	<<dialog.alert (tweettext + url)

---

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.