Merge dcb2a4590d

Socialmetrica.package/NitterUser.class/instance/downloadProfileImage.st

@@ -1,4 +1,4 @@
 accessing
 downloadProfileImage
 
-	self exportProfileImageOn: self folder / self userName, '.jpg'
+	^ self exportProfileImageOn: self folder / self userName, 'jpg'

Socialmetrica.package/NitterUser.class/instance/exportProfileImageOn..st

@@ -7,6 +7,5 @@ exportProfileImageOn: fileReference
 	file exists ifFalse: [ file ensureCreateFile ].
 	file binaryWriteStreamDo: [ :stream | 
 		stream nextPutAll: profileImageUrl retrieveContents ].
-	profileImageFile := file.
 	super class inform: 'Exported as: ', String cr, file fullName.
 	^ file 

Socialmetrica.package/NitterUser.class/instance/exportWithTemplate.On..st

@@ -1,9 +1,6 @@
 accessing
 exportWithTemplate: mustacheFile On: folder
 
-	| mustacheDoc |
-	self exportProfileImageOn:folder / userName, '-profileImage.jpg'.
-	mustacheDoc := mustacheFile asMustacheTemplate value: self asDictionary.
 	MarkupFile 
 		exportAsFileOn: (folder /  self userName , 'tex') 
-		containing: mustacheDoc
+		containing:(mustacheFile asMustacheTemplate value: self asDictionary)

Socialmetrica.package/NitterUser.class/instance/externalWordCloud.st

@@ -0,0 +1,21 @@
+accessing
+externalWordCloud
+
+	| text outputFile |
+	outputFile := (self folder / 'nube.png')fullName.
+	text := (self folder / 'texto.txt')fullName.
+	OSSUnixSubprocess new 
+		command: 'wordcloud_cli';
+		arguments: { '--text' . text . 
+					'--imagefile' . outputFile .
+					'--color' . '#5B83DE' .
+					'--width' . '1153' .
+					'--height' . '357' .
+					'--background' . 'white' .
+					'--mode' . 'RGBA' .
+					'--stopwords' . 'stopwords-es.txt' .
+					'--mask' . '../commons/nube-mascara.jpg'};
+		workingDirectory: self folder fullName;
+		redirectStdout;
+		redirectStderr;
+		runAndWaitOnExitDo: [ :process :outString | ^ outputFile asFileReference ]

Socialmetrica.package/NitterUser.class/instance/profileBio.st

@@ -1,4 +1,4 @@
 accessing
 profileBio
 
-	^ profileBio := (self documentTree xpath: '/html/body/div/div/div[2]/div[1]/div[2]/div[1]') stringValue
+	^ profileBio ifNil: [ profileBio := (self documentTree xpath: '/html/body/div/div/div[2]/div[1]/div[2]/div[1]') stringValue]

Socialmetrica.package/NitterUser.class/instance/profileImageFile.st

@@ -0,0 +1,7 @@
+accessing
+profileImageFile
+	
+	| file |
+	file := (self folder / self userName, 'jpg'). 
+	file exists ifTrue: [ ^ file ].
+	^ self downloadProfileImage

Socialmetrica.package/TwitterUser.class/instance/profileImageFile.st

@@ -1,3 +0,0 @@
-accessing
-profileImageFile
-	^ profileImageFile

Socialmetrica.package/TwitterUser.class/properties.json

@@ -16,7 +16,6 @@
 		"createdAt",
 		"groups",
 		"url",
-		"profileImageFile",
 		"profileBio"
 	],
 	"name" : "TwitterUser",