From 358acd65967e404e243bf8c0526d12969caf7ba3 Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Tue, 11 Jan 2022 22:00:08 -0500
Subject: [PATCH] Declaring dependencies and improving data extraction.

---
 .../instance/baseline..st                             |  5 +++++
 .../instance/rssTools..st                             | 10 ++++++++++
 .../instance/xmlParserHTML..st                        | 11 +++++++++++
 .../NitterUser.class/instance/documentTree.st         |  2 +-
 4 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/rssTools..st
 create mode 100644 BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/xmlParserHTML..st

diff --git a/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/baseline..st b/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/baseline..st
index 446a040..54fb94c 100644
--- a/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/baseline..st
+++ b/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/baseline..st
@@ -4,6 +4,11 @@ baseline: spec
 	spec
 		for: #common
 		do: [ 
+			"Dependencies"
+			self xmlParserHTML: spec.
+			self rssTools: spec.
+			"Packages"
 			spec
 				package: 'Datanalitica'
+				with: [ spec requires: #('XMLParserHTML' 'RSSTools') ]
 		]
\ No newline at end of file
diff --git a/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/rssTools..st b/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/rssTools..st
new file mode 100644
index 0000000..62a7b2d
--- /dev/null
+++ b/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/rssTools..st
@@ -0,0 +1,10 @@
+baselines
+rssTools: spec
+	Metacello new 
+  	repository: 'github://brackendev/RSSTools-Pharo:v1.0.1/src';
+  	baseline: 'RSSTools';
+  	onConflict: [ :ex | ex useIncoming ];
+  	onUpgrade: [ :ex | ex useIncoming ];
+  	onDowngrade: [ :ex | ex useLoaded ];
+  	load.
+ 	spec baseline: 'RSSTools' with: [ spec repository: 'github://brackendev/RSSTools-Pharo:v1.0.1/src']
\ No newline at end of file
diff --git a/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/xmlParserHTML..st b/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/xmlParserHTML..st
new file mode 100644
index 0000000..c60f3c4
--- /dev/null
+++ b/BaselineOfDatanalitica.package/BaselineOfDatanalitica.class/instance/xmlParserHTML..st
@@ -0,0 +1,11 @@
+baselines
+xmlParserHTML: spec
+	Metacello new
+		baseline: 'XMLParserHTML';
+		repository: 'github://pharo-contributions/XML-XMLParserHTML/src';
+		onConflict: [ :ex | ex useLoaded ];
+    	onUpgrade: [ :ex | ex useLoaded ];
+    	onDowngrade: [ :ex | ex useLoaded ];
+    	onWarningLog;
+		load.
+	spec baseline: 'XMLParserHTML' with: [spec repository: 'github://pharo-contributions/XML-XMLParserHTML/src']
\ No newline at end of file
diff --git a/Datanalitica.package/NitterUser.class/instance/documentTree.st b/Datanalitica.package/NitterUser.class/instance/documentTree.st
index 49975d9..86360ec 100644
--- a/Datanalitica.package/NitterUser.class/instance/documentTree.st
+++ b/Datanalitica.package/NitterUser.class/instance/documentTree.st
@@ -1,3 +1,3 @@
 operation
 documentTree
-	^ (XMLDOMParser on: self userNameLink asUrl retrieveContents) parseDocument
\ No newline at end of file
+	^ XMLHTMLParser parse: self userNameLink asUrl retrieveContents
\ No newline at end of file