EventSelectors.register({
	/**
	 * Home page theme selector
	 **/
	'#whitePaper ul.theme li:click': function(el) {
		var findThemeName = function(el, prefix, start, end) {
			if (typeof(end) == 'undefined') end = 100;
			if (typeof(start) == 'undefined') start = 1;
			if (typeof(prefix) == 'undefined') prefix = 'theme';
			for (var themeNo=start; themeNo<end; themeNo++) {                          // Search for themes 0-100
				var themeName = 'theme'+themeNo;
				if (Element.hasClassName(el, themeName)) {
					return themeNo;
				}
			}
			return false;
		}

		var targetElement = document.getElementsByTagName('body')[0];

		// Find which theme this selector is intended to load
		var newThemeNo = findThemeName(el);
		var oldThemeNo = findThemeName(targetElement);

		if (typeof(newThemeNo) != 'undefined') {                               // If the above search succeeded in locating a theme designation...
			// Arrange theme classes on #page element
			var oldThemeName = 'theme'+oldThemeNo;
			var newThemeName = 'theme'+newThemeNo;
			Element.removeClassName(targetElement, oldThemeName);
			Element.addClassName(targetElement, newThemeName);

			// Arrange theme classes on clicked element
			var themeLinks = $$('#whitePaper ul.theme li');
			for (var x=0; x<themeLinks.length; x++) {
				if (themeLinks[x] == el) {
					Element.addClassName(themeLinks[x], 'selected');
				} else {
					Element.removeClassName(themeLinks[x], 'selected');
				}
			}
		} else {                                                               // The element which was clicked had no discernable theme designator
			alert('Load which theme?');
		}
	}
});