Draft for visualization.

This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-04-05 16:39:07 -05:00
parent 1f665368c1
commit 20f12bfcfc
2 changed files with 13 additions and 1 deletions

View File

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

View File

@ -1,3 +1,5 @@
utilities
words
^ self text allRegexMatches: '\w*'
| rawWords |
rawWords := self textPreview splitOn: Character space.
^ rawWords := rawWords collect: [ :word | word trimmed copyWithoutAll: #($. $, $" $“ $”) ]