Modifying external cloud commons installation.

This commit is contained in:
ruidajo 2022-04-14 19:39:46 -05:00
parent 4341383a8c
commit a50e37dce1

View File

@ -3,12 +3,13 @@ installExternalWordCloudCommons
| 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'
'http://mutabit.com/repos.fossil/mutabit/raw/tip?at=stopwords-es.txt'). 'https://mutabit.com/repos.fossil/mutabit/raw/cf2aa88169752092a0bd39f8e20128abc85ad5c47d9679496663570c4d30fff0?at=stopwords-es.txt').
folder := TweetsCollection dataStore / 'commons'. folder := TweetsCollection dataStore / 'commons'.
folder exists ifFalse: [ folder ensureCreateDirectory]. folder exists ifFalse: [ folder ensureCreateDirectory].
commonFiles do: [ :fileUrl | commonFiles do: [ :fileUrl |
ZnClient new ZnClient new
url: fileUrl; url: fileUrl;
downloadTo: self folder parent / 'commons'.] downloadTo: folder].
^ folder