Offray
/
Socialmetrica
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Merge dd655260b4

This commit is contained in:
ruidajo 2022-03-31 22:52:01 -05:00
parent 33a48f7cd2 dd655260b4
commit d66cc2a62c
4 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Datanalitica.package/NitterUser.class/instance/getMessages.st Normal file
View File

@ -0,0 +1,10 @@
accessing
getMessages
| lastTweetsRaw lastTweets |
lastTweetsRaw := self rssFeed xmlDocument xpath: '//item'.
lastTweets := TweetsCollection new.
lastTweetsRaw do: [ :rssTweet |
lastTweets add: ((Tweet new fromNitterRssItem: rssTweet ))
].
^ lastTweets

9
Datanalitica.package/Tweet.class/instance/fromNitterRssItem..st Normal file
View File

@ -0,0 +1,9 @@
accessing
fromNitterRssItem: xmlItem
| author |
author := (xmlItem xpath: 'dc:creator') stringValue allButFirst.
user := NitterUser new
userName: author .
created := (xmlItem xpath: 'pubDate') stringValue.
text := (XMLHTMLParser on: (xmlItem xpath: 'description') stringValue) parseDocument stringValue.
id := ((xmlItem xpath: 'guid') stringValue splitOn: '/') last copyReplaceAll: '#m' with: ''

2
Datanalitica.package/TwitterUser.class/instance/asCardElement.st
View File

@ -41,7 +41,7 @@ asCardElement
BrButton new
aptitude: BrGlamorousButtonWithLabelAptitude new;
label: 'Tweets';
action: [ :e | e phlow spawnObject: self tweets ].
action: [ :e | e phlow spawnObject: self getMessages ].
BrButton new
aptitude: BrGlamorousButtonWithLabelAptitude new;
label: 'Web view';

2
Datanalitica.package/TwitterUser.class/instance/tweets.st
View File

@ -1,3 +1,3 @@
accessing
tweets
^ tweets ifNil: [ self tweets: self getMessages ]
^ tweets ifNil: [ tweets := OrderedCollection new ]