From a7d7b6640317712b46b545698d658df99dee12e4 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 12 Aug 2021 10:31:55 -0500
Subject: [PATCH] Starting TwitterUser to explore mentions behavior and
 possible bots.

---
 .../instance/messagesAuthors.st                   |  6 ++++++
 Datanalitica.package/TwitterUser.class/README.md  |  3 +++
 .../TwitterUser.class/instance/fromDictionary..st |  5 +++++
 .../TwitterUser.class/instance/printOn..st        |  5 +++++
 .../TwitterUser.class/instance/userName.st        |  3 +++
 .../TwitterUser.class/properties.json             | 15 +++++++++++++++
 6 files changed, 37 insertions(+)
 create mode 100644 Datanalitica.package/TwitterAPIResponse.class/instance/messagesAuthors.st
 create mode 100644 Datanalitica.package/TwitterUser.class/README.md
 create mode 100644 Datanalitica.package/TwitterUser.class/instance/fromDictionary..st
 create mode 100644 Datanalitica.package/TwitterUser.class/instance/printOn..st
 create mode 100644 Datanalitica.package/TwitterUser.class/instance/userName.st
 create mode 100644 Datanalitica.package/TwitterUser.class/properties.json

diff --git a/Datanalitica.package/TwitterAPIResponse.class/instance/messagesAuthors.st b/Datanalitica.package/TwitterAPIResponse.class/instance/messagesAuthors.st
new file mode 100644
index 0000000..770e69b
--- /dev/null
+++ b/Datanalitica.package/TwitterAPIResponse.class/instance/messagesAuthors.st
@@ -0,0 +1,6 @@
+accessing
+messagesAuthors
+	self includes at: 'users' ifAbsent: [ ^ nil ].
+	^ (self includes at: 'users') collect: [:userDict |
+		TwitterUser new fromDictionary: userDict
+	  ]
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/README.md b/Datanalitica.package/TwitterUser.class/README.md
new file mode 100644
index 0000000..48a2214
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/README.md
@@ -0,0 +1,3 @@
+I model some fields of a Twitter user model as described in:
+
+<https://developer.twitter.com/en/docs/twitter-api/data-dictionary/object-model/user>
diff --git a/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st b/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st
new file mode 100644
index 0000000..bb5eb96
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/fromDictionary..st
@@ -0,0 +1,5 @@
+accessing
+fromDictionary: userDict 
+	id := userDict at: 'id'.
+	name := userDict at: 'name'.
+	userName := userDict at: 'username'.
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/printOn..st b/Datanalitica.package/TwitterUser.class/instance/printOn..st
new file mode 100644
index 0000000..37334e1
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/printOn..st
@@ -0,0 +1,5 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: '(', self userName,')'
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/userName.st b/Datanalitica.package/TwitterUser.class/instance/userName.st
new file mode 100644
index 0000000..2debc7e
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/userName.st
@@ -0,0 +1,3 @@
+accessing
+userName
+	^ userName
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/properties.json b/Datanalitica.package/TwitterUser.class/properties.json
new file mode 100644
index 0000000..d247091
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/properties.json
@@ -0,0 +1,15 @@
+{
+	"commentStamp" : "<historical>",
+	"super" : "Object",
+	"category" : "Datanalitica",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"id",
+		"name",
+		"userName"
+	],
+	"name" : "TwitterUser",
+	"type" : "normal"
+}
\ No newline at end of file