diff --git a/Socialmetrica.package/NitterUser.class/instance/getPagesContentsFromOldestUpto..st b/Socialmetrica.package/NitterUser.class/instance/getPagesContentsFromOldestUpto..st index 91f1d46..8e9d9f4 100644 --- a/Socialmetrica.package/NitterUser.class/instance/getPagesContentsFromOldestUpto..st +++ b/Socialmetrica.package/NitterUser.class/instance/getPagesContentsFromOldestUpto..st @@ -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 \ No newline at end of file + ^ self getPagesContentsFrom: ((self oldestTweet metadata select: [ :item | item isString and: [ item beginsWith: 'https://' ]]) values first) Upto: anInteger \ No newline at end of file diff --git a/Socialmetrica.package/NitterUser.class/instance/oldestTweet.st b/Socialmetrica.package/NitterUser.class/instance/oldestTweet.st new file mode 100644 index 0000000..b97379a --- /dev/null +++ b/Socialmetrica.package/NitterUser.class/instance/oldestTweet.st @@ -0,0 +1,4 @@ +accessing +oldestTweet + + ^ self messages oldestOf: self id \ No newline at end of file diff --git a/Socialmetrica.package/TweetsCollection.class/instance/oldest.st b/Socialmetrica.package/TweetsCollection.class/instance/oldest.st index 058b73f..7e56079 100644 --- a/Socialmetrica.package/TweetsCollection.class/instance/oldest.st +++ b/Socialmetrica.package/TweetsCollection.class/instance/oldest.st @@ -2,4 +2,4 @@ accessing oldest self messages ifNil: [ ^ nil ]. self messages ifEmpty: [ ^ nil ]. - ^ self last \ No newline at end of file + ^ (self select:[ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first \ No newline at end of file diff --git a/Socialmetrica.package/TweetsCollection.class/instance/oldestOf..st b/Socialmetrica.package/TweetsCollection.class/instance/oldestOf..st new file mode 100644 index 0000000..f03757f --- /dev/null +++ b/Socialmetrica.package/TweetsCollection.class/instance/oldestOf..st @@ -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 \ No newline at end of file