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

---

system.verbs.builtins.mainResponder.menuCommands.mapToDomain

local (adrwebsite = table.getcursoraddress ());
if dialog.ask ("Enter domain name to map to \"" + nameof (adrwebsite^) + "\":", @config.mainResponder.prefs.lastMappedDomainName) {
	local (adrconfig = @config.mainresponder.domains.[config.mainResponder.prefs.lastMappedDomainName]);
	if defined (adrconfig^) {
		if not dialog.confirm ("There's already a defined domain with the name \"" + config.mainResponder.prefs.lastMappedDomainName + "\", replace it?") {
			return}};
	adrconfig^ = adrwebsite;
	webbrowser.openurl ("http://" + config.mainResponder.prefs.lastMappedDomainName + "/");
	filemenu.savemyroot (adrconfig)}

---

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.