Modifying oldest tweet selection and oldest tweet for nitter user.

This commit is contained in:
ruidajo 2022-05-03 12:32:05 -05:00
parent ae652fdf3a
commit 35d9d037d3
4 changed files with 13 additions and 2 deletions

View File

@ -1,4 +1,4 @@
accessing
getPagesContentsFromOldestUpto: anInteger
^ self getPagesContentsFrom: ((self messages oldest metadata select: [ :item | item isString and: [ item beginsWith: 'https://' ]]) values first) Upto: anInteger
^ self getPagesContentsFrom: ((self oldestTweet metadata select: [ :item | item isString and: [ item beginsWith: 'https://' ]]) values first) Upto: anInteger

View File

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

View File

@ -2,4 +2,4 @@ accessing
oldest
self messages ifNil: [ ^ nil ].
self messages ifEmpty: [ ^ nil ].
^ self last
^ (self select:[ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first

View File

@ -0,0 +1,7 @@
accessing
oldestOf: userId
self messages ifNil: [ ^ nil ].
self messages ifEmpty: [ ^ nil ].
^ ((self select: [ :tweet | tweet authorId = userId ])
select: [ :tweet | tweet created = (((self select: [ :each | each authorId = userId ]) collect: [ :each | each created ]) asSortedCollection first)]) first