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
getMessages
self getLocalMessages ifNil: [ self getRemoteMessages ].
self getLocalMessages ifNil: [ self getRemoteMessagesFromRss ].
^ self tweets

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

@ -1,5 +1,5 @@
accessing
getRemoteMessages
getRemoteMessagesFromRss
| customQuery lastTweetsRaw lastTweets |
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 ]

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

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