Massive rebranding to prepare launching...
This commit is contained in:
parent
a07f4fdb17
commit
f7d6d3ea34
|
|
@ -0,0 +1,5 @@
|
|||
{
|
||||
"separateMethodMetaAndSource" : false,
|
||||
"noMethodMetaData" : true,
|
||||
"useCypressPropertiesFile" : true
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
addKeyword: keyword to: subtopic
|
||||
(self subtopics at: subtopic) add: keyword.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
addSubtopic: subtopicString
|
||||
self subtopics at: subtopicString put: Set new.
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
language: isoLanguageCode
|
||||
"isoLanguageCode follows the ISO 639-1 two letters convention"
|
||||
language := isoLanguageCode
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
language
|
||||
^ language
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
name: aString
|
||||
name := aString
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
name
|
||||
^ name
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: '( ',self name, ' | ', self language, ' )'
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
subtopics: subtopicsNamesArray
|
||||
subtopicsNamesArray do: [:each | self addSubtopic: each ]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
subtopics
|
||||
^ subtopics ifNil: [ subtopics := Dictionary new ]
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "Object",
|
||||
"category" : "Socialmetrica",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"language",
|
||||
"name",
|
||||
"subtopics"
|
||||
],
|
||||
"name" : "DiscourseTopic",
|
||||
"type" : "normal"
|
||||
}
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
accessing
|
||||
nitterProvider
|
||||
"For a full list of Nitter providers, see:
|
||||
|
||||
https://github.com/zedeus/nitter/wiki/Instances"
|
||||
^ 'https://nitter.42l.fr/'
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
accessing
|
||||
asDictionary
|
||||
|
||||
^ { 'profile-card-avatar' -> self profileImageFile fullName.
|
||||
'profile-card-fullname' -> self name .
|
||||
'profile-card-username' -> self userName .
|
||||
'profile-bio' -> self profileBio } asDictionary
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
config: aDictionary
|
||||
|
||||
config := aDictionary
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
config
|
||||
|
||||
^ config
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
accessing
|
||||
createdAt
|
||||
^ createdAt ifNil: [| joinDateString |
|
||||
joinDateString := ((self documentTree xpath: '//div[@class="profile-joindate"]/span/@title') stringValue).
|
||||
createdAt := (ZTimestampFormat fromString:'4:05 PM - 03 Feb 2001') parse: joinDateString.
|
||||
]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
description
|
||||
^ description ifNil: [description := (self documentTree xpath: '//div[@class="profile-bio"]') stringValue]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
operation
|
||||
documentTree
|
||||
^ XMLHTMLParser parse: self userNameLink asUrl retrieveContents
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
downloadProfileImage
|
||||
|
||||
self exportProfileImageOn: self folder / self userName, '.jpg'
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
accessing
|
||||
exportProfileImageOn: fileReference
|
||||
|
||||
| file |
|
||||
file := fileReference asFileReference.
|
||||
file ensureDelete.
|
||||
file exists ifFalse: [ file ensureCreateFile ].
|
||||
file binaryWriteStreamDo: [ :stream |
|
||||
stream nextPutAll: profileImageUrl retrieveContents ].
|
||||
profileImageFile := file.
|
||||
super class inform: 'Exported as: ', String cr, file fullName.
|
||||
^ file
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
accessing
|
||||
exportWithTemplate: mustacheFile On: folder
|
||||
|
||||
| mustacheDoc |
|
||||
self exportProfileImageOn:folder / userName, '-profileImage.jpg'.
|
||||
mustacheDoc := mustacheFile asMustacheTemplate value: self asDictionary.
|
||||
MarkupFile
|
||||
exportAsFileOn: (folder / self userName , 'tex')
|
||||
containing: mustacheDoc
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
folder
|
||||
|
||||
^ self config at: 'folder'.
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
accessing
|
||||
getMessages
|
||||
| lastTweetsRaw lastTweets |
|
||||
lastTweetsRaw := self rssFeed xmlDocument xpath: '//item'.
|
||||
lastTweets := TweetsCollection new.
|
||||
lastTweetsRaw do: [ :rssTweet |
|
||||
lastTweets add: ((Tweet new fromNitterRssItem: rssTweet ))
|
||||
].
|
||||
^ lastTweets
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
id
|
||||
^ id ifNil: [id := (self profileImageUrl segments select: [ :each | each asInteger class = LargePositiveInteger]) first.]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
name
|
||||
^ name ifNil: [ name := ((self rssFeed requiredItems title) splitOn: '/') first ]
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
profileBio
|
||||
|
||||
^ profileBio := (self documentTree xpath: '/html/body/div/div/div[2]/div[1]/div[2]/div[1]') stringValue
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
profileImageUrl
|
||||
^ profileImageUrl ifNil: [
|
||||
profileImageUrl := ((self rssFeed xmlDocument xpath: '//image/url') stringValue copyReplaceAll: '%2F' with: '/') asUrl ]
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
accessing
|
||||
retrieveContents
|
||||
self userName ifNil: [^ self].
|
||||
^ self
|
||||
id;
|
||||
name;
|
||||
description;
|
||||
createdAt;
|
||||
url;
|
||||
profileImageUrl;
|
||||
profileBio;
|
||||
yourself.
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
rssFeed
|
||||
|
||||
^ RSSTools createRSSFeedFor: self userNameLink , '/rss'
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
accessing
|
||||
url
|
||||
^ url ifNil: [ | temp |
|
||||
temp := ((self documentTree xpath: '//div[@class="profile-website"]') // 'a' @@ 'href') first.
|
||||
temp ifNil: [ ^ url := nil ].
|
||||
url := temp asUrl.
|
||||
]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
userName: userNameString
|
||||
userName := userNameString.
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
userNameLink
|
||||
|
||||
^ self class nitterProvider, self userName
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "TwitterUser",
|
||||
"category" : "Socialmetrica",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"config"
|
||||
],
|
||||
"name" : "NitterUser",
|
||||
"type" : "normal"
|
||||
}
|
||||
|
|
@ -0,0 +1,62 @@
|
|||
accessing
|
||||
asCardElement
|
||||
| aModeLook anEditor textInfoPane buttonsPane |
|
||||
|
||||
aModeLook := BrEditorModeAptitude new
|
||||
editableFocused: [ :aWidget | aWidget border: (BlBorder paint: BrGlamorousColors focusedEditorBorderColor width: 1) ];
|
||||
editableUnfocused: [ :aWidget | aWidget border: (BlBorder paint: BrGlamorousColors editorBorderColor width: 1) ];
|
||||
readOnly: [ :aWidget | aWidget border: BlBorder empty ].
|
||||
|
||||
anEditor := BrEditor new
|
||||
aptitude: BrGlamorousRegularEditorAptitude new + aModeLook;
|
||||
text: self text;
|
||||
vFitContent.
|
||||
|
||||
textInfoPane := BrVerticalPane new
|
||||
hMatchParent;
|
||||
vFitContent;
|
||||
margin: (BlInsets left: 20);
|
||||
addChild: (BrLabel new
|
||||
aptitude: BrGlamorousLabelAptitude;
|
||||
text: '@' , self user userName , ' | ' , self created asString;
|
||||
beSmallSize);
|
||||
addChild: anEditor.
|
||||
buttonsPane := BrHorizontalPane new
|
||||
fitContent;
|
||||
cellSpacing: 5;
|
||||
addChildren: {
|
||||
BrButton new
|
||||
aptitude: BrGlamorousButtonWithLabelAptitude new;
|
||||
label: 'Toggle subtopics';
|
||||
action: [ anEditor beEditable ].
|
||||
BrButton new
|
||||
aptitude: BrGlamorousButtonWithLabelAptitude new;
|
||||
label: 'Add subtopic keyword';
|
||||
action: [ anEditor beReadOnlyWithSelection ].
|
||||
BrButton new
|
||||
aptitude: BrGlamorousButtonWithLabelAptitude new;
|
||||
label: 'Details';
|
||||
action: [ :e | e phlow spawnObject: self ].
|
||||
BrButton new
|
||||
aptitude: BrGlamorousButtonWithLabelAptitude new;
|
||||
label: 'Web view';
|
||||
action: [ self webView ].
|
||||
}.
|
||||
|
||||
^ BrHorizontalPane new
|
||||
padding: (BlInsets all: 15);
|
||||
margin: (BlInsets all: 10);
|
||||
cellSpacing: 5;
|
||||
hMatchParent;
|
||||
vFitContent;
|
||||
addChildren: {
|
||||
(self user profileImage asElement asScalableElement size: 64 @ 64).
|
||||
BrVerticalPane new
|
||||
cellSpacing: 5;
|
||||
hMatchParent;
|
||||
vFitContent;
|
||||
addChildren: {
|
||||
buttonsPane.
|
||||
textInfoPane.
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
created
|
||||
^ created
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
accessing
|
||||
fromDictionary: aDictionary
|
||||
created := (aDictionary at: 'created_at') asDateAndTime.
|
||||
text := aDictionary at: 'text'.
|
||||
id := aDictionary at: 'id'.
|
||||
authorId := aDictionary at: 'author_id'.
|
||||
user := aDictionary at: 'username' ifAbsent: [''] .
|
||||
conversationId := aDictionary at: 'conversation_id' ifAbsent: [ '' ].
|
||||
^ self
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
accessing
|
||||
fromNitter: aDictionary
|
||||
created := (aDictionary at: 'pubDate') "asDateAndTime".
|
||||
text := aDictionary at: 'text'.
|
||||
"id := aDictionary at: 'id'.
|
||||
authorId := aDictionary at: 'author_id'."
|
||||
user := aDictionary at: 'creator'.
|
||||
"conversationId := aDictionary at: 'conversation_id' ifAbsent: [ '' ]."
|
||||
^ self
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
accessing
|
||||
fromNitterRssItem: xmlItem
|
||||
| author |
|
||||
author := (xmlItem xpath: 'dc:creator') stringValue allButFirst.
|
||||
user := NitterUser new
|
||||
userName: author .
|
||||
created := (xmlItem xpath: 'pubDate') stringValue.
|
||||
text := (XMLHTMLParser on: (xmlItem xpath: 'description') stringValue) parseDocument stringValue.
|
||||
id := ((xmlItem xpath: 'guid') stringValue splitOn: '/') last copyReplaceAll: '#m' with: ''
|
||||
|
|
@ -0,0 +1,16 @@
|
|||
accessing
|
||||
gtViewTweetDetailsOn: aView
|
||||
<gtView>
|
||||
^ aView explicit
|
||||
title: 'Tweet Details' translated;
|
||||
priority: 5;
|
||||
stencil: [
|
||||
BlElement new
|
||||
layout: BlFlowLayout new;
|
||||
constraintsDo: [ :c |
|
||||
c vertical fitContent.
|
||||
c horizontal matchParent ];
|
||||
padding: (BlInsets all: 10);
|
||||
addChild: (self asCardElement margin: (BlInsets all: 20))
|
||||
]
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
id
|
||||
^ id
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
queries
|
||||
mentions: aWord
|
||||
^ self text includesSubstring: aWord
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: '( ',self text ,' )'
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
text
|
||||
^ text
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
user: aTwitterUser
|
||||
user := aTwitterUser
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
user
|
||||
^ user
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
webView
|
||||
WebBrowser openOn: 'https://twitter.com/', self user userName, '/status/', self id
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
utilities
|
||||
words
|
||||
^ self text allRegexMatches: '\w*'
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
wordsInLowercase
|
||||
^ self words collect: [:word | word asLowercase ]
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "Object",
|
||||
"category" : "Socialmetrica",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"created",
|
||||
"text",
|
||||
"id",
|
||||
"authorId",
|
||||
"conversationId",
|
||||
"user"
|
||||
],
|
||||
"name" : "Tweet",
|
||||
"type" : "normal"
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
add: aTweet
|
||||
self tweets add: aTweet
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
ui
|
||||
gtTweetsFor: aView
|
||||
<gtView>
|
||||
^ aView explicit
|
||||
title: 'Tweets';
|
||||
stencil: [
|
||||
| container imageContainer |
|
||||
container := BlElement new
|
||||
layout: BlFlowLayout new;
|
||||
constraintsDo: [ :c |
|
||||
c vertical fitContent.
|
||||
c horizontal matchParent ];
|
||||
padding: (BlInsets all: 10).
|
||||
self tweets do: [ :each |
|
||||
imageContainer := BlLazyElement new
|
||||
withGlamorousPreview;
|
||||
aptitude: BrShadowAptitude new;
|
||||
background: Color white;
|
||||
margin: (BlInsets all: 10);
|
||||
constraintsDo: [ :c |
|
||||
c vertical exact: 145.
|
||||
c horizontal matchParent ];
|
||||
elementBuilder: [ each asCardElement margin: (BlInsets all: 20) ].
|
||||
container addChild: imageContainer].
|
||||
container asScrollableElement ]
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
accessing
|
||||
printOn: aStream
|
||||
super printOn: aStream.
|
||||
aStream
|
||||
nextPutAll: '( ',self size asString, ' Tweet(s) )'
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
size
|
||||
^ self tweets size
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
tweets: aTweetsCollection
|
||||
^ tweets := aTweetsCollection
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
tweets
|
||||
^ tweets ifNil: [ tweets := OrderedCollection new]
|
||||
|
|
@ -0,0 +1,13 @@
|
|||
{
|
||||
"commentStamp" : "",
|
||||
"super" : "Object",
|
||||
"category" : "Socialmetrica",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [ ],
|
||||
"instvars" : [
|
||||
"tweets"
|
||||
],
|
||||
"name" : "TweetsCollection",
|
||||
"type" : "normal"
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
I model some parts of the Twitter API version 2 as described in:
|
||||
|
||||
<https://developer.twitter.com/en/docs/twitter-api/early-access>
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
apiKeysFile: aFileReference
|
||||
apiKeysFile := aFileReference
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
accessing
|
||||
apiKeysFile
|
||||
"Return the defined apiKeysFile or assign a default location following the Linux Standard
|
||||
File Hierarchy, which is relatively portable to other Operative Systems."
|
||||
^ apiKeysFile ifNil: [ apiKeysFile := FileLocator home / '.config/Datanalitica/twitter-api-keys.json' ]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
keys
|
||||
^ keys ifNil: [ keys := Dictionary new]
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
loadKeys
|
||||
keys := STONJSON fromString: self apiKeysFile contents.
|
||||
^ keys
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
bearerToken
|
||||
^ self class keys at: 'Bearer Token'
|
||||
|
|
@ -0,0 +1,7 @@
|
|||
accessing
|
||||
defaultQueryParameters
|
||||
^ Dictionary new
|
||||
at: 'tweetsOrig' put: '?tweet.fields=created_at&expansions=author_id&user.fields=created_at&max_results=100';
|
||||
at: 'tweets' put: '?', 'tweet.fields=created_at', '&', 'expansions=author_id', '&', 'max_results=100';
|
||||
at: 'mentionsOrig' put: '?expansions=author_id&tweet.fields=conversation_id,created_at,lang&user.fields=created_at,entities&max_results=100';
|
||||
yourself
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
keys
|
||||
^ keys ifNil: [ keys := self class loadKeys]
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
loadKeys
|
||||
keys := self class loadKeys.
|
||||
^ self
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
options: aDictionary
|
||||
options := aDictionary
|
||||
|
|
@ -0,0 +1,9 @@
|
|||
accessing
|
||||
options
|
||||
"Return the configuration options or define a default if they are not given"
|
||||
^ options ifNil: [
|
||||
options := Dictionary new
|
||||
at: 'caching' put: true;
|
||||
at: 'pagesPerRequest' put: '1';
|
||||
yourself
|
||||
]
|
||||
|
|
@ -0,0 +1,6 @@
|
|||
accessing
|
||||
rawResponseForURL: anUrl
|
||||
^ ZnClient new
|
||||
headerAt: 'Authorization' put: 'Bearer ', self bearerToken;
|
||||
url: anUrl;
|
||||
get.
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
storage: aFolder
|
||||
|
||||
storage := aFolder
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
storage
|
||||
|
||||
^ storage
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
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, if present, should be YYYY-MM-DD."
|
||||
| commonQueryParameters userFields |
|
||||
userFields := 'user.fields=username,name,description,profile_image_url,created_at'.
|
||||
commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&', userFields, '&max_results=100'.
|
||||
^ self usersBaseEndPoint, (self userIDFrom: username), '/', tweetsOrMentions, commonQueryParameters
|
||||
|
|
@ -0,0 +1,8 @@
|
|||
as yet unclassified
|
||||
userEndPointFor: username selecting: tweetsOrMentions since: dateString
|
||||
"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."
|
||||
| commonQueryParameters |
|
||||
commonQueryParameters := '?expansions=author_id&tweet.fields=conversation_id,created_at&user.fields=username&max_results=100',
|
||||
'&start_time=', dateString,'T00:00:00Z&'.
|
||||
^ self usersBaseEndPoint, (self userIDFrom: username), '/', tweetsOrMentions, commonQueryParameters
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
queries
|
||||
userIDFrom: username
|
||||
| rawResponse |
|
||||
rawResponse := self rawResponseForURL: self usersBaseEndPoint, 'by/username/', username.
|
||||
^ (STONJSON fromString: rawResponse) at: 'data' at: 'id'
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
userMentionsFor: username
|
||||
"The following query gets the last 100 mentions that is the maximun allowed for a particular user without pagination:"
|
||||
^ self userQueryFor: username selecting: 'mentions'
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
accessing
|
||||
userMentionsFor: username since: startDateString
|
||||
| nextToken queryUrl sinceDate untilDate messages response |
|
||||
|
||||
sinceDate := 'start_time=',startDateString, 'T00:00:00Z'.
|
||||
messages := OrderedCollection new.
|
||||
nextToken := ''.
|
||||
[ nextToken includesSubstring: 'stop' ] whileFalse: [
|
||||
queryUrl := self usersBaseEndPoint,
|
||||
(self userIDFrom: username), '/mentions', (self defaultQueryParameters at: 'mentionsOrig') ,
|
||||
'&', sinceDate,
|
||||
'&', nextToken.
|
||||
response := STONJSON fromString: (self rawResponseForURL: queryUrl).
|
||||
(response at: 'data') do: [:tweetData |
|
||||
messages add: (Tweet new fromDictionary: tweetData)
|
||||
].
|
||||
nextToken := 'pagination_token=',((response at: 'meta') at: 'next_token' ifAbsent: [ 'stop' ])].
|
||||
^ messages.
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
accessing
|
||||
userMentionsFor: username since: startDateString until: endDateString
|
||||
| nextToken queryUrl sinceDate untilDate messages response extraQueryParamenters |
|
||||
|
||||
sinceDate := 'start_time=',startDateString, 'T17:00:00Z'.
|
||||
untilDate := 'end_time=',endDateString, 'T01:00:00Z'.
|
||||
extraQueryParamenters := '?expansions=author_id&tweet.fields=conversation_id&user.fields=created_at,entities&max_results=100'.
|
||||
messages := OrderedCollection new.
|
||||
nextToken := ''.
|
||||
[ nextToken includesSubstring: 'stop' ] whileFalse: [
|
||||
queryUrl := self usersBaseEndPoint,
|
||||
(self userIDFrom: username), '/mentions', extraQueryParamenters,
|
||||
'&', sinceDate,
|
||||
"'&', untilDate,"
|
||||
'&', nextToken.
|
||||
response := STONJSON fromString: (self rawResponseForURL: queryUrl).
|
||||
(response at: 'data') do: [:tweetData |
|
||||
messages add: (Tweet new fromDictionary: tweetData)
|
||||
].
|
||||
nextToken := 'pagination_token=',((response at: 'meta') at: 'next_token' ifAbsent: [ 'stop' ])].
|
||||
^ messages.
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
accessing
|
||||
userQueryFor: username selecting: tweetsOrMentions
|
||||
| rawResponse queryURL |
|
||||
"The following query gets the last 100 tweets or mentions that is the maximun allowed for a particular user without pagination:"
|
||||
queryURL := self userEndPointFor: username selecting: tweetsOrMentions.
|
||||
rawResponse := self rawResponseForURL:queryURL.
|
||||
^ TwitterAPIResponse new
|
||||
fromDictionary: (STONJSON fromString: rawResponse);
|
||||
queryURL: queryURL;
|
||||
date: DateAndTime now.
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
userTweetsFrom: username
|
||||
"The following query gets the last 100 tweets, that is the maximun allowed for a particular user without pagination:"
|
||||
^ self userQueryFor: username selecting: 'tweets'
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
accessing
|
||||
userTweetsFrom: username since: startDateString until: endDateString
|
||||
| nextToken queryUrl sinceDate untilDate messages response |
|
||||
|
||||
sinceDate := 'start_time=',startDateString, 'T00:00:00Z'.
|
||||
untilDate := 'end_time=',endDateString, 'T23:59:59Z'.
|
||||
messages := OrderedCollection new.
|
||||
nextToken := ''.
|
||||
[ nextToken includesSubstring: 'stop' ] whileFalse: [
|
||||
queryUrl := self usersBaseEndPoint,
|
||||
(self userIDFrom: username), '/tweets', (self defaultQueryParameters at: 'tweets'),
|
||||
'&', sinceDate,
|
||||
'&', untilDate,
|
||||
'&', nextToken.
|
||||
response := STONJSON fromString: (self rawResponseForURL: queryUrl).
|
||||
(response at: 'data') do: [:tweetData |
|
||||
messages add: (Tweet new fromDictionary: tweetData)
|
||||
].
|
||||
nextToken := 'pagination_token=',((response at: 'meta') at: 'next_token' ifAbsent: [ 'stop' ])].
|
||||
^ messages.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
utilities api
|
||||
usersBaseEndPoint
|
||||
^ 'https://api.twitter.com/2/users/'
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
accessing
|
||||
usersGroupMentioning: userName
|
||||
| response |
|
||||
response := self userQueryFor: userName selecting: 'mentions'.
|
||||
^ TwitterUsersGroup new
|
||||
users: response messagesAuthors;
|
||||
title: 'Users mentioning @', userName;
|
||||
origin: response queryURL;
|
||||
date: DateAndTime now;
|
||||
storage: self storage.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
usersMentioning: userName
|
||||
^ (self userMentionsFor: userName) messagesAuthors
|
||||
|
|
@ -0,0 +1,18 @@
|
|||
{
|
||||
"commentStamp" : "<historical>",
|
||||
"super" : "Object",
|
||||
"category" : "Socialmetrica",
|
||||
"classinstvars" : [ ],
|
||||
"pools" : [ ],
|
||||
"classvars" : [
|
||||
"apiKeysFile",
|
||||
"keys"
|
||||
],
|
||||
"instvars" : [
|
||||
"storage",
|
||||
"options",
|
||||
"keys"
|
||||
],
|
||||
"name" : "TwitterAPI",
|
||||
"type" : "normal"
|
||||
}
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
data: anObject
|
||||
data := anObject
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
data
|
||||
^ data
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
accessing
|
||||
date: aDateAndTime
|
||||
"As answers to the same query can change over time, for example regarding deteled users, its important to know where a query was ran."
|
||||
date := aDateAndTime
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
date
|
||||
^ date
|
||||
|
|
@ -0,0 +1,5 @@
|
|||
accessing
|
||||
fromDictionary: aDictionary
|
||||
data := aDictionary at: 'data'.
|
||||
includes := aDictionary at: 'includes'.
|
||||
meta := aDictionary at: 'meta'.
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
fromQueryURL: aQueryURLString
|
||||
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
includes: anObject
|
||||
includes := anObject
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
includes
|
||||
^ includes
|
||||
|
|
@ -0,0 +1,14 @@
|
|||
accessing
|
||||
messagesAuthors
|
||||
| groupedTweets |
|
||||
self includes at: 'users' ifAbsent: [ ^ nil ].
|
||||
groupedTweets := self data groupedBy: [:each | each at: 'author_id' ].
|
||||
^ (self includes at: 'users') collect: [:userDict | | user |
|
||||
user := TwitterUser new fromDictionary: userDict.
|
||||
(groupedTweets at: (user id)) do: [:tweetDict | | currentTweet |
|
||||
currentTweet := Tweet new fromDictionary: tweetDict.
|
||||
currentTweet user: user.
|
||||
user tweets add: currentTweet.
|
||||
].
|
||||
user.
|
||||
]
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
meta: anObject
|
||||
meta := anObject
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
meta
|
||||
^ meta
|
||||
|
|
@ -0,0 +1,3 @@
|
|||
accessing
|
||||
nextToken
|
||||
^ self meta at: 'next_token'
|
||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue