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. |