Draft for visualization.
This commit is contained in:
parent
1f665368c1
commit
20f12bfcfc
@ -0,0 +1,10 @@
|
|||||||
|
accessing
|
||||||
|
writeWordsFile
|
||||||
|
| rawTweets output |
|
||||||
|
self tweets ifNil: [ ^ self ].
|
||||||
|
rawTweets := self tweets tweets.
|
||||||
|
output := '' writeStream.
|
||||||
|
rawTweets do: [ :current |
|
||||||
|
output addAll: current words.
|
||||||
|
].
|
||||||
|
^ MarkupFile exportAsFileOn: FileLocator "usersStorage" containing: output.
|
@ -1,3 +1,5 @@
|
|||||||
utilities
|
utilities
|
||||||
words
|
words
|
||||||
^ self text allRegexMatches: '\w*'
|
| rawWords |
|
||||||
|
rawWords := self textPreview splitOn: Character space.
|
||||||
|
^ rawWords := rawWords collect: [ :word | word trimmed copyWithoutAll: #($. $, $" $“ $”) ]
|
Loading…
Reference in New Issue
Block a user