Improving NitterUser and Tweet from nitter information.

Datanalitica.package/NitterUser.class/instance/asDictionary.st

@@ -0,0 +1,7 @@
+accessing
+asDictionary
+
+	^ { 'profile-card-avatar' -> self profileImageFile fullName.
+	'profile-card-fullname' -> self name .
+	'profile-card-username' -> self userName .
+	'profile-bio' -> self profileBio } asDictionary

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

@@ -7,5 +7,6 @@ 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 

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

@@ -0,0 +1,11 @@
+accessing
+exportWithTemplate: mustacheFile On: fileReference
+
+	| directory data mustacheDoc |
+	directory := fileReference parent.
+	data := self asDictionary.
+	self exportProfileImageOn:directory / userName, '-profileImage.jpg'.
+	mustacheDoc := mustacheFile asMustacheTemplate value: data.
+	MarkupFile 
+		exportAsFileOn: (directory / (data at:'profile-card-username') asDashedLowercase , 'tex') 
+		containing: mustacheDoc

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

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

Datanalitica.package/NitterUser.class/instance/retrieveContents.st

@@ -8,4 +8,5 @@ retrieveContents
 		createdAt;
 		url;
 		profileImageUrl;
+		profileBio;
 		yourself.

Datanalitica.package/Tweet.class/instance/fromNitter..st

@@ -1,6 +1,6 @@
 accessing
 fromNitter: aDictionary
-	"created := (aDictionary at: 'pubDate') asDateAndTime."
+	created := (aDictionary at: 'pubDate') "asDateAndTime".
 	text := aDictionary at: 'text'.
 	"id := aDictionary at: 'id'.
 	authorId := aDictionary at: 'author_id'."

Datanalitica.package/TwitterUser.class/instance/profileBio.st

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

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

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

Datanalitica.package/TwitterUser.class/properties.json

@@ -15,7 +15,9 @@
 		"tweets",
 		"createdAt",
 		"groups",
-		"url"
+		"url",
+		"profileImageFile",
+		"profileBio"
 	],
 	"name" : "TwitterUser",
 	"type" : "normal"