42 lines
711 B
Smalltalk
42 lines
711 B
Smalltalk
|
Class {
|
||
|
|
#name : #TWServer,
|
||
|
|
#superclass : #Object,
|
||
|
|
#instVars : [
|
||
|
|
'wikis'
|
||
|
|
],
|
||
|
|
#category : #TiddlyWiki
|
||
|
|
}
|
||
|
|
|
||
|
|
{ #category : #'instance creation' }
|
||
|
|
TWServer class >> new [
|
||
|
|
|
||
|
|
| instance |
|
||
|
|
instance := super new.
|
||
|
|
^ instance
|
||
|
|
wikis: Dictionary new
|
||
|
|
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #'export - json' }
|
||
|
|
TWServer >> exportTiddlersFrom: aWikiName tagged: aTag into: aFolder [
|
||
|
|
|
||
|
|
| wiki |
|
||
|
|
wiki := wikis at: aWikiName.
|
||
|
|
^ wiki exportJSONTiddlersTagged: aTag in: aFolder
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
TWServer >> wikiNames [
|
||
|
|
|
||
|
|
| return |
|
||
|
|
return := OrderedCollection new.
|
||
|
|
wikis keysDo: [ :key | return add: key ].
|
||
|
|
^ return
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : #accessing }
|
||
|
|
TWServer >> wikis: aTiddlyWikisDictionary [
|
||
|
|
|
||
|
|
wikis := aTiddlyWikisDictionary
|
||
|
|
]
|