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

system.verbs.apps.FinderMenu.commands.makeDesktopAlias

on makeDesktopAlias () {
	<<creates an alias of all the selected files on the Finder desktop
	on visit (path) {
		local (fname = file.fileFromPath (path));
		fname = string.poptrailing (fname, ':'); <<work around Frontier 1.0 bug in file.newAlias
		path = string.poptrailing (path, ':'); <<work around Frontier 1.0 bug in file.newAlias
		return (file.newAlias (path, file.getSystemDisk () + "Desktop Folder:" + fname))};
	return (FinderMenu.visitPaths (@visit))}



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.