From d6824d0c97173e78733238bd8dbd9e3a25c81a0d Mon Sep 17 00:00:00 2001
From: Offray <offray.luna@mutabit.com>
Date: Sun, 4 Feb 2024 18:15:29 -0500
Subject: [PATCH] Querying Nitter instances.

---
 Socialmetrica.package/Nitter.class/README.md          |  0
 .../Nitter.class/class/instanceRows.st                |  6 ++++++
 Socialmetrica.package/Nitter.class/class/instances.st |  4 ++++
 .../Nitter.class/class/viewInstancesFor..st           | 10 ++++++++++
 Socialmetrica.package/Nitter.class/properties.json    | 11 +++++++++++
 5 files changed, 31 insertions(+)
 create mode 100644 Socialmetrica.package/Nitter.class/README.md
 create mode 100644 Socialmetrica.package/Nitter.class/class/instanceRows.st
 create mode 100644 Socialmetrica.package/Nitter.class/class/instances.st
 create mode 100644 Socialmetrica.package/Nitter.class/class/viewInstancesFor..st
 create mode 100644 Socialmetrica.package/Nitter.class/properties.json

diff --git a/Socialmetrica.package/Nitter.class/README.md b/Socialmetrica.package/Nitter.class/README.md
new file mode 100644
index 0000000..e69de29
diff --git a/Socialmetrica.package/Nitter.class/class/instanceRows.st b/Socialmetrica.package/Nitter.class/class/instanceRows.st
new file mode 100644
index 0000000..e8bda32
--- /dev/null
+++ b/Socialmetrica.package/Nitter.class/class/instanceRows.st
@@ -0,0 +1,6 @@
+accessing
+instanceRows
+	^ (self instances at: 'hosts') collect: [:rawRow | | newRow |
+		newRow := OrderedCollection new.
+		newRow add: (rawRow at: 'url')
+	].
\ No newline at end of file
diff --git a/Socialmetrica.package/Nitter.class/class/instances.st b/Socialmetrica.package/Nitter.class/class/instances.st
new file mode 100644
index 0000000..f9bb202
--- /dev/null
+++ b/Socialmetrica.package/Nitter.class/class/instances.st
@@ -0,0 +1,4 @@
+accessing
+instances
+
+	^ STONJSON fromString: 'https://status.d420.de/api/v1/instances' asUrl retrieveContents
\ No newline at end of file
diff --git a/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st b/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st
new file mode 100644
index 0000000..ded03bd
--- /dev/null
+++ b/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st
@@ -0,0 +1,10 @@
+accessing
+viewInstancesFor: aView
+	<gtView>
+	| columnedList  |
+	self instances isEmptyOrNil ifTrue: [ ^ aView empty].
+	columnedList := aView columnedList
+		title: 'Instances';
+		items: [ self instanceRows ];
+		priority: 80.
+	^ columnedList
\ No newline at end of file
diff --git a/Socialmetrica.package/Nitter.class/properties.json b/Socialmetrica.package/Nitter.class/properties.json
new file mode 100644
index 0000000..ebf6599
--- /dev/null
+++ b/Socialmetrica.package/Nitter.class/properties.json
@@ -0,0 +1,11 @@
+{
+	"commentStamp" : "",
+	"super" : "Object",
+	"category" : "Socialmetrica",
+	"classinstvars" : [ ],
+	"pools" : [ ],
+	"classvars" : [ ],
+	"instvars" : [ ],
+	"name" : "Nitter",
+	"type" : "normal"
+}
\ No newline at end of file