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

on deletePageFromLocalIndex (url) {
	local (indexPath = ());
	local (adrIndex = @[indexPath].index);
	local (adrPages = @[indexPath].pageInfo);
	msg ("Search Engine: De-indexing " + url + "...");
	<<First de-index the page.
	searchEngine.deIndexPage (url, adrIndex);
	msg ("Search Engine: Removing page info for " + url + "...");
	<<Then remove the info about the page.
	if defined (adrPages^.[url]) {
		delete (@adrPages^.[url])}; (indexPath);
	return (true)};
bundle { //test code
	local (url);
	loop {
		if dialog.ask ("Url to delete:", @url) {
			deletePageFromLocalIndex (url)}
		else {
	<<Close the index.
	msg ("Search Engine: Closing Index.root...");
	fileMenu.close (indexPath);
	<<Re-open the index.
	msg ("Search Engine: Opening Index.root..."); (indexPath, true); //open it hidden
	msg ("");
	return (true)}

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.