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

9 lines
356 B
Smalltalk
Raw Normal View History

accessing
oldestOf: userName
| user |
user := (TwitterUser storedInstances select: [ :each | each userName = userName ]) first.
self messages ifNil: [ ^ nil ].
self messages ifEmpty: [ ^ nil ].
^ ((user messages: self; yourself; tweets)
select: [ :tweet | tweet created = ((self collect: [ :each | each created ]) asSortedCollection first)]) first.