From d61490e96c19925f0f203d80cc360defb7d03b3c Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Thu, 14 Apr 2022 20:27:26 -0500
Subject: [PATCH] Making word cloud reproducible in local copy.

---
 .../NitterUser.class/instance/externalWordCloud.st          | 5 +++--
 Socialmetrica.package/NitterUser.class/instance/tweets.st   | 2 +-
 .../NitterUser.class/instance/writeWordsFile.st             | 6 ++++--
 3 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st b/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st
index 255a292..555be47 100644
--- a/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st
+++ b/Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st
@@ -2,6 +2,7 @@ accessing
 externalWordCloud
 
 	| text outputFile |
+	self writeWordsFile.
 	outputFile := (self folder / 'nube.png') fullName.
 	text := (self folder / 'words', 'txt') fullName.
 	OSSUnixSubprocess new 
@@ -13,8 +14,8 @@ externalWordCloud
 					'--height' . '357' .
 					'--background' . 'white' .
 					'--mode' . 'RGBA' .
-					'--stopwords' . '../commons/stopwords-es.txt' .
-					'--mask' . '../commons/nube-mascara.jpg'};
+					'--stopwords' . '../../../commons/stopwords-es.txt' .
+					'--mask' . '../../../commons/nube-mascara.jpg'};
 		workingDirectory: self folder fullName;
 		redirectStdout;
 		redirectStderr;
diff --git a/Socialmetrica.package/NitterUser.class/instance/tweets.st b/Socialmetrica.package/NitterUser.class/instance/tweets.st
index 6e8ee04..51c6d90 100644
--- a/Socialmetrica.package/NitterUser.class/instance/tweets.st
+++ b/Socialmetrica.package/NitterUser.class/instance/tweets.st
@@ -2,5 +2,5 @@ accessing
 tweets
 	self messages ifNil: [ ^ nil ].
 	^ TweetsCollection new
-		messages: (self messages messages select: [ :each | each authorId = self id ]);
+		messages: (self messages  messages select: [ :each | each authorId = self id ]);
 		yourself
\ No newline at end of file
diff --git a/Socialmetrica.package/NitterUser.class/instance/writeWordsFile.st b/Socialmetrica.package/NitterUser.class/instance/writeWordsFile.st
index 2aac3b0..6b50811 100644
--- a/Socialmetrica.package/NitterUser.class/instance/writeWordsFile.st
+++ b/Socialmetrica.package/NitterUser.class/instance/writeWordsFile.st
@@ -1,6 +1,6 @@
 accessing
 writeWordsFile
-
+	"TO DO: Debug Tweet words to work better with Urls"
 	| rawTweets rawWords collectionsWords count |
 	self messages ifNil: [ ^ self ].
 	rawTweets := self tweets messages.
@@ -9,7 +9,9 @@ writeWordsFile
 	collectionsWords := ((rawTweets select: 
 		[ :tweet | tweet authorId = self id ]) 
 			collect: [ :tweet | (tweet words 
-				reject: [ :w | w includesSubstring: self class nitterProvider ]) ]).
+				reject: [ :w | 
+					w includesSubstring: 
+						((self class nitterProvider asUrl host copyWithoutAll: '.'))]) ]).
 	collectionsWords do: [  :word | rawWords addAll: word ].
 	rawWords := ' ' join:rawWords.