14 lines
462 B
Smalltalk
14 lines
462 B
Smalltalk
|
accessing
|
||
|
installExternalWordCloudCommons
|
||
|
|
||
|
| commonFiles folder |
|
||
|
commonFiles := #(
|
||
|
'https://mutabit.com/repos.fossil/mutabit/uv/wiki/commons/nube-mascara.jpg'.
|
||
|
'http://mutabit.com/repos.fossil/mutabit/raw/tip?at=stopwords-es.txt').
|
||
|
folder := TweetsCollection dataStore / 'commons'.
|
||
|
folder exists ifFalse: [ folder ensureCreateDirectory].
|
||
|
commonFiles do: [ :fileUrl |
|
||
|
ZnClient new
|
||
|
url: fileUrl;
|
||
|
downloadTo: self folder parent / 'commons'.]
|
||
|
|