From 75e05472b39742f2a4ac14cf9149ab42cbb51866 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Sun, 22 Aug 2021 18:14:33 -0500
Subject: [PATCH] Starting with subtopics.

---
 .../DiscourseTopic.class/README.md                |  0
 .../DiscourseTopic.class/instance/addSubtopic..st |  3 +++
 .../DiscourseTopic.class/instance/language..st    |  4 ++++
 .../DiscourseTopic.class/instance/subtopics..st   |  3 +++
 .../DiscourseTopic.class/instance/subtopics.st    |  3 +++
 .../DiscourseTopic.class/properties.json          | 15 +++++++++++++++
 .../Tweet.class/instance/asCardElement.st         |  2 +-
 .../TwitterUser.class/instance/printOn..st        |  2 +-
 .../TwitterUsersGroup.class/instance/printOn..st  |  5 +++++
 9 files changed, 35 insertions(+), 2 deletions(-)
 create mode 100644 Datanalitica.package/DiscourseTopic.class/README.md
 create mode 100644 Datanalitica.package/DiscourseTopic.class/instance/addSubtopic..st
 create mode 100644 Datanalitica.package/DiscourseTopic.class/instance/language..st
 create mode 100644 Datanalitica.package/DiscourseTopic.class/instance/subtopics..st
 create mode 100644 Datanalitica.package/DiscourseTopic.class/instance/subtopics.st
 create mode 100644 Datanalitica.package/DiscourseTopic.class/properties.json
 create mode 100644 Datanalitica.package/TwitterUsersGroup.class/instance/printOn..st

diff --git a/Datanalitica.package/DiscourseTopic.class/README.md b/Datanalitica.package/DiscourseTopic.class/README.md
new file mode 100644
index 0000000..e69de29
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/addSubtopic..st b/Datanalitica.package/DiscourseTopic.class/instance/addSubtopic..st
new file mode 100644
index 0000000..5d77402
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/addSubtopic..st
@@ -0,0 +1,3 @@
+accessing
+addSubtopic: subtopicString
+	self subtopics at: subtopicString put: Set new.
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/language..st b/Datanalitica.package/DiscourseTopic.class/instance/language..st
new file mode 100644
index 0000000..b19dfef
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/language..st
@@ -0,0 +1,4 @@
+accessing
+language: isoLanguageCode
+	"isoLanguageCode follows the ISO 639-1 two letters convention"
+	language := isoLanguageCode
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/subtopics..st b/Datanalitica.package/DiscourseTopic.class/instance/subtopics..st
new file mode 100644
index 0000000..ec1a799
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/subtopics..st
@@ -0,0 +1,3 @@
+accessing
+subtopics: subtopicsNamesArray
+	subtopicsNamesArray do: [:each | self addSubtopic: each ]
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/instance/subtopics.st b/Datanalitica.package/DiscourseTopic.class/instance/subtopics.st
new file mode 100644
index 0000000..a7e1243
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/instance/subtopics.st
@@ -0,0 +1,3 @@
+accessing
+subtopics
+	^ subtopics ifNil: [ subtopics := Dictionary new ]
\ No newline at end of file
diff --git a/Datanalitica.package/DiscourseTopic.class/properties.json b/Datanalitica.package/DiscourseTopic.class/properties.json
new file mode 100644
index 0000000..4bbaba6
--- /dev/null
+++ b/Datanalitica.package/DiscourseTopic.class/properties.json
@@ -0,0 +1,15 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Datanalitica-Datanalitica",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [
+		"language",
+		"name",
+		"subtopics"
+	],
+	"name" : "DiscourseTopic",
+	"type" : "normal"
+}
\ No newline at end of file
diff --git a/Datanalitica.package/Tweet.class/instance/asCardElement.st b/Datanalitica.package/Tweet.class/instance/asCardElement.st
index 47eab68..8f403f5 100644
--- a/Datanalitica.package/Tweet.class/instance/asCardElement.st
+++ b/Datanalitica.package/Tweet.class/instance/asCardElement.st
@@ -13,7 +13,7 @@ asCardElement
 				   margin: (BlInsets left: 20);
 				   addChild: (BrLabel new
 						    aptitude: BrGlamorousLabelAptitude;
-						    text: '@' , self user name , ' | ' , self created asString;
+						    text: '@' , self user userName , ' | ' , self created asString;
 						    beSmallSize);
 				   addChild: (BrLabel new
 						    aptitude: BrGlamorousLabelAptitude;
diff --git a/Datanalitica.package/TwitterUser.class/instance/printOn..st b/Datanalitica.package/TwitterUser.class/instance/printOn..st
index 37334e1..bc3acd6 100644
--- a/Datanalitica.package/TwitterUser.class/instance/printOn..st
+++ b/Datanalitica.package/TwitterUser.class/instance/printOn..st
@@ -2,4 +2,4 @@ accessing
 printOn: aStream
 	super printOn: aStream.
 	aStream
-		nextPutAll: '(', self userName,')'
\ No newline at end of file
+		nextPutAll: '(@', self userName,')'
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUsersGroup.class/instance/printOn..st b/Datanalitica.package/TwitterUsersGroup.class/instance/printOn..st
new file mode 100644
index 0000000..dedd3c4
--- /dev/null
+++ b/Datanalitica.package/TwitterUsersGroup.class/instance/printOn..st
@@ -0,0 +1,5 @@
+accessing
+printOn: aStream
+	super printOn: aStream.
+	aStream
+		nextPutAll: '( ', self users size asString, ' users )'
\ No newline at end of file