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

Creating tweet testing, and modifyng nitter user asdictonary.

Browse Source
This commit is contained in:
ruidajo 2022-04-25 17:12:04 -05:00
parent 3ff8dfc86a
commit a38124638d
4 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,7 +1,7 @@
accessing accessing
asDictionary asDictionary
^ { 'profile-card-avatar' -> self profileImageFile values first fullName. ^ { 'profile-card-avatar' -> self profileImageFile fullName.
'profile-card-fullname' -> self name . 'profile-card-fullname' -> self name .
'profile-card-username' -> self userName . 'profile-card-username' -> self userName .
'profile-bio' -> self profileBio } asDictionary 'profile-bio' -> self profileBio } asDictionary

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

@ -3,7 +3,9 @@ collectRawTweetsUpToPage: anInteger
| pagesDict response customQuery | | pagesDict response customQuery |
pagesDict := self getPagesContentsUpto: anInteger. pagesDict := self getPagesContentsUpto: anInteger.
response := TweetsCollection new. response := TweetsCollection new
messages: OrderedCollection new;
yourself.
customQuery := Dictionary new customQuery := Dictionary new
at: 'parameters' put: pagesDict keys; at: 'parameters' put: pagesDict keys;
at: 'date' put: DateAndTime now; at: 'date' put: DateAndTime now;

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

@ -2,6 +2,6 @@ accessing
profileImageFile profileImageFile
| file | | file |
file := (self folder / self userName, 'jpg'). file := (self folder / 'profile-image', 'jpg').
file exists ifTrue: [ ^ file ]. file exists ifTrue: [ ^ file ].
^ self downloadProfileImage ^ self downloadProfileImage

6
Socialmetrica.package/Tweet.class/instance/isInDB.st Normal file
View File

@ -0,0 +1,6 @@
accessing
isInDB
(Tweet storedInstances select: [ :each | each id = self id ])
ifEmpty: [ ^ false ]
ifNotEmpty: [ ^ true ].