Offray
/
Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge 463781085b

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-05-15 12:40:08 -05:00
parent 7c6d7d9d80 463781085b
commit 9ae819722f
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Socialmetrica.package/NitterUser.class/instance/tweets.st
View File

@ -13,7 +13,7 @@ tweets
subcollection := self messages subcollection := self messages
select: [ :each | (each authorId = '1502504562984374276') or: [ each authorId = self id ] ] 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 ] ]. ifTrue: [ subcollection := self messages select: [ :each | each authorId = self id ] ].
^ TweetsCollection new ^ TweetsCollection new
messages: subcollection; messages: subcollection;

10
Socialmetrica.package/NitterUser.class/instance/writeWordsFile.st
View File

@ -3,15 +3,11 @@ writeWordsFile
"TO DO: Debug Tweet words to work better with Urls" "TO DO: Debug Tweet words to work better with Urls"
| rawTweets rawWords collectionsWords count | | rawTweets rawWords collectionsWords count |
self messages ifNil: [ ^ self ]. self messages ifNil: [ ^ self ].
rawTweets := self tweets messages. rawTweets := self tweets.
rawWords := OrderedCollection new. rawWords := OrderedCollection new.
collectionsWords := ((rawTweets select: collectionsWords := rawTweets collect: [ :tweet | (tweet words reject: [ :w |
[ :tweet | tweet authorId = self id ]) w includesSubstring: (self class nitterProvider asUrl host copyWithoutAll: '.')])].
collect: [ :tweet | (tweet words
reject: [ :w |
w includesSubstring:
((self class nitterProvider asUrl host copyWithoutAll: '.'))]) ]).
collectionsWords do: [ :word | rawWords addAll: word ]. collectionsWords do: [ :word | rawWords addAll: word ].
rawWords := ' ' join:rawWords. rawWords := ' ' join:rawWords.