Monday, November 08, 2010 at 12:05 AM.
system.verbs.builtins.radio.theme.create.main
on main (adrTheme, themeName=nil, folder=user.radio.prefs.wwwFolder, author=user.prefs.name, authorEmail=user.prefs.mailAddress, creationDate=clock.now (), description=nil, siteUrl=nil) {
<<Changes
<<12/30/01; 5:11:02 PM by JES
<<Create a Theme table at adrTheme, based on templates in the specified folder, the images they reference, and the current prefs.
bundle { //fill in some default values
if themeName == nil {
themeName = weblogData.prefs.title + " Theme"};
if description == nil {
description = "The Theme derived from " + weblogData.prefs.title};
if siteUrl == nil {
siteUrl = radio.upstream.getFileUrl (folder)}};
new (tableType, adrTheme);
radio.theme.create.textFiles (adrTheme, folder);
radio.theme.create.images (adrTheme);
radio.theme.create.prefs (adrTheme);
bundle { //create info sub-table
local (adrInfo = @adrTheme^.info);
new (tableType, adrInfo);
adrInfo^.author = author;
adrInfo^.authorEmail = authorEmail;
adrInfo^.creationDate = creationDate;
adrInfo^.description = description;
adrInfo^.name = themeName;
adrInfo^.siteUrl = siteUrl};
return (true)};
bundle { //test code
local (adrTheme = @scratchpad.testTheme);
local (folder = user.radio.prefs.wwwFolder + "categories:jake'sTestChannel:");
main (adrTheme, folder:folder);
edit (adrTheme)}
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.