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

Fixing raw tweets collection and tweets filtering from html.

Browse Source
This commit is contained in:
ruidajo 2022-04-25 18:59:10 -05:00
parent b964460fa3
commit bd69b73529
7 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
Socialmetrica.package/NitterUser.class/instance/collectRawTweetsUpToPage..st
View File

@ -20,13 +20,14 @@ collectRawTweetsUpToPage: anInteger
response add: tempTweet. response add: tempTweet.
] ]
]. ].
"response messages doWithIndex: [ :tweet :i | response messages: (response messages select: [ :tweet | tweet isNotNil ]).
response messages doWithIndex: [ :tweet :i |
| current previous | | current previous |
current := response messages at: i. current := response messages at: i.
i < response messages size ifTrue: [ i < response lastIndex ifTrue: [
previous := response messages at: i + 1. previous := response messages at: i + 1.
current timelines current timelines
at: self userName put: previous id; at: self userName put: previous id;
yourself ]]." yourself ]].
^ response. ^ response.

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

@ -3,7 +3,7 @@ quotes
self messages ifEmpty: [ self getMessages ]. self messages ifEmpty: [ self getMessages ].
^ TweetsCollection new ^ TweetsCollection new
messages: (self messages messages messages: (self messages
select: [ :each | select: [ :each |
(each metadata at: 'quote') isNotEmpty and: [ each user userName = self userName] ]); (each metadata at: 'quote') isNotEmpty and: [ each user userName = self userName] ]);
yourself yourself

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

@ -3,5 +3,5 @@ replies
self messages ifEmpty: [ self getMessages ]. self messages ifEmpty: [ self getMessages ].
^ TweetsCollection new ^ TweetsCollection new
messages: (self messages messages select: [ :each | (each metadata at: 'replie to') isNotEmpty ]); messages: (self messages select: [ :each | (each metadata at: 'replie to') isNotEmpty ]);
yourself yourself

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

@ -3,5 +3,5 @@ retweets
self messages ifEmpty: [ self getMessages ]. self messages ifEmpty: [ self getMessages ].
^ TweetsCollection new ^ TweetsCollection new
messages: (self messages messages select: [ :each | each authorId ~= self id]); messages: (self messages select: [ :each | each authorId ~= self id]);
yourself yourself

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

@ -2,5 +2,5 @@ accessing
tweets tweets
self messages ifEmpty: [ self getMessages ]. self messages ifEmpty: [ self getMessages ].
^ TweetsCollection new ^ TweetsCollection new
messages: (self messages messages select: [ :each | each authorId = self id ]); messages: (self messages select: [ :each | each authorId = self id ]);
yourself yourself

4
Socialmetrica.package/TweetsCollection.class/instance/lastIndex.st Normal file
View File

@ -0,0 +1,4 @@
accessing
lastIndex
^ lastIndex

2
Socialmetrica.package/TweetsCollection.class/instance/messages.st
View File

@ -1,3 +1,3 @@
accessing accessing
messages messages
^ array "ifNil: [ array := OrderedCollection new ]" ^ array