Monday, November 08, 2010 at 12:04 AM.
system.verbs.builtins.opmlEditor.viewCatalog
<<Changes <<8/7/08; 5:10:04 AM by DW <<Simplified the catalog listing, tweaked the layout. <<7/30/08; 2:23:51 PM by DW <<DIsplay introductory text before the catalog table. <<7/30/08; 11:55:14 AM by DW <<Minor cosmetic adjustments for slightly less screen real estate. <<7/29/08; 10:50:08 AM by DW <<Created. local (adrtoolsInfo = opmlEditor.getToolsInfo ()); <<scratchpad.toolsInfo = toolsinfo local (htmltext = "", indentlevel = 0); on add (s) { htmltext = htmltext + string.filledstring ("\t", indentlevel) + s + "\r"}; add ("<table><tr><td>" + string (opmlEditor.data.outlines.catalogIntro) + "</td></tr></table><br>"); add ("<table cellpadding=\"5\">"); indentlevel++; bundle { //column headers add ("<tr>"); indentlevel++; add ("<td align=\"right\"><b>Name</b> </td>"); add ("<td><b>Description</b></td>"); add ("<td align=\"right\"><b>Date</b></td>"); add ("</tr>"); indentlevel--}; local (adrtool, urlInstall); for adrtool in adrtoolsInfo { add ("<tr>"); indentlevel++; add ("<td valign=\"top\" align=\"right\"><a href=\"" + adrtool^.toolInfo.homePageUrl + "\">" + (nameof (adrtool^) - ".root") + "</a> </td>"); add ("<td valign=\"top\">" + adrtool^.toolInfo.description + "</td>"); add ("<td valign=\"top\" align=\"right\">" + date.shortstring (adrtool^.toolInfo.releaseDate) + "</td>"); urlinstall = opmlEditor.data.urls.installTool + string.urlencode (nameof (adrtool^)); add ("<td valign=\"top\"><a href=\"" + urlInstall + "\">" + "Install" + "</a></td>"); add ("</tr>"); indentlevel--}; add ("</table>"); indentlevel--; return (htmltext)
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.