Improving API vocabulary.

Datanalitica.package/Tweet.class/instance/fromDictionary..st

@@ -4,4 +4,6 @@ fromDictionary: aDictionary
 	text := aDictionary at: 'text'.
 	id := aDictionary at: 'id'.
 	authorId := aDictionary at: 'author_id'.
+	username := aDictionary at: 'username' ifAbsent: [''] .
+	conversationId := aDictionary at: 'conversation_id' ifAbsent: [ '' ].
 	^ self

Datanalitica.package/Tweet.class/instance/words.st

@@ -1,3 +1,3 @@
 utilities
 words
-	^ self text splitOn: Character space
+	^ self text allRegexMatches: '\w*'

Datanalitica.package/Tweet.class/properties.json

@@ -9,7 +9,9 @@
 		"created",
 		"text",
 		"id",
-		"authorId"
+		"authorId",
+		"conversationId",
+		"username"
 	],
 	"name" : "Tweet",
 	"type" : "normal"

Datanalitica.package/TwitterAPI.class/instance/bearerKey.st

@@ -1,3 +0,0 @@
-accessing
-bearerKey
-	self keys at: 'Bearer Token'

Datanalitica.package/TwitterAPI.class/instance/defaultQueryParameters.st

@@ -1,3 +1,7 @@
 accessing
 defaultQueryParameters
-	^ '?tweet.fields=created_at&expansions=author_id&user.fields=created_at&max_results=100'
+	^ 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

Datanalitica.package/TwitterAPI.class/instance/userMentionsFor.since..st

@@ -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.

Datanalitica.package/TwitterAPI.class/instance/userMentionsFor.since.until..st

@@ -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.

Datanalitica.package/TwitterAPI.class/instance/userTweetsFrom.since.until..st

@@ -2,13 +2,13 @@ accessing
 userTweetsFrom: username since: startDateString until: endDateString
 	| nextToken queryUrl sinceDate untilDate messages response |
 	
-	sinceDate := 'start_time=',startDateString, 'T17:00:00Z'.
+	sinceDate := 'start_time=',startDateString, 'T00:00:00Z'.
-	untilDate := 'end_time=',endDateString, 'T01: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, 
+			(self userIDFrom: username), '/tweets', (self defaultQueryParameters at: 'tweets'), 
 			'&', sinceDate,  
 			'&', untilDate, 
 			'&', nextToken.