Source for SMSqueakMapView>>default

default
	"Default request for the top view. Show the first page."

	| b loggedIn |
	b := self builder.
	b start; h1: 'SqueakMap';
		p: 'Welcome to <b>SqueakMap</b>!';
		p; html: (b getLinkLocal: 'help' text: 'SqueakMap'), ' is a catalog over <b>installable code packages</b> for ';
		link: 'http://www.squeak.org' text: 'Squeak'; html: '. Read more on the '; link: 'http://wiki.squeak.org/squeak/2726' text: 'Squeak Swiki pages'; html: ' about SqueakMap.';
		p: 'So far <b>', model packages size fullPrintString, '</b> ',
			(b getLinkLocal: 'packagesbyname' text: 'Squeak packages'), ' and <b>',
			model accounts size fullPrintString, '</b> ',
			(b getLinkLocal: 'accountsbyname' text: 'SqueakMap accounts'), ' have been registered.'.
	b h2: 'Navigation'.
	b ul: {
		(b getLinkLocal: 'recentnew' text: 'New objects'), ' - See all new objects added in the last 30 days.'.
		(b getLinkLocal: 'packagesbyname' text: 'All packages sorted by name'), ' - See all registered packages.'.
		(b getLinkLocal: 'packagesbyregistration' text: 'All packages sorted by registration'), ' - See all registered packages.'.
		(b getLinkLocal: 'categories' text: 'Browse packages'), ' - Browse packages in the category hierarchy.'.
		(b getLinkLocal: 'categoriestree' text: 'Category tree'), ' - View the full category hierarchy.'.
	}.
	b h2: 'Accounts'.
	b ul: {
		(b getLinkLocal: 'accountsbyname' text: 'All accounts sorted by name'), ' - See all registered accounts.'.
		(b getLinkLocal: 'accountsbyinitials' text: 'All accounts sorted by developer initials'), ' - See all registered accounts.'.
		(b getLinkLocal: 'newaccount' text: 'Get account'), ' - Get a personal account on SqueakMap. Needed to publish packages.'.
		(b getLinkLocal: 'account' text: 'My SqueakMap account'), ' - Your account homepage.'}.
	loggedIn := self accountsLoggedIn.
	loggedIn isEmpty ifFalse: [
		b h2: 'Logged in now'.
		b ol: self accountsLoggedIn do: [:acc |
			b html: (self accountLink: acc) , ' - ', acc summary ]].

"	b h2: 'Categories and more'.
	b ul: {
		(b getLinkLocal: 'admin' text: 'Administer'), ' - Administer the SqueakMap. <b>Requires password</b>.'.
		(self getLinkLocal: 'analyzeupdate' text: 'Analyze update'), ' - Show some numbers about the current largest slave map update possible.'
	}."
	^b