MiniDocs/src/MiniDocs/MiniDocsServer.class.st

Class {
	#name : #MiniDocsServer,
	#superclass : #TLWebserver,
	#instVars : [
		'storage'
	],
	#classInstVars : [
		'singleton'
	],
	#category : #MiniDocs
}

{ #category : #accessing }
MiniDocsServer class >> restart [
	Teapot stopAll.
	^ self start
]

{ #category : #accessing }
MiniDocsServer class >> singleton [
	^ singleton
]

{ #category : #accessing }
MiniDocsServer >> addStorage: anObject [ 
	self storage add: anObject.
]

{ #category : #accessing }
MiniDocsServer >> initialize [
	super initialize.
	self storage: FileLocator documents / 'lepiter' / 'default' 
]

{ #category : #accessing }
MiniDocsServer >> start [
	self initTeapot.
	super start.
]

{ #category : #accessing }
MiniDocsServer >> storage [
	^ storage 
]

{ #category : #accessing }
MiniDocsServer >> storage: aFoldersOrderedCollection [ 
	storage := aFoldersOrderedCollection
]