37 lines
788 B
Smalltalk
37 lines
788 B
Smalltalk
|
Class {
|
||
|
|
#name : #MiniDocsServer,
|
||
|
|
#superclass : #Teapot,
|
||
|
|
#classInstVars : [
|
||
|
|
'storage'
|
||
|
|
],
|
||
|
|
#category : #MiniDocs
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
MiniDocsServer class >> addStorage: anObject [
|
||
|
|
self storage add: anObject.
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
MiniDocsServer class >> initialize [
|
||
|
|
self addStorage: FileLocator documents / 'lepiter' / 'default'
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
MiniDocsServer class >> start [
|
||
|
|
self initialize.
|
||
|
|
^ self superclass on
|
||
|
|
serveStatic: '/lepiter/doc/' from: self storage first pathString;
|
||
|
|
start
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
MiniDocsServer class >> storage [
|
||
|
|
^ storage ifNil: [ storage := OrderedCollection new]
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
MiniDocsServer class >> storage: aFoldersOrderedCollection [
|
||
|
|
storage := aFoldersOrderedCollection
|
||
|
|
]
|