Merge 463781085b
This commit is contained in:
commit
9ae819722f
@ -13,7 +13,7 @@ tweets
|
||||
subcollection := self messages
|
||||
select: [ :each | (each authorId = '1502504562984374276') or: [ each authorId = self id ] ]
|
||||
].
|
||||
(self userName ~= 'FranciaMarquezM' or: [ self userName ~= 'sandralajas' ])
|
||||
(self userName ~= 'FranciaMarquezM' and: [ self userName ~= 'sandralajas' ])
|
||||
ifTrue: [ subcollection := self messages select: [ :each | each authorId = self id ] ].
|
||||
^ TweetsCollection new
|
||||
messages: subcollection;
|
||||
|
@ -3,15 +3,11 @@ writeWordsFile
|
||||
"TO DO: Debug Tweet words to work better with Urls"
|
||||
| rawTweets rawWords collectionsWords count |
|
||||
self messages ifNil: [ ^ self ].
|
||||
rawTweets := self tweets messages.
|
||||
rawTweets := self tweets.
|
||||
|
||||
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 := rawTweets collect: [ :tweet | (tweet words reject: [ :w |
|
||||
w includesSubstring: (self class nitterProvider asUrl host copyWithoutAll: '.')])].
|
||||
collectionsWords do: [ :word | rawWords addAll: word ].
|
||||
rawWords := ' ' join:rawWords.
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user