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