16 lines
552 B
Smalltalk
16 lines
552 B
Smalltalk
accessing
|
|
writeWordsFile
|
|
|
|
| rawTweets rawWords collectionsWords count |
|
|
self messages ifNil: [ ^ self ].
|
|
rawTweets := self messages messages.
|
|
|
|
rawWords := OrderedCollection new.
|
|
collectionsWords := ((rawTweets select:
|
|
[ :tweet | tweet user userName = self userName ])
|
|
collect: [ :tweet | (tweet words
|
|
reject: [ :w | w includesSubstring: 'nitter42lfr' ]) ]).
|
|
collectionsWords do: [ :word | rawWords addAll: word ].
|
|
rawWords := ' ' join:rawWords.
|
|
|
|
^ MarkupFile exportAsFileOn: (self folder / 'words', 'txt') containing: rawWords. |