From 5b169c4ebf85d6a54b30c96574889c1c9f7b51a9 Mon Sep 17 00:00:00 2001
From: ruidajo <diegoruidajo@gmail.com>
Date: Tue, 5 Apr 2022 19:29:34 -0500
Subject: [PATCH] Creating nitter user collection of urls for load more tweets
 and default config folder.

---
 .../NitterUser.class/instance/defaultConfig.st |  5 +++++
 .../instance/numberOfURLsForLoadingTweets..st  | 18 ++++++++++++++++++
 2 files changed, 23 insertions(+)
 create mode 100644 Socialmetrica.package/NitterUser.class/instance/defaultConfig.st
 create mode 100644 Socialmetrica.package/NitterUser.class/instance/numberOfURLsForLoadingTweets..st

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