This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-04-01 19:46:32 -05:00
commit 9fd074b572
8 changed files with 31 additions and 11 deletions

View File

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

View File

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

View File

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

View File

@ -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 ]

View File

@ -1,4 +1,4 @@
accessing accessing
profileBio 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]

View File

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

View File

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

View File

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