diff --git a/Socialmetrica.package/NitterUser.class/instance/defaultConfig.st b/Socialmetrica.package/NitterUser.class/instance/defaultConfig.st new file mode 100644 index 0000000..89e6d1b --- /dev/null +++ b/Socialmetrica.package/NitterUser.class/instance/defaultConfig.st @@ -0,0 +1,5 @@ +accessing +defaultConfig + + self config: { 'folder' -> (FileLocator userData / 'Socialmetrica' / self userName) } asDictionary. + ^ self config \ No newline at end of file diff --git a/Socialmetrica.package/NitterUser.class/instance/numberOfURLsForLoadingTweets..st b/Socialmetrica.package/NitterUser.class/instance/numberOfURLsForLoadingTweets..st new file mode 100644 index 0000000..04f9cef --- /dev/null +++ b/Socialmetrica.package/NitterUser.class/instance/numberOfURLsForLoadingTweets..st @@ -0,0 +1,18 @@ +accessing +numberOfURLsForLoadingTweets: number + + | collectionURLs count asURLs | + collectionURLs := { + self userNameLink . + (self userNameLink, ((self documentTree xPath: '//a[.="Load more"]') @ 'href') stringValue) .} asOrderedCollection. + + number <= 2 ifTrue: [ ^ collectionURLs ]. + count := 2. + (number-count) timesRepeat: [ | tempDoc | + tempDoc := XMLHTMLParser parse: (collectionURLs at: count) asUrl retrieveContents. + collectionURLs + add: (self userNameLink, + ((tempDoc xPath: '//a[.="Load more"]') @ 'href') stringValue). + count := count+1 ]. + asURLs := collectionURLs collect: [ :string | string asUrl ]. + ^ asURLs. \ No newline at end of file