Modifyng installer for commons.

This commit is contained in:
ruidajo 2022-05-14 16:56:07 -05:00
parent c32a351932
commit defb1a8819
2 changed files with 4 additions and 3 deletions

View File

@ -3,7 +3,7 @@ externalWordCloud
| text outputFile | | text outputFile |
self areCommonFilesInstalled self areCommonFilesInstalled
ifFalse: [ self installExternalWordCloudCommons ]. ifFalse: [ self installCommons ].
self writeWordsFile. self writeWordsFile.
outputFile := (self folder / 'wordcloud.png') fullName. outputFile := (self folder / 'wordcloud.png') fullName.
text := (self folder / 'words', 'txt') fullName. text := (self folder / 'words', 'txt') fullName.

View File

@ -1,10 +1,11 @@
accessing accessing
installExternalWordCloudCommons installCommons
| commonFiles folder | | commonFiles folder |
commonFiles := #( commonFiles := #(
'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/nube-mascara.jpg' 'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/nube-mascara.jpg'
'https://mutabit.com/repos.fossil/mutabit/raw?name=wiki/commons/stopwords-es.txt&ci=tip'). 'https://mutabit.com/repos.fossil/mutabit/raw?name=wiki/commons/stopwords-es.txt&ci=tip'
'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/logo-mutabit-negro.png').
folder := TweetsCollection dataStore / 'commons'. folder := TweetsCollection dataStore / 'commons'.
folder exists folder exists
ifTrue: [ folder ensureDeleteAllChildren ] ifTrue: [ folder ensureDeleteAllChildren ]