10 lines
283 B
Smalltalk
10 lines
283 B
Smalltalk
|
accessing
|
||
|
writeWordsFile
|
||
|
| rawTweets output |
|
||
|
self tweets ifNil: [ ^ self ].
|
||
|
rawTweets := self tweets tweets.
|
||
|
output := '' writeStream.
|
||
|
rawTweets do: [ :current |
|
||
|
output addAll: current words.
|
||
|
].
|
||
|
^ MarkupFile exportAsFileOn: FileLocator "usersStorage" containing: output.
|