Fixing tweets by date filtering and replies.

Socialmetrica.package/NitterUser.class/instance/newestTweet.st

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

Socialmetrica.package/NitterUser.class/instance/oldestTweet.st

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

Socialmetrica.package/NitterUser.class/instance/replies.st

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

Socialmetrica.package/TweetsCollection.class/instance/newestOf..st

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

Socialmetrica.package/TweetsCollection.class/instance/oldestOf..st

@@ -1,7 +1,9 @@
 accessing
-oldestOf: userId
+oldestOf: userName
 
+	| user |
+	user := (TwitterUser storedInstances select: [ :each | each userName = userName ]) first.
 	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
+	^ ((user messages: self; yourself; tweets)
+		select: [ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first.