From 8843a31d5db26fa2b99553276a0c06e488a11809 Mon Sep 17 00:00:00 2001 From: Offray Date: Sun, 4 Feb 2024 18:54:11 -0500 Subject: [PATCH] Default view of instances for the Nitter class. --- Socialmetrica.package/Nitter.class/class/columnKeys.st | 3 +++ .../Nitter.class/class/instanceRows.st | 3 ++- .../Nitter.class/class/viewInstancesFor..st | 10 ++++++++-- 3 files changed, 13 insertions(+), 3 deletions(-) create mode 100644 Socialmetrica.package/Nitter.class/class/columnKeys.st diff --git a/Socialmetrica.package/Nitter.class/class/columnKeys.st b/Socialmetrica.package/Nitter.class/class/columnKeys.st new file mode 100644 index 0000000..426b297 --- /dev/null +++ b/Socialmetrica.package/Nitter.class/class/columnKeys.st @@ -0,0 +1,3 @@ +accessing +columnKeys + ^ #('url' 'healthy' 'healthy_percentage_overall' 'rss' 'version') \ No newline at end of file diff --git a/Socialmetrica.package/Nitter.class/class/instanceRows.st b/Socialmetrica.package/Nitter.class/class/instanceRows.st index e8bda32..3f6c8e1 100644 --- a/Socialmetrica.package/Nitter.class/class/instanceRows.st +++ b/Socialmetrica.package/Nitter.class/class/instanceRows.st @@ -2,5 +2,6 @@ accessing instanceRows ^ (self instances at: 'hosts') collect: [:rawRow | | newRow | newRow := OrderedCollection new. - newRow add: (rawRow at: 'url') + self columnKeys do: [:key | newRow add: (rawRow at: key) ]. + newRow ]. \ No newline at end of file diff --git a/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st b/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st index ded03bd..e03e939 100644 --- a/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st +++ b/Socialmetrica.package/Nitter.class/class/viewInstancesFor..st @@ -1,10 +1,16 @@ accessing viewInstancesFor: aView - | columnedList | + | columnedList columnNames | self instances isEmptyOrNil ifTrue: [ ^ aView empty]. columnedList := aView columnedList title: 'Instances'; items: [ self instanceRows ]; - priority: 80. + priority: 1. + columnNames := #('Instance' 'Healthy' 'Uptime %' 'RSS' 'Nitter Version'). + columnNames doWithIndex: [:aName :index | + columnedList + column: aName + text: [:instanceRow | (instanceRow at: index) ifNil: [''] ] + ]. ^ columnedList \ No newline at end of file