diff --git a/Datanalitica.package/TwitterAPI.class/instance/gtUsersMentioning.On..st b/Datanalitica.package/TwitterAPI.class/instance/gtUsersMentioning.On..st new file mode 100644 index 0000000..4261aa2 --- /dev/null +++ b/Datanalitica.package/TwitterAPI.class/instance/gtUsersMentioning.On..st @@ -0,0 +1,12 @@ +accessing +gtUsersMentioning: userName On: aView + + ^ aView columnedList + title: 'Users mentioning @',userName translated; + priority: 5; + items: [ self usersMentioning: userName ]; + column: 'Imagen' + icon: [ :aTwitterUser | aTwitterUser profileImage asElement asScalableElement size: 32 @ 32 ] + width: 75; + column: 'User Name' text: [ :aTwitterUser | aTwitterUser userName ]; + column: 'Name' text: [ :aTwitterUser | aTwitterUser name ] \ No newline at end of file diff --git a/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st b/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st index 81b2ce4..5f0cc10 100644 --- a/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st +++ b/Datanalitica.package/TwitterAPI.class/instance/userEndPointFor.selecting..st @@ -1,7 +1,7 @@ accessing userEndPointFor: username selecting: tweetsOrMentions "I build a shared URL for querying last 100 mentions or tweets for a particular user. - Second parameter should be only 'tweets' or 'mentions', dateString should be YYYY-MM-DD." + Second parameter should be only 'tweets' or 'mentions', dateString, if present, should be YYYY-MM-DD." | commonQueryParameters | - commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&user.fields=username&max_results=100'. + commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&user.fields=username,profile_image_url&max_results=100'. ^ self usersBaseEndPoint, (self userIDFrom: username), '/', tweetsOrMentions, commonQueryParameters \ No newline at end of file diff --git a/Datanalitica.package/TwitterAPI.class/instance/usersMentioning..st b/Datanalitica.package/TwitterAPI.class/instance/usersMentioning..st new file mode 100644 index 0000000..1cea532 --- /dev/null +++ b/Datanalitica.package/TwitterAPI.class/instance/usersMentioning..st @@ -0,0 +1,3 @@ +accessing +usersMentioning: userName + ^ (self userMentionsFor: userName) messagesAuthors \ No newline at end of file diff --git a/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st b/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st index bb5eb96..8c55491 100644 --- a/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st +++ b/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st @@ -2,4 +2,5 @@ accessing fromDictionary: userDict id := userDict at: 'id'. name := userDict at: 'name'. - userName := userDict at: 'username'. \ No newline at end of file + userName := userDict at: 'username'. + profileImageUrl := userDict at: 'profile_image_url'. \ No newline at end of file diff --git a/Datanalitica.package/TwitterUser.class/instance/profileImage.st b/Datanalitica.package/TwitterUser.class/instance/profileImage.st new file mode 100644 index 0000000..a424936 --- /dev/null +++ b/Datanalitica.package/TwitterUser.class/instance/profileImage.st @@ -0,0 +1,9 @@ +accessing +profileImage + | response | + response := ZnClient new url: (self profileImageUrl); get; response. + response contentType = ZnMimeType imageJpeg + ifTrue: [ ^ (JPEGReadWriter gtFromBuffer: response contents) asElement ]. + response contentType = ZnMimeType imagePng + ifTrue: [ ^ (PNGReadWriter gtFromBuffer: response contents) asElement ]. + ^ BlElement new background: Color gray \ No newline at end of file diff --git a/Datanalitica.package/TwitterUser.class/instance/profileImageUrl.st b/Datanalitica.package/TwitterUser.class/instance/profileImageUrl.st new file mode 100644 index 0000000..66db418 --- /dev/null +++ b/Datanalitica.package/TwitterUser.class/instance/profileImageUrl.st @@ -0,0 +1,3 @@ +accessing +profileImageUrl + ^ profileImageUrl \ No newline at end of file diff --git a/Datanalitica.package/TwitterUser.class/properties.json b/Datanalitica.package/TwitterUser.class/properties.json index d247091..416c7f7 100644 --- a/Datanalitica.package/TwitterUser.class/properties.json +++ b/Datanalitica.package/TwitterUser.class/properties.json @@ -8,7 +8,8 @@ "instvars" : [ "id", "name", - "userName" + "userName", + "profileImageUrl" ], "name" : "TwitterUser", "type" : "normal"