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

Code review: Modularization.

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2022-04-11 12:11:10 -05:00
parent 65c36e924c
commit bc168c4f0a
4 changed files with 34 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Socialmetrica.package/NitterUser.class/instance/getMessages.st
View File

@ -1,4 +1,4 @@
accessing accessing
getMessages getMessages
self getLocalMessages ifNil: [ self getRemoteMessages ]. self getLocalMessages ifNil: [ self getRemoteMessagesFromRss ].
^ self tweets ^ self tweets

2
Socialmetrica.package/NitterUser.class/instance/getRemoteMessages.st → Socialmetrica.package/NitterUser.class/instance/getRemoteMessagesFromRss.st
View File

@ -1,5 +1,5 @@
accessing accessing
getRemoteMessages getRemoteMessagesFromRss
| customQuery lastTweetsRaw lastTweets | | customQuery lastTweetsRaw lastTweets |
lastTweetsRaw := self rssFeed xmlDocument xpath: '//item'. lastTweetsRaw := self rssFeed xmlDocument xpath: '//item'.

5
Socialmetrica.package/NitterUser.class/instance/lastTweetsFromHtml.st Normal file
View File

@ -0,0 +1,5 @@
accessing
lastTweetsFromHtml
^ (self documentTree xpath: '//div[@class="timeline-item "]')
asOrderedCollection collect: [ :xmlElement | xmlElement postCopy ]

26
Socialmetrica.package/NitterUser.class/instance/numberOfURLsForLoadingTweets..st
View File

@ -5,31 +5,33 @@ numberOfURLsForLoadingTweets: number
number = 1 ifTrue: [ ^ self ]. number = 1 ifTrue: [ ^ self ].
urlAndTweets := OrderedDictionary new. urlAndTweets := OrderedDictionary new.
collectionURLs := { self userNameLink .}asOrderedCollection. collectionURLs := { self userNameLink } asOrderedCollection.
urlAndTweets urlAndTweets at: 'tweets' put: self lastTweetsFromHtml.
at: 'tweets'
put: ((self documentTree xpath: '//div[@class="timeline-item "]')asOrderedCollection collect: [ :xmlElement | xmlElement postCopy]).
count := 1. count := 1.
(number-count) timesRepeat: [ | tempDoc docTree urlString | number - count timesRepeat: [
| tempDoc docTree urlString |
tempDoc := XMLHTMLParser parse: tempDoc := XMLHTMLParser parse:
(collectionURLs at: count) asUrl retrieveContents. (collectionURLs at: count) asUrl retrieveContents.
urlString := (self userNameLink, urlString := self userNameLink
((tempDoc xPath: '//a[.="Load more"]') @ 'href') stringValue). ,
((tempDoc xPath: '//a[.="Load more"]') @ 'href')
stringValue.
docTree := XMLHTMLParser parse: urlString asUrl retrieveContents. docTree := XMLHTMLParser parse: urlString asUrl retrieveContents.
collectionURLs collectionURLs add: urlString.
add: urlString.
urlAndTweets urlAndTweets
at: 'tweets-' , (urlString splitOn: 'cursor=') second at: 'tweets-' , (urlString splitOn: 'cursor=') second
put: ((docTree xpath: '//div[@class="timeline-item "]')asOrderedCollection put:
collect: [ :xmlElement | xmlElement postCopy ]). ((docTree xpath: '//div[@class="timeline-item "]')
asOrderedCollection collect: [ :xmlElement |
xmlElement postCopy ]).
count := count + 1 ]. count := count + 1 ].
asURLs := collectionURLs collect: [ :string | string asUrl ]. asURLs := collectionURLs collect: [ :string | string asUrl ].
urlAndTweets at: 'urls' put: asURLs. urlAndTweets at: 'urls' put: asURLs.
^ urlAndTweets. ^ urlAndTweets