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

---

system.verbs.apps.FinderMenu.commands.makeSystemAlias

on makeSystemAlias (systemSubFolder) {
	<<creates an alias of all the selected files in a subfolder of the System Folder
	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.getSystemFolderPath () + systemSubFolder + 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.