From 062a0ac309966ac0eb258f249a8386903559c7bd Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Wed, 6 Apr 2022 11:21:08 -0500
Subject: [PATCH] Storing several tweets.

---
 .../TweetsCollection.class/class/storeDB.st           |  5 +++++
 .../TweetsCollection.class/instance/store.st          | 11 ++---------
 2 files changed, 7 insertions(+), 9 deletions(-)
 create mode 100644 Socialmetrica.package/TweetsCollection.class/class/storeDB.st

diff --git a/Socialmetrica.package/TweetsCollection.class/class/storeDB.st b/Socialmetrica.package/TweetsCollection.class/class/storeDB.st
new file mode 100644
index 0000000..bc5da22
--- /dev/null
+++ b/Socialmetrica.package/TweetsCollection.class/class/storeDB.st
@@ -0,0 +1,5 @@
+accessing
+storeDB
+	| localDBFile |
+	localDBFile := FileLocator userData / 'Socialmetrica' / 'socialmetrica.sqlite'.
+	^ ReStore connection: (SSWSQLite3Connection on: localDBFile fullName).	
\ No newline at end of file
diff --git a/Socialmetrica.package/TweetsCollection.class/instance/store.st b/Socialmetrica.package/TweetsCollection.class/instance/store.st
index 740ded3..b996205 100644
--- a/Socialmetrica.package/TweetsCollection.class/instance/store.st
+++ b/Socialmetrica.package/TweetsCollection.class/instance/store.st
@@ -1,11 +1,4 @@
 accessing
 store
-	| localFolder parameters host profile |
-	parameters := self queryParameters .
-	host :=  parameters asUrl host.
-	profile := parameters asUrl segments first.
-	host = NitterUser nitterProvider asUrl host 
-		ifFalse: [ ^ self ].
-	localFolder := (self dataStore / 'web' / 'twitter.com' / profile) ensureCreateDirectory.
-	 self tweets do: [:each | each exportInto: localFolder ].
-	 ^ localFolder
\ No newline at end of file
+	self class storeDB. "Starting  the ReStore singleton."
+	self tweets do: [:each | ReStore evaluateAsTransaction: [  each store ] ].
\ No newline at end of file