Socialmetrica/Socialmetrica.package/NitterUser.class/instance/writeWordsFile.st

18 lines
649 B
Smalltalk

accessing
writeWordsFile
"TO DO: Debug Tweet words to work better with Urls"
| rawTweets rawWords collectionsWords count |
self messages ifNil: [ ^ self ].
rawTweets := self tweets messages.
rawWords := OrderedCollection new.
collectionsWords := ((rawTweets select:
[ :tweet | tweet authorId = self id ])
collect: [ :tweet | (tweet words
reject: [ :w |
w includesSubstring:
((self class nitterProvider asUrl host copyWithoutAll: '.'))]) ]).
collectionsWords do: [ :word | rawWords addAll: word ].
rawWords := ' ' join:rawWords.
^ MarkupFile exportAsFileOn: (self folder / 'words', 'txt') containing: rawWords.