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

Merge 7fa248e4fa

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-05-15 16:32:33 -05:00
commit 75290c2538
5 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
accessing accessing
newestTweet newestTweet
^ self messages newestOf: self id ^ self messages newestOf: self userName

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

@ -1,4 +1,4 @@
accessing accessing
oldestTweet oldestTweet
^ self messages oldestOf: self id ^ self messages oldestOf: self userName

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

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

8
Socialmetrica.package/TweetsCollection.class/instance/newestOf..st
View File

@ -1,7 +1,9 @@
accessing accessing
newestOf: userId newestOf: userName
| user |
user := (TwitterUser storedInstances select: [ :each | each userName = userName ]) first.
self messages ifNil: [ ^ nil ]. self messages ifNil: [ ^ nil ].
self messages ifEmpty: [ ^ nil ]. self messages ifEmpty: [ ^ nil ].
^ ((self select: [ :tweet | tweet authorId = userId ]) ^ ((user messages: self; yourself; tweets)
select: [ :tweet | tweet created = (((self select: [ :each | each authorId = userId ]) collect: [ :each | each created ]) asSortedCollection last)]) first select: [ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection last)]) first.

8
Socialmetrica.package/TweetsCollection.class/instance/oldestOf..st
View File

@ -1,7 +1,9 @@
accessing accessing
oldestOf: userId oldestOf: userName
| user |
user := (TwitterUser storedInstances select: [ :each | each userName = userName ]) first.
self messages ifNil: [ ^ nil ]. self messages ifNil: [ ^ nil ].
self messages ifEmpty: [ ^ nil ]. self messages ifEmpty: [ ^ nil ].
^ ((self select: [ :tweet | tweet authorId = userId ]) ^ ((user messages: self; yourself; tweets)
select: [ :tweet | tweet created = (((self select: [ :each | each authorId = userId ]) collect: [ :each | each created ]) asSortedCollection first)]) first select: [ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first.