40 lines
1.6 KiB
Smalltalk
40 lines
1.6 KiB
Smalltalk
accessing
|
|
tweets
|
|
| subcollection |
|
|
self messages ifEmpty: [ self getMessages ].
|
|
"TO DO: It seems that Twitter changes the user id, which we thought was unchangeable. This deals with the detected changes so far."
|
|
self userName = 'FranciaMarquezM'
|
|
ifTrue: [
|
|
subcollection := self messages
|
|
select: [ :each | (each authorId = '1510420950801698826') or: [ each authorId = self id ] ]
|
|
].
|
|
self userName = 'sandralajas'
|
|
ifTrue: [
|
|
subcollection := self messages
|
|
select: [ :each | (each authorId = '1502504562984374276') or: [ each authorId = self id ] ]
|
|
].
|
|
self userName = 'IBetancourtCol'
|
|
ifTrue: [
|
|
subcollection := self messages
|
|
select: [ :each | (each authorId = '1517487571135344643') or: [ each authorId = self id ] ]
|
|
].
|
|
self userName = 'sergio_fajardo'
|
|
ifTrue: [
|
|
subcollection := self messages
|
|
select: [ :each | (each authorId = '1509644668300058633') or: [ each authorId = self id ] ]
|
|
].
|
|
self userName = 'ingrodolfohdez'
|
|
ifTrue: [
|
|
subcollection := self messages
|
|
select: [ :each | (each authorId = '1511813393220616192') or: [ each authorId = self id ] ]
|
|
].
|
|
self userName = 'CastilloMarelen'
|
|
ifTrue: [
|
|
subcollection := self messages
|
|
select: [ :each | (each authorId = '1506282884746952707') or: [ each authorId = self id ] ]
|
|
].
|
|
(#('FranciaMarquezM' 'sandralajas' 'IBetancourtCol' 'sergio_fajardo' 'ingrodolfohdez' 'CastilloMarelen') includes: self userName)
|
|
ifFalse: [ subcollection := self messages select: [ :each | each authorId = self id ]].
|
|
^ TweetsCollection new
|
|
messages: subcollection;
|
|
yourself |