From 2de7cf1d114ef0e518447a869e888a9480cd7c88 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 15 Apr 2022 14:35:11 -0500
Subject: [PATCH] Now external word cloud installs its common files and loads
 required data.

---
 .../NitterUser.class/instance/areCommonFilesInstalled.st    | 4 ++++
 .../NitterUser.class/instance/externalWordCloud.st          | 2 ++
 Socialmetrica.package/NitterUser.class/instance/tweets.st   | 2 +-
 .../TwitterUser.class/class/commonFiles.st                  | 6 ++++++
 4 files changed, 13 insertions(+), 1 deletion(-)
 create mode 100644 Socialmetrica.package/NitterUser.class/instance/areCommonFilesInstalled.st
 create mode 100644 Socialmetrica.package/TwitterUser.class/class/commonFiles.st

diff --git a/Socialmetrica.package/NitterUser.class/instance/areCommonFilesInstalled.st b/Socialmetrica.package/NitterUser.class/instance/areCommonFilesInstalled.st
new file mode 100644
index 0000000..d006dd5
--- /dev/null
+++ b/Socialmetrica.package/NitterUser.class/instance/areCommonFilesInstalled.st
@@ -0,0 +1,4 @@
+accessing
+areCommonFilesInstalled
+	"Returns true if common files are in the proper location, and false elsewhere."
+	^ ((TweetsCollection dataStore / 'commons') children collect: [ :file | file basename ] ) includesAll: self class commonFiles keys
\ No newline at end of file
diff --git a/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st b/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st
index 555be47..34d510c 100644
--- a/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st
+++ b/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st
@@ -2,6 +2,8 @@ accessing
 externalWordCloud
 
 	| text outputFile |
+	self areCommonFilesInstalled 
+		ifFalse: [ self installExternalWordCloudCommons ].
 	self writeWordsFile.
 	outputFile := (self folder / 'nube.png') fullName.
 	text := (self folder / 'words', 'txt') fullName.
diff --git a/Socialmetrica.package/NitterUser.class/instance/tweets.st b/Socialmetrica.package/NitterUser.class/instance/tweets.st
index 51c6d90..e99116f 100644
--- a/Socialmetrica.package/NitterUser.class/instance/tweets.st
+++ b/Socialmetrica.package/NitterUser.class/instance/tweets.st
@@ -1,6 +1,6 @@
 accessing
 tweets
-	self messages ifNil: [ ^ nil ].
+	self messages messages ifEmpty: [ self getMessages ].
 	^ TweetsCollection new
 		messages: (self messages  messages select: [ :each | each authorId = self id ]);
 		yourself
\ No newline at end of file
diff --git a/Socialmetrica.package/TwitterUser.class/class/commonFiles.st b/Socialmetrica.package/TwitterUser.class/class/commonFiles.st
new file mode 100644
index 0000000..9ce7336
--- /dev/null
+++ b/Socialmetrica.package/TwitterUser.class/class/commonFiles.st
@@ -0,0 +1,6 @@
+accessing
+commonFiles
+	"Files used by all profiles in data visualization and other tasks."
+	^ {'stopwords-es.txt' -> 'https://mutabit.com/repos.fossil/mutabit/raw?name=wiki/commons/stopwords-es.txt&ci=tip'.
+		'nube-mascara.jpg' -> 'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/nube-mascara.jpg'
+	} asDictionary
\ No newline at end of file