| return colorScheme |
return _ WriteStream on: (String new: 300).
colorScheme _ book modulesAt: 'colorScheme'.
"Page Buttons"
return
	nextPutAll: (colorScheme button: 'viewbw');
	nextPutAll: (colorScheme button: 'editbw');
	nextPutAll: (colorScheme button: 'lockbw');
	nextPutAll: (colorScheme button: 'referencesbw');
	nextPutAll: (colorScheme button: 'uploadbw');
	nextPutAll: (colorScheme button: 'historybw').
"Divider"
return nextPutAll: (colorScheme formatTemplate: 'divider' request: request response: response shelf: shelf book: book).
"Book Buttons"
return nextPutAll: (colorScheme button: 'top' link: (request referenceShelf: shelf book: book)).
return nextPutAll: ((request address = 'recent')
	ifTrue: [colorScheme button: 'recentie']
	ifFalse: [colorScheme button: 'recent' link: (request referenceShelf: shelf book: book address: 'recent')]).
return nextPutAll: ((request address = 'search')
	ifTrue: [colorScheme button: 'searchie']
	ifFalse: [colorScheme button: 'search' link: (request referenceShelf: shelf book: book address: 'search')]).
return nextPutAll: ((request address = 'help')
	ifTrue: [colorScheme button: 'helpie']
	ifFalse: [colorScheme button: 'help' link: (request referenceShelf: shelf book: book address: 'help')]).
"Return contents"
return contents
