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

on unfollow () {
		<<9/3/10; 9:39:43 AM by DW
	local (name);
	bundle { //get name from buddy outline
		local (adroutline = address (window.frontmost ()), lo = adroutline^);
		local (oldtarget = target.set (@lo));
		op.go (left, infinity);
		name = searchengine.stripmarkup (op.getlinetext  ());
		target.set (oldtarget)};
	if dialog.ask ("Name of user to unfollow?", @name) {
		local (adrdata = io.init (), now = ());
		name = string.trimwhitespace (name);
		local (username = adrdata^.client.prefs.username);
		local (password = string (adrdata^.client.prefs.password));
		local (server = string (adrdata^.client.prefs.server));
		[server].io.unfollow (username, password, name);
		dialog.alert ("Goodbye to " + name + "!")}};
bundle { //test code
	unfollow ()}

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.